Lines Matching refs:DIRECT
21 * SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
24 * CHARACTER DIRECT, STOREV
40 *> If DIRECT = 'F', H = H(1) H(2) . . . H(k) and T is upper triangular;
42 *> If DIRECT = 'B', H = H(k) . . . H(2) H(1) and T is lower triangular.
58 *> \param[in] DIRECT
60 *> DIRECT is CHARACTER*1
115 *> If DIRECT = 'F', T is upper triangular; if DIRECT = 'B', T is
146 *> DIRECT = 'F' and STOREV = 'C': DIRECT = 'F' and STOREV = 'R':
154 *> DIRECT = 'B' and STOREV = 'C': DIRECT = 'B' and STOREV = 'R':
164 SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
172 CHARACTER DIRECT, STOREV
202 IF( LSAME( DIRECT, 'F' ) ) THEN
