Lines Matching refs:IF
46 *> If tau = 0, then H is taken to be the unit matrix.
77 *> (1 + (M-1)*abs(INCV)) if SIDE = 'L'
78 *> or (1 + (N-1)*abs(INCV)) if SIDE = 'R'
79 *> The vector v in the representation of H. V is not used if
99 *> On exit, C is overwritten by the matrix H * C if SIDE = 'L',
100 *> or C * H if SIDE = 'R'.
112 *> (N) if SIDE = 'L'
113 *> or (M) if SIDE = 'R'
169 IF( TAU.NE.ZERO ) THEN
172 IF( APPLYLEFT ) THEN
176 END IF
177 IF( INCV.GT.0 ) THEN
181 END IF
187 IF( APPLYLEFT ) THEN
193 END IF
194 END IF
197 IF( APPLYLEFT ) THEN
201 IF( LASTV.GT.0 ) THEN
211 END IF
216 IF( LASTV.GT.0 ) THEN
226 END IF
227 END IF
