Lines Matching refs:IF
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
133 IF( TRACE )THEN
135 END IF
152 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
155 END IF
158 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
161 END IF
165 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
168 END IF
171 IF( KB( I ).LT.0 )THEN
174 END IF
178 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
181 END IF
184 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
187 END IF
191 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
194 END IF
198 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
201 END IF
212 IF( .NOT.TSTERR )THEN
215 END IF
221 IF (LAYOUT.EQ.2) THEN
225 ELSE IF (LAYOUT.EQ.1) THEN
228 ELSE IF (LAYOUT.EQ.0) THEN
231 END IF
242 IF( SNAMET.EQ.SNAMES( I ) )
257 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
284 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
287 END IF
292 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
295 END IF
301 IF( .NOT.LTEST( ISNUM ) )THEN
307 IF( TSTERR )THEN
310 END IF
319 140 IF (CORDER) THEN
324 END IF
325 IF (RORDER) THEN
330 END IF
333 150 IF (CORDER) THEN
338 END IF
339 IF (RORDER) THEN
344 END IF
348 160 IF (CORDER) THEN
353 END IF
354 IF (RORDER) THEN
359 END IF
362 170 IF (CORDER) THEN
367 END IF
368 IF (RORDER) THEN
373 END IF
376 180 IF (CORDER) THEN
381 END IF
382 IF (RORDER) THEN
387 END IF
390 190 IF (CORDER) THEN
395 END IF
396 IF (RORDER) THEN
401 END IF
403 200 IF( FATAL.AND.SFATAL )
405 END IF
418 IF( TRACE )
426 9999 FORMAT(' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
526 IF( FULL )THEN
528 ELSE IF( BANDED )THEN
530 END IF
541 IF( IM.EQ.1 )
543 IF( IM.EQ.2 )
546 IF( BANDED )THEN
550 END IF
552 IF( BANDED )THEN
558 END IF
559 * Set LDA to 1 more than minimum value if room.
560 IF( BANDED )THEN
564 END IF
565 IF( LDA.LT.NMAX )
567 * Skip tests if not enough room.
568 IF( LDA.GT.NMAX )
581 IF (TRANS.EQ.'N')THEN
583 ELSE IF (TRANS.EQ.'T')THEN
587 END IF
590 IF( TRAN )THEN
596 END IF
607 IF( NL.GT.1 )THEN
610 END IF
656 IF( FULL )THEN
657 IF( TRACE )
661 IF( REWI )
666 ELSE IF( BANDED )THEN
667 IF( TRACE )
671 IF( REWI )
676 END IF
678 * Check if error-exit was taken incorrectly.
680 IF( .NOT.OK )THEN
684 END IF
688 * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN
692 IF( FULL )THEN
699 IF( NULL )THEN
705 END IF
707 ELSE IF( BANDED )THEN
716 IF( NULL )THEN
722 END IF
724 END IF
726 * If data was incorrectly changed, report
732 IF( .NOT.ISAME( I ) )
735 IF( .NOT.SAME )THEN
738 END IF
740 IF( .NOT.NULL )THEN
749 * If got really bad answer, report and
751 IF( FATAL )
757 END IF
758 * END IF
778 IF( ERRMAX.LT.THRESH )THEN
782 END IF
787 IF( FULL )THEN
790 ELSE IF( BANDED )THEN
793 END IF
882 IF( FULL )THEN
884 ELSE IF( BANDED )THEN
886 ELSE IF( PACKED )THEN
888 END IF
897 IF( BANDED )THEN
901 END IF
903 IF( BANDED )THEN
907 END IF
908 * Set LDA to 1 more than minimum value if room.
909 IF( BANDED )THEN
913 END IF
914 IF( LDA.LT.NMAX )
916 * Skip tests if not enough room.
917 IF( LDA.GT.NMAX )
919 IF( PACKED )THEN
923 END IF
928 IF (UPLO.EQ.'U')THEN
932 END IF
949 IF( N.GT.1 )THEN
952 END IF
996 IF( FULL )THEN
997 IF( TRACE )
1000 IF( REWI )
1005 ELSE IF( BANDED )THEN
1006 IF( TRACE )
1010 IF( REWI )
1015 ELSE IF( PACKED )THEN
1016 IF( TRACE )
1019 IF( REWI )
1023 END IF
1025 * Check if error-exit was taken incorrectly.
1027 IF( .NOT.OK )THEN
1031 END IF
1037 IF( FULL )THEN
1044 IF( NULL )THEN
1049 END IF
1051 ELSE IF( BANDED )THEN
1059 IF( NULL )THEN
1064 END IF
1066 ELSE IF( PACKED )THEN
1072 IF( NULL )THEN
1077 END IF
1079 END IF
1081 * If data was incorrectly changed, report and
1087 IF( .NOT.ISAME( I ) )
1090 IF( .NOT.SAME )THEN
1093 END IF
1095 IF( .NOT.NULL )THEN
1104 * If got really bad answer, report and
1106 IF( FATAL )
1111 END IF
1129 IF( ERRMAX.LT.THRESH )THEN
1133 END IF
1138 IF( FULL )THEN
1141 ELSE IF( BANDED )THEN
1144 ELSE IF( PACKED )THEN
1147 END IF
1238 IF( FULL )THEN
1240 ELSE IF( BANDED )THEN
1242 ELSE IF( PACKED )THEN
1244 END IF
1257 IF( BANDED )THEN
1261 END IF
1263 IF( BANDED )THEN
1267 END IF
1268 * Set LDA to 1 more than minimum value if room.
1269 IF( BANDED )THEN
1273 END IF
1274 IF( LDA.LT.NMAX )
1276 * Skip tests if not enough room.
1277 IF( LDA.GT.NMAX )
1279 IF( PACKED )THEN
1283 END IF
1288 IF (UPLO.EQ.'U')THEN
1292 END IF
1296 IF (TRANS.EQ.'N')THEN
1298 ELSE IF
1302 END IF
1306 IF (DIAG.EQ.'N')THEN
1310 END IF
1328 IF( N.GT.1 )THEN
1331 END IF
1353 IF( SNAME( 4: 5 ).EQ.'mv' )THEN
1354 IF( FULL )THEN
1355 IF( TRACE )
1358 IF( REWI )
1362 ELSE IF( BANDED )THEN
1363 IF( TRACE )
1366 IF( REWI )
1370 ELSE IF( PACKED )THEN
1371 IF( TRACE )
1374 IF( REWI )
1378 END IF
1379 ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
1380 IF( FULL )THEN
1381 IF( TRACE )
1384 IF( REWI )
1388 ELSE IF( BANDED )THEN
1389 IF( TRACE )
1392 IF( REWI )
1396 ELSE IF( PACKED )THEN
1397 IF( TRACE )
1400 IF( REWI )
1404 END IF
1405 END IF
1407 * Check if error-exit was taken incorrectly.
1409 IF( .NOT.OK )THEN
1413 END IF
1421 IF( FULL )THEN
1424 IF( NULL )THEN
1429 END IF
1431 ELSE IF( BANDED )THEN
1435 IF( NULL )THEN
1440 END IF
1442 ELSE IF( PACKED )THEN
1444 IF( NULL )THEN
1449 END IF
1451 END IF
1453 * If data was incorrectly changed, report and
1459 IF( .NOT.ISAME( I ) )
1462 IF( .NOT.SAME )THEN
1465 END IF
1467 IF( .NOT.NULL )THEN
1468 IF( SNAME( 4: 5 ).EQ.'mv' )THEN
1476 ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
1490 END IF
1492 * If got really bad answer, report and return.
1493 IF( FATAL )
1498 END IF
1514 IF( ERRMAX.LT.THRESH )THEN
1518 END IF
1523 IF( FULL )THEN
1526 ELSE IF( BANDED )THEN
1529 ELSE IF( PACKED )THEN
1532 END IF
1627 IF( IM.EQ.1 )
1629 IF( IM.EQ.2 )
1632 * Set LDA to 1 more than minimum value if room.
1634 IF( LDA.LT.NMAX )
1636 * Skip tests if not enough room.
1637 IF( LDA.GT.NMAX )
1651 IF( M.GT.1 )THEN
1654 END IF
1665 IF( N.GT.1 )THEN
1668 END IF
1701 IF( TRACE )
1704 IF( CONJ )THEN
1705 IF( REWI )
1710 IF( REWI )
1714 END IF
1716 * Check if error-exit was taken incorrectly.
1718 IF( .NOT.OK )THEN
1722 IF
1733 IF( NULL )THEN
1738 END IF
1741 * If data was incorrectly changed, report and return.
1746 IF( .NOT.ISAME( I ) )
1749 IF( .NOT.SAME )THEN
1752 END IF
1754 IF( .NOT.NULL )THEN
1758 IF( INCX.GT.0 )THEN
1766 END IF
1768 IF( INCY.GT.0 )THEN
1772 END IF
1773 IF( CONJ )
1780 * If got really bad answer, report and return.
1781 IF( FATAL )
1787 END IF
1801 IF( ERRMAX.LT.THRESH )THEN
1805 END IF
1899 IF( FULL )THEN
1901 ELSE IF( PACKED )THEN
1903 END IF
1911 * Set LDA to 1 more than minimum value if room.
1913 IF( LDA.LT.NMAX )
1915 * Skip tests if not enough room.
1916 IF( LDA.GT.NMAX )
1918 IF( PACKED )THEN
1922 END IF
1926 IF (UPLO.EQ.'U')THEN
1930 END IF
1942 IF( N.GT.1 )THEN
1945 END IF
1976 IF( FULL )THEN
1977 IF( TRACE )
1980 IF( REWI )
1984 ELSE IF( PACKED )THEN
1985 IF( TRACE )
1988 IF( REWI )
1992 END IF
1994 * Check if error-exit was taken incorrectly.
1996 IF( .NOT.OK )THEN
2000 END IF
2009 IF( NULL )THEN
2014 END IF
2015 IF( .NOT.PACKED )THEN
2017 END IF
2019 * If data was incorrectly changed, report and return.
2024 IF( .NOT.ISAME( I ) )
2027 IF( .NOT.SAME )THEN
2030 END IF
2032 IF( .NOT.NULL )THEN
2036 IF( INCX.GT.0 )THEN
2044 END IF
2048 IF( UPPER )THEN
2054 END IF
2059 IF( FULL )THEN
2060 IF( UPPER )THEN
2064 END IF
2067 END IF
2069 * If got really bad answer, report and return.
2070 IF( FATAL )
2074 * Avoid repeating tests if N.le.0.
2075 IF( N.LE.0 )
2077 END IF
2089 IF( ERRMAX.LT.THRESH )THEN
2093 END IF
2101 IF( FULL )THEN
2103 ELSE IF( PACKED )THEN
2105 END IF
2194 IF( FULL )THEN
2196 ELSE IF( PACKED )THEN
2198 END IF
2206 * Set LDA to 1 more than minimum value if room.
2208 IF( LDA.LT.NMAX )
2210 * Skip tests if not enough room.
2211 IF( LDA.GT.NMAX )
2213 IF( PACKED )THEN
2217 END IF
2221 IF (UPLO.EQ.'U')THEN
2225 END IF
2237 IF( N.GT.1 )THEN
2240 END IF
2251 IF( N.GT.1 )THEN
2254 END IF
2289 IF( FULL )THEN
2290 IF( TRACE )
2293 IF( REWI )
2297 ELSE IF( PACKED )THEN
2298 IF( TRACE )
2301 IF( REWI )
2305 END IF
2307 * Check if error-exit was taken incorrectly.
2309 IF( .NOT.OK )THEN
2313 END IF
2324 IF( NULL )THEN
2329 END IF
2330 IF( .NOT.PACKED )THEN
2332 END IF
2334 * If data was incorrectly changed, report and return.
2339 IF( .NOT.ISAME( I ) )
2342 IF( .NOT.SAME )THEN
2345 END IF
2347 IF( .NOT.NULL )THEN
2351 IF( INCX.GT.0 )THEN
2359 END IF
2360 IF( INCY.GT.0 )THEN
2368 END IF
2373 IF( UPPER )THEN
2379 END IF
2384 IF( FULL )THEN
2385 IF( UPPER )THEN
2389 END IF
2392 END IF
2394 * If got really bad answer, report and return.
2395 IF( FATAL )
2400 IF( N.LE.0 )
2402 END IF
2416 IF( ERRMAX.LT.THRESH )THEN
2420 END IF
2428 IF( FULL )THEN
2431 ELSE IF( PACKED )THEN
2433 END IF
2496 IF( TRAN.OR.CTRAN )THEN
2502 END IF
2503 IF( INCX.LT.0 )THEN
2509 END IF
2510 IF( INCY.LT.0 )THEN
2516 END IF
2526 IF( TRAN )THEN
2532 ELSE IF( CTRAN )THEN
2544 END IF
2555 IF( G( I ).NE.RZERO )
2558 IF( ERR*SQRT( EPS ).GE.RONE )
2561 * If the loop completes, all results are at least half accurate.
2569 IF( MV )THEN
2575 END IF
2591 * Tests if two arrays are identical.
2607 IF( RI( I ).NE.RJ( I ) )
2621 * Tests if selected elements in two arrays are equal.
2642 IF( TYPE.EQ.'ge' )THEN
2645 IF( AA( I, J ).NE.AS( I, J ) )
2649 ELSE IF( TYPE.EQ.'he' )THEN
2651 IF( UPPER )THEN
2657 END IF
2659 IF( AA( I, J ).NE.AS( I, J ) )
2663 IF( AA( I, J ).NE.AS( I, J ) )
2667 END IF
2699 IF( RESET )THEN
2707 END IF
2710 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
2711 * If
2712 * If initial I or J = 5, the period will be 10.
2721 IF( IC.GE.5 )THEN
2724 END IF
2801 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2803 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2808 END IF
2809 IF( I.NE.J )THEN
2810 IF( SYM )THEN
2812 ELSE IF( TRI )THEN
2814 END IF
2815 END IF
2816 END IF
2818 IF( SYM )
2820 IF( TRI )
2822 IF( UNIT )
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
2857 END IF
2859 IF( UNIT )THEN
2863 END IF
2865 END IF
2875 IF( SYM )THEN
2878 END IF
2880 ELSE IF( TYPE.EQ.'hb'.OR.TYPE.EQ.'tb' )THEN
2882 IF( UPPER )THEN
2885 IF( UNIT )THEN
2889 END IF
2892 IF( UNIT )THEN
2896 END IF
2898 END IF
2908 IF( SYM )THEN
2911 END IF
2913 ELSE IF( TYPE.EQ.'hp'.OR.TYPE.EQ.'tp' )THEN
2916 IF( UPPER )THEN
2922 END IF
2926 IF( I.EQ.J )THEN
2927 IF( UNIT )
2929 IF( SYM )
2931 END IF
2934 END IF
