Lines Matching refs:IF
45 *> If tau = 0, then H is taken to be the unit matrix.
73 *> (1 + (M-1)*abs(INCV)) if SIDE = 'L'
74 *> or (1 + (N-1)*abs(INCV)) if SIDE = 'R'
75 *> The vector v in the representation of H. V is not used if
95 *> On exit, C is overwritten by the matrix H * C if SIDE = 'L',
96 *> or C * H if SIDE = 'R'.
108 *> (N) if SIDE = 'L'
109 *> or (M) if SIDE = 'R'
164 IF( TAU.NE.ZERO ) THEN
167 IF( APPLYLEFT ) THEN
171 END IF
172 IF( INCV.GT.0 ) THEN
176 END IF
182 IF( APPLYLEFT ) THEN
188 END IF
189 END IF
192 IF( APPLYLEFT ) THEN
196 IF( LASTV.GT.0 ) THEN
206 END IF
211 IF( LASTV.GT.0 ) THEN
221 END IF
222 END IF
