Lines Matching refs:IF
100 *> (LDV,K) if STOREV = 'C'
101 *> (LDV,M) if STOREV = 'R' and SIDE = 'L'
102 *> (LDV,N) if STOREV = 'R' and SIDE = 'R'
110 *> If STOREV = 'C' and SIDE = 'L', LDV >= max(1,M);
111 *> if STOREV = 'C' and SIDE = 'R', LDV >= max(1,N);
112 *> if STOREV = 'R', LDV >= K.
150 *> If SIDE = 'L', LDWORK >= max(1,N);
151 *> if SIDE = 'R', LDWORK >= max(1,M).
232 * Quick return if possible
234 IF( M.LE.0 .OR. N.LE.0 )
237 IF( LSAME( TRANS, 'N' ) ) THEN
241 END IF
243 IF( LSAME( STOREV, 'C' ) ) THEN
245 IF( LSAME( DIRECT, 'F' ) ) THEN
251 IF( LSAME( SIDE, 'L' ) ) THEN
271 IF( LASTV.GT.K ) THEN
279 END IF
288 IF( LASTV.GT.K ) THEN
296 END IF
311 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
330 IF( LASTV.GT.K ) THEN
338 END IF
347 IF( LASTV.GT.K ) THEN
355 END IF
369 END IF
377 IF( LSAME( SIDE, 'L' ) ) THEN
399 IF( LASTV.GT.K ) THEN
406 END IF
415 IF( LASTV.GT.K ) THEN
422 END IF
438 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
458 IF( LASTV.GT.K ) THEN
465 END IF
474 IF( LASTV.GT.K ) THEN
481 END IF
496 END IF
497 END IF
499 ELSE IF( LSAME( STOREV, 'R' ) ) THEN
501 IF( LSAME( DIRECT, 'F' ) ) THEN
506 IF( LSAME( SIDE, 'L' ) ) THEN
526 IF( LASTV.GT.K ) THEN
534 END IF
543 IF( LASTV.GT.K ) THEN
551 END IF
566 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
585 IF( LASTV.GT.K ) THEN
593 END IF
602 IF( LASTV.GT.K ) THEN
610 END IF
625 END IF
632 IF( LSAME( SIDE, 'L' ) ) THEN
654 IF( LASTV.GT.K ) THEN
661 END IF
670 IF( LASTV.GT.K ) THEN
677 END IF
693 ELSE IF( LSAME( SIDE, 'R' ) ) THEN
714 IF( LASTV.GT.K ) THEN
721 END IF
730 IF( LASTV.GT.K ) THEN
737 END IF
753 END IF
755 END IF
756 END IF
