Lines Matching refs:THEN
133 IF( TRACE )THEN
152 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
158 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
165 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
171 IF( KB( I ).LT.0 )THEN
178 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
184 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
191 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
198 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
212 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
526 IF( FULL )THEN
528 ELSE IF( BANDED )THEN
546 IF( BANDED )THEN
552 IF( BANDED )THEN
560 IF( BANDED )THEN
581 IF (TRANS.EQ.'N')THEN
583 ELSE IF (TRANS.EQ.'T')THEN
590 IF( TRAN )THEN
607 IF( NL.GT.1 )THEN
656 IF( FULL )THEN
666 ELSE IF( BANDED )THEN
680 IF( .NOT.OK )THEN
688 * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN
692 IF( FULL )THEN
699 IF( NULL )THEN
707 ELSE IF( BANDED )THEN
716 IF( NULL )THEN
735 IF( .NOT.SAME )THEN
740 IF( .NOT.NULL )THEN
778 IF( ERRMAX.LT.THRESH )THEN
787 IF( FULL )THEN
790 ELSE IF( BANDED )THEN
882 IF( FULL )THEN
884 ELSE IF( BANDED )THEN
886 ELSE IF( PACKED )THEN
897 IF( BANDED )THEN
903 IF( BANDED )THEN
909 IF( BANDED )THEN
919 IF( PACKED )THEN
928 IF (UPLO.EQ.'U')THEN
949 IF( N.GT.1 )THEN
996 IF( FULL )THEN
1005 ELSE IF( BANDED )THEN
1015 ELSE IF( PACKED )THEN
1027 IF( .NOT.OK )THEN
1037 IF( FULL )THEN
1044 IF( NULL )THEN
1051 ELSE IF( BANDED )THEN
1059 IF( NULL )THEN
1066 ELSE IF( PACKED )THEN
1072 IF( NULL )THEN
1090 IF( .NOT.SAME )THEN
1095 IF( .NOT.NULL )THEN
1129 IF( ERRMAX.LT.THRESH )THEN
1138 IF( FULL )THEN
1141 ELSE IF( BANDED )THEN
1144 ELSE IF( PACKED )THEN
1238 IF( FULL )THEN
1240 ELSE IF( BANDED )THEN
1242 ELSE IF( PACKED )THEN
1257 IF( BANDED )THEN
1263 IF( BANDED )THEN
1269 IF( BANDED )THEN
1279 IF( PACKED )THEN
1288 IF (UPLO.EQ.'U')THEN
1296 IF (TRANS.EQ.'N')THEN
1298 THEN
1306 IF (DIAG.EQ.'N')THEN
1328 IF( N.GT.1 )THEN
1353 IF( SNAME( 4: 5 ).EQ.'mv' )THEN
1354 IF( FULL )THEN
1362 ELSE IF( BANDED )THEN
1370 ELSE IF( PACKED )THEN
1379 ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
1380 IF( FULL )THEN
1388 ELSE IF( BANDED )THEN
1396 ELSE IF( PACKED )THEN
1409 IF( .NOT.OK )THEN
1421 IF( FULL )THEN
1424 IF( NULL )THEN
1431 ELSE IF( BANDED )THEN
1435 IF( NULL )THEN
1442 ELSE IF( PACKED )THEN
1444 IF( NULL )THEN
1462 IF( .NOT.SAME )THEN
1467 IF( .NOT.NULL )THEN
1468 IF( SNAME( 4: 5 ).EQ.'mv' )THEN
1476 ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
1514 IF( ERRMAX.LT.THRESH )THEN
1523 IF( FULL )THEN
1526 ELSE IF( BANDED )THEN
1529 ELSE IF( PACKED )THEN
1651 IF( M.GT.1 )THEN
1665 IF( N.GT.1 )THEN
1704 IF( CONJ )THEN
1718 IF( .NOT.OK )THEN
1733 IF( NULL )THEN
1749 IF( .NOT.SAME )THEN
1754 IF( .NOT.NULL )THEN
1758 IF( INCX.GT.0 )THEN
1768 IF( INCY.GT.0 )THEN
1801 IF( ERRMAX.LT.THRESH )THEN
1899 IF( FULL )THEN
1901 ELSE IF( PACKED )THEN
1918 IF( PACKED )THEN
1926 IF (UPLO.EQ.'U')THEN
1942 IF( N.GT.1 )THEN
1976 IF( FULL )THEN
1984 ELSE IF( PACKED )THEN
1996 IF( .NOT.OK )THEN
2009 IF( NULL )THEN
2015 IF( .NOT.PACKED )THEN
2027 IF( .NOT.SAME )THEN
2032 IF( .NOT.NULL )THEN
2036 IF( INCX.GT.0 )THEN
2048 IF( UPPER )THEN
2059 IF( FULL )THEN
2060 IF( UPPER )THEN
2089 IF( ERRMAX.LT.THRESH )THEN
2101 IF( FULL )THEN
2103 ELSE IF( PACKED )THEN
2194 IF( FULL )THEN
2196 ELSE IF( PACKED )THEN
2213 IF( PACKED )THEN
2221 IF (UPLO.EQ.'U')THEN
2237 IF( N.GT.1 )THEN
2251 IF( N.GT.1 )THEN
2289 IF( FULL )THEN
2297 ELSE IF( PACKED )THEN
2309 IF( .NOT.OK )THEN
2324 IF( NULL )THEN
2330 IF( .NOT.PACKED )THEN
2342 IF( .NOT.SAME )THEN
2347 IF( .NOT.NULL )THEN
2351 IF( INCX.GT.0 )THEN
2360 IF( INCY.GT.0 )THEN
2373 IF( UPPER )THEN
2384 IF( FULL )THEN
2385 IF( UPPER )THEN
2416 IF( ERRMAX.LT.THRESH )THEN
2428 IF( FULL )THEN
2431 ELSE IF( PACKED )THEN
2496 IF( TRAN.OR.CTRAN )THEN
2503 IF( INCX.LT.0 )THEN
2510 IF( INCY.LT.0 )THEN
2526 IF( TRAN )THEN
2532 ELSE IF( CTRAN )THEN
2569 IF( MV )THEN
2642 IF( TYPE.EQ.'ge' )THEN
2649 ELSE IF( TYPE.EQ.'he' )THEN
2651 IF( UPPER )THEN
2699 IF( RESET )THEN
2721 IF( IC.GE.5 )THEN
2802 $ THEN
2804 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2809 IF( I.NE.J )THEN
2810 IF( SYM )THEN
2812 ELSE IF( TRI )THEN
2828 IF( TYPE.EQ.'ge' )THEN
2837 ELSE IF( TYPE.EQ.'gb' )THEN
2849 ELSE IF( TYPE.EQ.'he'.OR.TYPE.EQ.'tr' )THEN
2851 IF( UPPER )THEN
2853 IF( UNIT )THEN
2859 IF( UNIT )THEN
2875 IF( SYM )THEN
2880 ELSE IF( TYPE.EQ.'hb'.OR.TYPE.EQ.'tb' )THEN
2882 IF( UPPER )THEN
2885 IF( UNIT )THEN
2892 IF( UNIT )THEN
2908 IF( SYM )THEN
2913 ELSE IF( TYPE.EQ.'hp'.OR.TYPE.EQ.'tp' )THEN
2916 IF( UPPER )THEN
2926 IF( I.EQ.J )THEN