Lines Matching refs:THEN
132 IF( TRACE )THEN
151 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
157 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
164 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
170 IF( KB( I ).LT.0 )THEN
177 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
183 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
190 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
197 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
211 IF( .NOT.TSTERR )THEN
221 IF (LAYOUT.EQ.2) THEN
225 ELSE IF (LAYOUT.EQ.1) THEN
228 ELSE IF (LAYOUT.EQ.0) THEN
284 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
292 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
301 IF( .NOT.LTEST( ISNUM ) )THEN
307 IF( TSTERR )THEN
319 140 IF (CORDER) THEN
325 IF (RORDER) THEN
333 150 IF (CORDER) THEN
339 IF (RORDER) THEN
348 160 IF (CORDER) THEN
354 IF (RORDER) THEN
362 170 IF (CORDER) THEN
368 IF (RORDER) THEN
376 180 IF (CORDER) THEN
382 IF (RORDER) THEN
390 190 IF (CORDER) THEN
396 IF (RORDER) THEN
525 IF( FULL )THEN
527 ELSE IF( BANDED )THEN
545 IF( BANDED )THEN
551 IF( BANDED )THEN
559 IF( BANDED )THEN
580 IF (TRANS.EQ.'N')THEN
582 ELSE IF (TRANS.EQ.'T')THEN
589 IF( TRAN )THEN
606 IF( NL.GT.1 )THEN
655 IF( FULL )THEN
665 ELSE IF( BANDED )THEN
679 IF( .NOT.OK )THEN
687 * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN
691 IF( FULL )THEN
698 IF( NULL )THEN
706 ELSE IF( BANDED )THEN
715 IF( NULL )THEN
734 IF( .NOT.SAME )THEN
739 IF( .NOT.NULL )THEN
777 IF( ERRMAX.LT.THRESH )THEN
786 IF( FULL )THEN
789 ELSE IF( BANDED )THEN
880 IF( FULL )THEN
882 ELSE IF( BANDED )THEN
884 ELSE IF( PACKED )THEN
895 IF( BANDED )THEN
901 IF( BANDED )THEN
907 IF( BANDED )THEN
917 IF( PACKED )THEN
926 IF (UPLO.EQ.'U')THEN
947 IF( N.GT.1 )THEN
994 IF( FULL )THEN
1003 ELSE IF( BANDED )THEN
1013 ELSE IF( PACKED )THEN
1025 IF( .NOT.OK )THEN
1035 IF( FULL )THEN
1042 IF( NULL )THEN
1049 ELSE IF( BANDED )THEN
1057 IF( NULL )THEN
1064 ELSE IF( PACKED )THEN
1070 IF( NULL )THEN
1088 IF( .NOT.SAME )THEN
1093 IF( .NOT.NULL )THEN
1127 IF( ERRMAX.LT.THRESH )THEN
1136 IF( FULL )THEN
1139 ELSE IF( BANDED )THEN
1142 ELSE IF( PACKED )THEN
1235 IF( FULL )THEN
1237 ELSE IF( BANDED )THEN
1239 ELSE IF( PACKED )THEN
1254 IF( BANDED )THEN
1260 IF( BANDED )THEN
1266 IF( BANDED )THEN
1276 IF( PACKED )THEN
1285 IF (UPLO.EQ.'U')THEN
1293 IF (TRANS.EQ.'N')THEN
1295 ELSE IF (TRANS.EQ.'T')THEN
1303 IF (DIAG.EQ.'N')THEN
1325 IF( N.GT.1 )THEN
1350 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1351 IF( FULL )THEN
1359 ELSE IF( BANDED )THEN
1367 ELSE IF( PACKED )THEN
1376 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1377 IF( FULL )THEN
1385 ELSE IF( BANDED )THEN
1393 ELSE IF( PACKED )THEN
1406 IF( .NOT.OK )THEN
1418 IF( FULL )THEN
1421 IF( NULL )THEN
1428 ELSE IF( BANDED )THEN
1432 IF( NULL )THEN
1439 ELSE IF( PACKED )THEN
1441 IF( NULL )THEN
1459 IF( .NOT.SAME )THEN
1464 IF( .NOT.NULL )THEN
1465 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1473 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1511 IF( ERRMAX.LT.THRESH )THEN
1520 IF( FULL )THEN
1523 ELSE IF( BANDED )THEN
1526 ELSE IF( PACKED )THEN
1647 IF( M.GT.1 )THEN
1661 IF( N.GT.1 )THEN
1700 IF( CONJ )THEN
1714 IF( .NOT.OK )THEN
1729 IF( NULL )THEN
1745 IF( .NOT.SAME )THEN
1750 IF( .NOT.NULL )THEN
1754 IF( INCX.GT.0 )THEN
1764 IF( INCY.GT.0 )THEN
1797 IF( ERRMAX.LT.THRESH )THEN
1894 IF( FULL )THEN
1896 ELSE IF( PACKED )THEN
1913 IF( PACKED )THEN
1921 IF (UPLO.EQ.'U')THEN
1937 IF( N.GT.1 )THEN
1971 IF( FULL )THEN
1979 ELSE IF( PACKED )THEN
1991 IF( .NOT.OK )THEN
2004 IF( NULL )THEN
2010 IF( .NOT.PACKED )THEN
2022 IF( .NOT.SAME )THEN
2027 IF( .NOT.NULL )THEN
2031 IF( INCX.GT.0 )THEN
2043 IF( UPPER )THEN
2054 IF( FULL )THEN
2055 IF( UPPER )THEN
2084 IF( ERRMAX.LT.THRESH )THEN
2096 IF( FULL )THEN
2098 ELSE IF( PACKED )THEN
2188 IF( FULL )THEN
2190 ELSE IF( PACKED )THEN
2207 IF( PACKED )THEN
2215 IF (UPLO.EQ.'U')THEN
2231 IF( N.GT.1 )THEN
2245 IF( N.GT.1 )THEN
2283 IF( FULL )THEN
2291 ELSE IF( PACKED )THEN
2303 IF( .NOT.OK )THEN
2318 IF( NULL )THEN
2324 IF( .NOT.PACKED )THEN
2336 IF( .NOT.SAME )THEN
2341 IF( .NOT.NULL )THEN
2345 IF( INCX.GT.0 )THEN
2354 IF( INCY.GT.0 )THEN
2367 IF( UPPER )THEN
2378 IF( FULL )THEN
2379 IF( UPPER )THEN
2410 IF( ERRMAX.LT.THRESH )THEN
2422 IF( FULL )THEN
2425 ELSE IF( PACKED )THEN
2490 IF( TRAN.OR.CTRAN )THEN
2497 IF( INCX.LT.0 )THEN
2504 IF( INCY.LT.0 )THEN
2520 IF( TRAN )THEN
2526 ELSE IF( CTRAN )THEN
2563 IF( MV )THEN
2636 IF( TYPE.EQ.'ge' )THEN
2643 ELSE IF( TYPE.EQ.'he' )THEN
2645 IF( UPPER )THEN
2693 IF( RESET )THEN
2715 IF( IC.GE.5 )THEN
2795 $ THEN
2797 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2802 IF( I.NE.J )THEN
2803 IF( SYM )THEN
2805 ELSE IF( TRI )THEN
2821 IF( TYPE.EQ.'ge' )THEN
2830 ELSE IF( TYPE.EQ.'gb' )THEN
2842 ELSE IF( TYPE.EQ.'he'.OR.TYPE.EQ.'tr' )THEN
2844 IF( UPPER )THEN
2846 IF( UNIT )THEN
2852 IF( UNIT )THEN
2868 IF( SYM )THEN
2873 ELSE IF( TYPE.EQ.'hb'.OR.TYPE.EQ.'tb' )THEN
2875 IF( UPPER )THEN
2878 IF( UNIT )THEN
2885 IF( UNIT )THEN
2901 IF( SYM )THEN
2906 ELSE IF( TYPE.EQ.'hp'.OR.TYPE.EQ.'tp' )THEN
2909 IF( UPPER )THEN
2919 IF( I.EQ.J )THEN
