Lines Matching refs:IF
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
132 IF( TRACE )THEN
134 END IF
151 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
154 END IF
157 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
160 END IF
164 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
167 END IF
170 IF( KB( I ).LT.0 )THEN
173 END IF
177 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
180 END IF
183 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
186 END IF
190 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
193 END IF
197 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
200 END IF
211 IF( .NOT.TSTERR )THEN
214 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( SDIFF( 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',
525 IF( FULL )THEN
527 ELSE IF( BANDED )THEN
529 END IF
540 IF( IM.EQ.1 )
542 IF( IM.EQ.2 )
545 IF( BANDED )THEN
549 END IF
551 IF( BANDED )THEN
557 END IF
558 * Set LDA to 1 more than minimum value if room.
559 IF( BANDED )THEN
563 END IF
564 IF( LDA.LT.NMAX )
566 * Skip tests if not enough room.
567 IF( LDA.GT.NMAX )
580 IF (TRANS.EQ.'N')THEN
582 ELSE IF (TRANS.EQ.'T')THEN
586 END IF
589 IF( TRAN )THEN
595 END IF
606 IF( NL.GT.1 )THEN
609 END IF
655 IF( FULL )THEN
656 IF( TRACE )
660 IF( REWI )
665 ELSE IF( BANDED )THEN
666 IF( TRACE )
670 IF( REWI )
675 END IF
677 * Check if error-exit was taken incorrectly.
679 IF( .NOT.OK )THEN
683 END IF
687 * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN
691 IF( FULL )THEN
698 IF( NULL )THEN
704 END IF
706 ELSE IF( BANDED )THEN
715 IF( NULL )THEN
721 END IF
723 END IF
725 * If data was incorrectly changed, report
731 IF( .NOT.ISAME( I ) )
734 IF( .NOT.SAME )THEN
737 END IF
739 IF( .NOT.NULL )THEN
748 * If got really bad answer, report and
750 IF( FATAL )
756 END IF
757 * END IF
777 IF( ERRMAX.LT.THRESH )THEN
781 END IF
786 IF( FULL )THEN
789 ELSE IF( BANDED )THEN
792 END IF
880 IF( FULL )THEN
882 ELSE IF( BANDED )THEN
884 ELSE IF( PACKED )THEN
886 END IF
895 IF( BANDED )THEN
899 END IF
901 IF( BANDED )THEN
905 END IF
906 * Set LDA to 1 more than minimum value if room.
907 IF( BANDED )THEN
911 END IF
912 IF( LDA.LT.NMAX )
914 * Skip tests if not enough room.
915 IF( LDA.GT.NMAX )
917 IF( PACKED )THEN
921 END IF
926 IF (UPLO.EQ.'U')THEN
930 END IF
947 IF( N.GT.1 )THEN
950 END IF
994 IF( FULL )THEN
995 IF( TRACE )
998 IF( REWI )
1003 ELSE IF( BANDED )THEN
1004 IF( TRACE )
1008 IF( REWI )
1013 ELSE IF( PACKED )THEN
1014 IF( TRACE )
1017 IF( REWI )
1021 END IF
1023 * Check if error-exit was taken incorrectly.
1025 IF( .NOT.OK )THEN
1029 END IF
1035 IF( FULL )THEN
1042 IF( NULL )THEN
1047 END IF
1049 ELSE IF( BANDED )THEN
1057 IF( NULL )THEN
1062 END IF
1064 ELSE IF( PACKED )THEN
1070 IF( NULL )THEN
1075 END IF
1077 END IF
1079 * If data was incorrectly changed, report and
1085 IF( .NOT.ISAME( I ) )
1088 IF( .NOT.SAME )THEN
1091 END IF
1093 IF( .NOT.NULL )THEN
1102 * If got really bad answer, report and
1104 IF( FATAL )
1109 END IF
1127 IF( ERRMAX.LT.THRESH )THEN
1131 END IF
1136 IF( FULL )THEN
1139 ELSE IF( BANDED )THEN
1142 ELSE IF( PACKED )THEN
1145 END IF
1235 IF( FULL )THEN
1237 ELSE IF( BANDED )THEN
1239 ELSE IF( PACKED )THEN
1241 END IF
1254 IF( BANDED )THEN
1258 END IF
1260 IF( BANDED )THEN
1264 END IF
1265 * Set LDA to 1 more than minimum value if room.
1266 IF( BANDED )THEN
1270 END IF
1271 IF( LDA.LT.NMAX )
1273 * Skip tests if not enough room.
1274 IF( LDA.GT.NMAX )
1276 IF( PACKED )THEN
1280 END IF
1285 IF (UPLO.EQ.'U')THEN
1289 END IF
1293 IF (TRANS.EQ.'N')THEN
1295 ELSE IF (TRANS.EQ.'T')THEN
1299 IF
1303 IF (DIAG.EQ.'N')THEN
1307 END IF
1325 IF( N.GT.1 )THEN
1328 END IF
1350 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1351 IF( FULL )THEN
1352 IF( TRACE )
1355 IF( REWI )
1359 ELSE IF( BANDED )THEN
1360 IF( TRACE )
1363 IF( REWI )
1367 ELSE IF( PACKED )THEN
1368 IF( TRACE )
1371 IF( REWI )
1375 END IF
1376 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1377 IF( FULL )THEN
1378 IF( TRACE )
1381 IF( REWI )
1385 ELSE IF( BANDED )THEN
1386 IF( TRACE )
1389 IF( REWI )
1393 ELSE IF( PACKED )THEN
1394 IF( TRACE )
1397 IF( REWI )
1401 END IF
1402 END IF
1404 * Check if error-exit was taken incorrectly.
1406 IF( .NOT.OK )THEN
1410 END IF
1418 IF( FULL )THEN
1421 IF( NULL )THEN
1426 END IF
1428 ELSE IF( BANDED )THEN
1432 IF( NULL )THEN
1437 END IF
1439 ELSE IF( PACKED )THEN
1441 IF( NULL )THEN
1446 END IF
1448 END IF
1450 * If data was incorrectly changed, report and
1456 IF( .NOT.ISAME( I ) )
1459 IF( .NOT.SAME )THEN
1462 END IF
1464 IF( .NOT.NULL )THEN
1465 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1473 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1487 END IF
1489 * If got really bad answer, report and return.
1490 IF( FATAL )
1495 END IF
1511 IF( ERRMAX.LT.THRESH )THEN
1515 END IF
1520 IF( FULL )THEN
1523 ELSE IF( BANDED )THEN
1526 ELSE IF( PACKED )THEN
1529 END IF
1623 IF( IM.EQ.1 )
1625 IF( IM.EQ.2 )
1628 * Set LDA to 1 more than minimum value if room.
1630 IF( LDA.LT.NMAX )
1632 * Skip tests if not enough room.
1633 IF( LDA.GT.NMAX )
1647 IF( M.GT.1 )THEN
1650 END IF
1661 IF( N.GT.1 )THEN
1664 END IF
1697 IF( TRACE )
1700 IF( CONJ )THEN
1701 IF( REWI )
1706 IF( REWI )
1710 END IF
1712 * Check if error-exit was taken incorrectly.
1714 IF( .NOT.OK )THEN
1718 END IF
1729 IF( NULL )THEN
1734 END IF
1737 * If data was incorrectly changed, report and return.
1742 IF( .NOT.ISAME( I ) )
1745 IF( .NOT.SAME )THEN
1748 END IF
1750 IF( .NOT.NULL )THEN
1754 IF( INCX.GT.0 )THEN
1762 END IF
1764 IF( INCY.GT.0 )THEN
1768 END IF
1769 IF( CONJ )
1776 * If got really bad answer, report and return.
1777 IF( FATAL )
1783 END IF
1797 IF( ERRMAX.LT.THRESH )THEN
1801 END IF
1894 IF( FULL )THEN
1896 ELSE IF( PACKED )THEN
1898 END IF
1906 * Set LDA to 1 more than minimum value if room.
1908 IF( LDA.LT.NMAX )
1910 * Skip tests if not enough room.
1911 IF( LDA.GT.NMAX )
1913 IF( PACKED )THEN
1917 END IF
1921 IF (UPLO.EQ.'U')THEN
1925 END IF
1937 IF( N.GT.1 )THEN
1940 END IF
1971 IF( FULL )THEN
1972 IF( TRACE )
1975 IF( REWI )
1979 ELSE IF( PACKED )THEN
1980 IF( TRACE )
1983 IF( REWI )
1987 END IF
1989 * Check if error-exit was taken incorrectly.
1991 IF( .NOT.OK )THEN
1995 END IF
2004 IF( NULL )THEN
2009 END IF
2010 IF( .NOT.PACKED )THEN
2012 END IF
2014 * If data was incorrectly changed, report and return.
2019 IF( .NOT.ISAME( I ) )
2022 IF( .NOT.SAME )THEN
2025 END IF
2027 IF( .NOT.NULL )THEN
2031 IF( INCX.GT.0 )THEN
2039 END IF
2043 IF( UPPER )THEN
2049 END IF
2054 IF( FULL )THEN
2055 IF( UPPER )THEN
2059 END IF
2062 END IF
2064 * If got really bad answer, report and return.
2065 IF( FATAL )
2069 * Avoid repeating tests if N.le.0.
2070 IF( N.LE.0 )
2072 END IF
2084 IF( ERRMAX.LT.THRESH )THEN
2088 END IF
2096 IF( FULL )THEN
2098 ELSE IF( PACKED )THEN
2100 END IF
2188 IF( FULL )THEN
2190 ELSE IF( PACKED )THEN
2192 END IF
2200 * Set LDA to 1 more than minimum value if room.
2202 IF( LDA.LT.NMAX )
2204 * Skip tests if not enough room.
2205 IF( LDA.GT.NMAX )
2207 IF( PACKED )THEN
2211 END IF
2215 IF (UPLO.EQ.'U')THEN
2219 END IF
2231 IF( N.GT.1 )THEN
2234 END IF
2245 IF( N.GT.1 )THEN
2248 END IF
2283 IF( FULL )THEN
2284 IF( TRACE )
2287 IF( REWI )
2291 ELSE IF( PACKED )THEN
2292 IF( TRACE )
2295 IF( REWI )
2299 END IF
2301 * Check if error-exit was taken incorrectly.
2303 IF( .NOT.OK )THEN
2307 END IF
2318 IF( NULL )THEN
2323 END IF
2324 IF( .NOT.PACKED )THEN
2326 END IF
2328 * If data was incorrectly changed, report and return.
2333 IF( .NOT.ISAME( I ) )
2336 IF( .NOT.SAME )THEN
2339 END IF
2341 IF( .NOT.NULL )THEN
2345 IF( INCX.GT.0 )THEN
2353 END IF
2354 IF( INCY.GT.0 )THEN
2362 END IF
2367 IF( UPPER )THEN
2373 END IF
2378 IF( FULL )THEN
2379 IF( UPPER )THEN
2383 END IF
2386 END IF
2388 * If got really bad answer, report and return.
2389 IF( FATAL )
2394 IF( N.LE.0 )
2396 END IF
2410 IF( ERRMAX.LT.THRESH )THEN
2414 END IF
2422 IF( FULL )THEN
2425 ELSE IF( PACKED )THEN
2427 END IF
2490 IF( TRAN.OR.CTRAN )THEN
2496 END IF
2497 IF( INCX.LT.0 )THEN
2503 END IF
2504 IF( INCY.LT.0 )THEN
2510 END IF
2520 IF( TRAN )THEN
2526 ELSE IF( CTRAN )THEN
2538 END IF
2549 IF( G( I ).NE.RZERO )
2552 IF( ERR*SQRT( EPS ).GE.RONE )
2555 * If the loop completes, all results are at least half accurate.
2563 IF( MV )THEN
2569 END IF
2585 * Tests if two arrays are identical.
2601 IF( RI( I ).NE.RJ( I ) )
2615 * Tests if selected elements in two arrays are equal.
2636 IF( TYPE.EQ.'ge' )THEN
2639 IF( AA( I, J ).NE.AS( I, J ) )
2643 ELSE IF( TYPE.EQ.'he' )THEN
2645 IF( UPPER )THEN
2651 END IF
2653 IF( AA( I, J ).NE.AS( I, J ) )
2657 IF( AA( I, J ).NE.AS( I, J ) )
2661 END IF
2693 IF( RESET )THEN
2701 END IF
2704 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
2705 * If initial I or J = 4 or 8, the period will be 25.
2706 * If initial I or J = 5, the period will be 10.
2715 IF( IC.GE.5 )THEN
2718 END IF
2794 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2796 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2801 END IF
2802 IF( I.NE.J )THEN
2803 IF( SYM )THEN
2805 ELSE IF( TRI )THEN
2807 END IF
2808 END IF
2809 END IF
2811 IF( SYM )
2813 IF( TRI )
2815 IF( UNIT )
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
2850 END IF
2852 IF( UNIT )THEN
2856 END IF
2858 END IF
2868 IF( SYM )THEN
2871 END IF
2873 ELSE IF( TYPE.EQ.'hb'.OR.TYPE.EQ.'tb' )THEN
2875 IF( UPPER )THEN
2878 IF( UNIT )THEN
2882 END IF
2885 IF( UNIT )THEN
2889 END IF
2891 END IF
2901 IF( SYM )THEN
2904 END IF
2906 ELSE IF( TYPE.EQ.'hp'.OR.TYPE.EQ.'tp' )THEN
2909 IF( UPPER )THEN
2915 END IF
2919 IF( I.EQ.J )THEN
2920 IF( UNIT )
2922 IF( SYM )
2924 END IF
2927 END IF
