Lines Matching refs:IF
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.
44 *> If STOREV = 'C', the vector which defines the elementary reflector
49 *> If STOREV = 'R', the vector which defines the elementary reflector
92 *> (LDV,K) if STOREV = 'C'
93 *> (LDV,N) if STOREV = 'R'
101 *> If STOREV = 'C', LDV >= max(1,N); if STOREV = 'R', LDV >= K.
115 *> If DIRECT = 'F', T is upper triangular; if DIRECT = 'B', T is
197 * Quick return if possible
199 IF( N.EQ.0 )
202 IF( LSAME( DIRECT, 'F' ) ) THEN
206 IF( TAU( I ).EQ.ZERO ) THEN
217 IF( LSAME( STOREV, 'C' ) ) THEN
220 IF( V( LASTV, I ).NE.ZERO ) EXIT
235 IF( V( I, LASTV ).NE.ZERO ) EXIT
247 END IF
254 IF( I.GT.1 ) THEN
258 END IF
259 END IF
264 IF( TAU( I ).EQ.ZERO ) THEN
275 IF( I.LT.K ) THEN
276 IF( LSAME( STOREV, 'C' ) ) THEN
279 IF( V( LASTV, I ).NE.ZERO ) EXIT
294 IF( V( I, LASTV ).NE.ZERO ) EXIT
306 END IF
312 IF( I.GT.1 ) THEN
316 END IF
317 END IF
319 END IF
321 END IF
