Lines Matching refs:IF
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
110 IF( TRACE )THEN
112 END IF
129 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
132 END IF
135 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
138 END IF
142 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
145 END IF
149 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
152 END IF
161 IF( .NOT.TSTERR )THEN
164 END IF
171 IF (LAYOUT.EQ.2) THEN
175 ELSE IF (LAYOUT.EQ.1) THEN
178 ELSE IF (LAYOUT.EQ.0) THEN
181 END IF
193 IF( SNAMET.EQ.SNAMES( I ) )
208 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
238 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
241 END IF
247 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
250 END IF
265 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
268 END IF
274 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
277 END IF
283 IF( .NOT.LTEST( ISNUM ) )THEN
289 IF( TSTERR )THEN
292 END IF
300 140 IF (CORDER) THEN
305 END IF
306 IF (RORDER) THEN
311 END IF
314 150 IF (CORDER) THEN
319 END IF
320 IF (RORDER) THEN
325 END IF
328 160 IF (CORDER) THEN
333 END IF
334 IF (RORDER) THEN
339 END IF
342 170 IF (CORDER) THEN
347 END IF
348 IF (RORDER) THEN
353 END IF
356 180 IF (CORDER) THEN
361 END IF
362 IF (RORDER) THEN
367 END IF
370 190 IF( FATAL.AND.SFATAL )
372 END IF
385 IF( TRACE )
393 9999 FORMAT(' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
495 * Set LDC to 1 more than minimum value if room.
497 IF( LDC.LT.NMAX )
499 * Skip tests if not enough room.
500 IF( LDC.GT.NMAX )
512 IF( TRANA )THEN
518 END IF
519 * Set LDA to 1 more than minimum value if room.
521 IF( LDA.LT.NMAX )
523 * Skip tests if not enough room.
524 IF( LDA.GT.NMAX )
537 IF( TRANB )THEN
543 END IF
544 * Set LDB to 1 more than minimum value if room.
546 IF( LDB.LT.NMAX )
548 * Skip tests if not enough room.
549 IF( LDB.GT.NMAX )
596 IF( TRACE )
600 IF( REWI )
606 * Check if error-exit was taken incorrectly.
608 IF( .NOT.OK )THEN
612 END IF
627 IF( NULL )THEN
632 END IF
635 * If data was incorrectly changed, report
641 IF( .NOT.ISAME( I ) )
644 IF( .NOT.SAME )THEN
647 END IF
649 IF( .NOT.NULL )THEN
658 * If got really bad answer, report and
660 IF( FATAL )
662 END IF
680 IF( ERRMAX.LT.THRESH )THEN
681 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
682 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
684 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
685 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
686 END IF
728 IF (TRANSA.EQ.'N')THEN
730 ELSE IF (TRANSA.EQ.'T')THEN
734 END IF
735 IF (TRANSB.EQ.'N')THEN
737 ELSE IF (TRANSB.EQ.'T')THEN
741 END IF
742 IF (IORDER.EQ.1)THEN
746 END IF
826 * Set LDC to 1 more than minimum value if room.
828 IF( LDC.LT.NMAX )
830 * Skip tests if not enough room.
831 IF( LDC.GT.NMAX )
835 * Set LDB to 1 more than minimum value if room.
837 IF( LDB.LT.NMAX )
839 * Skip tests if not enough room.
840 IF( LDB.GT.NMAX )
853 IF( LEFT )THEN
857 END IF
858 * Set LDA to 1 more than minimum value if room.
860 IF( LDA.LT.NMAX )
862 * Skip tests if not enough room.
863 IF( LDA.GT.NMAX )
912 IF( TRACE )
916 IF( REWI )
918 IF( CONJ )THEN
926 END IF
928 * Check if error-exit was taken incorrectly.
930 IF( .NOT.OK )THEN
934 END IF
948 IF( NULL )THEN
953 END IF
956 * If data was incorrectly changed, report and
962 IF( .NOT.ISAME( I ) )
965 IF( .NOT.SAME )THEN
968 END IF
970 IF( .NOT.NULL )THEN
974 IF( LEFT )THEN
984 END IF
986 * If got really bad answer, report and
988 IF( FATAL )
990 END IF
1006 IF( ERRMAX.LT.THRESH )THEN
1007 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1008 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1010 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1011 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1012 END IF
1054 IF (SIDE.EQ.'L')THEN
1058 END IF
1059 IF (UPLO.EQ.'U')THEN
1063 END IF
1064 IF (IORDER.EQ.1)THEN
1068 END IF
1153 * Set LDB to 1 more than minimum value if room.
1155 IF( LDB.LT.NMAX )
1157 * Skip tests if not enough room.
1158 IF( LDB.GT.NMAX )
1166 IF( LEFT )THEN
1170 END IF
1171 * Set LDA to 1 more than minimum value if room.
1173 IF( LDA.LT.NMAX )
1175 * Skip tests if not enough room.
1176 IF( LDA.GT.NMAX )
1225 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1226 IF( TRACE )
1230 IF( REWI )
1235 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1236 IF( TRACE )
1240 IF( REWI )
1245 END IF
1247 * Check if error-exit was taken incorrectly.
1249 IF( .NOT.OK )THEN
1253 END IF
1266 IF( NULL )THEN
1271 END IF
1274 * If data was incorrectly changed, report and
1280 IF( .NOT.ISAME( I ) )
1283 IF( .NOT.SAME )THEN
1286 END IF
1288 IF( .NOT.NULL )THEN
1289 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1293 IF( LEFT )THEN
1305 END IF
1306 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1320 IF( LEFT )THEN
1332 END IF
1333 END IF
1335 * If got really bad answer, report and
1337 IF( FATAL )
1339 END IF
1357 IF( ERRMAX.LT.THRESH )THEN
1358 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1359 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1361 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1362 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1363 END IF
1405 IF (SIDE.EQ.'L')THEN
1409 END IF
1410 IF (UPLO.EQ.'U')THEN
1414 END IF
1415 IF (TRANSA.EQ.'N')THEN
1417 ELSE IF (TRANSA.EQ.'T')THEN
1421 END IF
1422 IF (DIAG.EQ.'N')THEN
1426 END IF
1427 IF (IORDER.EQ.1)THEN
1431 END IF
1508 * Set LDC to 1 more than minimum value if room.
1510 IF( LDC.LT.NMAX )
1512 * Skip tests if not enough room.
1513 IF( LDC.GT.NMAX )
1523 IF( TRAN.AND..NOT.CONJ )
1525 IF( TRAN )THEN
1531 END IF
1532 * Set LDA to 1 more than minimum value if room.
1534 IF( LDA.LT.NMAX )
1536 * Skip tests if not enough room.
1537 IF( LDA.GT.NMAX )
1552 IF( CONJ )THEN
1555 END IF
1559 IF( CONJ )THEN
1562 END IF
1564 IF( CONJ )
1581 IF( CONJ )THEN
1585 END IF
1590 IF( CONJ )THEN
1594 END IF
1602 IF( CONJ )THEN
1603 IF( TRACE )
1607 IF( REWI )
1613 IF( TRACE )
1616 IF( REWI )
1620 END IF
1622 * Check if error-exit was taken incorrectly.
1624 IF( .NOT.OK )THEN
1628 END IF
1636 IF( CONJ )THEN
1640 END IF
1643 IF( CONJ )THEN
1647 END IF
1648 IF( NULL )THEN
1653 END IF
1656 * If data was incorrectly changed, report and
1662 IF( .NOT.ISAME( I ) )
1665 IF( .NOT.SAME )THEN
1668 END IF
1670 IF( .NOT.NULL )THEN
1674 IF( CONJ )THEN
1678 END IF
1681 IF( UPPER )THEN
1687 END IF
1688 IF( TRAN )THEN
1702 END IF
1703 IF( UPPER )THEN
1707 END IF
1709 * If got really bad answer, report and
1711 IF( FATAL )
1714 END IF
1730 IF( ERRMAX.LT.THRESH )THEN
1731 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1732 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1734 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1735 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1736 END IF
1740 IF( N.GT.1 )
1745 IF( CONJ )THEN
1751 END IF
1791 IF (UPLO.EQ.'U')THEN
1795 END IF
1796 IF (TRANSA.EQ.'N')THEN
1798 ELSE IF (TRANSA.EQ.'T')THEN
1802 END IF
1803 IF (IORDER.EQ.1)THEN
1807 END IF
1825 IF (UPLO.EQ.'U')THEN
1829 END IF
1830 IF (TRANSA.EQ.'N')THEN
1832 ELSE IF (TRANSA.EQ.'T')THEN
1836 END IF
1837 IF (IORDER.EQ.1)THEN
1841 END IF
1918 * Set LDC to 1 more than minimum value if room.
1920 IF( LDC.LT.NMAX )
1922 * Skip tests if not enough room.
1923 IF( LDC.GT.NMAX )
1933 IF( TRAN.AND..NOT.CONJ )
1935 IF( TRAN )THEN
1941 END IF
1942 * Set LDA to 1 more than minimum value if room.
1944 IF( LDA.LT.NMAX )
1946 * Skip tests if not enough room.
1947 IF( LDA.GT.NMAX )
1953 IF( TRAN )THEN
1959 END IF
1965 IF( TRAN )THEN
1971 END IF
1982 IF( CONJ )THEN
1985 END IF
1987 IF( CONJ )
2013 IF( CONJ )THEN
2017 END IF
2025 IF( CONJ )THEN
2026 IF( TRACE )
2030 IF( REWI )
2036 IF( TRACE )
2040 IF( REWI )
2045 END IF
2047 * Check if error-exit was taken incorrectly.
2049 IF( .NOT.OK )THEN
2053 END IF
2066 IF( CONJ )THEN
2070 END IF
2071 IF( NULL )THEN
2076 END IF
2079 * If data was incorrectly changed, report and
2085 IF( .NOT.ISAME( I ) )
2088 IF( .NOT.SAME )THEN
2091 END IF
2093 IF( .NOT.NULL )THEN
2097 IF( CONJ )THEN
2101 END IF
2105 IF( UPPER )THEN
2111 END IF
2112 IF( TRAN )THEN
2116 IF( CONJ )THEN
2124 END IF
2134 IF( CONJ )THEN
2146 END IF
2153 END IF
2154 IF( UPPER )THEN
2158 IF( TRAN )
2160 END IF
2162 * If got really bad answer, report and
2164 IF( FATAL )
2167 END IF
2183 IF( ERRMAX.LT.THRESH )THEN
2184 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2185 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2187 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2188 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2189 END IF
2193 IF( N.GT.1 )
2198 IF( CONJ )THEN
2204 END IF
2244 IF (UPLO.EQ.'U')THEN
2248 END IF
2249 IF (TRANSA.EQ.'N')THEN
2251 ELSE IF (TRANSA.EQ.'T')THEN
2255 END IF
2256 IF (IORDER.EQ.1)THEN
2260 END IF
2279 IF (UPLO.EQ.'U')THEN
2283 END IF
2284 IF (TRANSA.EQ.'N')THEN
2286 ELSE IF (TRANSA.EQ.'T')THEN
2290 END IF
2291 IF (IORDER.EQ.1)THEN
2295 END IF
2359 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2362 IF( I.NE.J )THEN
2364 IF( N.GT.3.AND.J.EQ.N/2 )
2366 IF( HER )THEN
2368 ELSE IF( SYM )THEN
2370 ELSE IF( TRI )THEN
2372 END IF
2373 END IF
2374 END IF
2376 IF( HER )
2378 IF( TRI )
2380 IF( UNIT )
2386 IF( TYPE.EQ.'ge' )THEN
2395 ELSE IF( TYPE.EQ.'he'.OR.TYPE.EQ.'sy'.OR.TYPE.EQ.'tr' )THEN
2397 IF( UPPER )THEN
2399 IF( UNIT )THEN
2403 END IF
2405 IF( UNIT )THEN
2409 END IF
2411 END IF
2421 IF( HER )THEN
2424 END IF
2426 END IF
2488 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
2495 ELSE IF( TRANA.AND..NOT.TRANB )THEN
2496 IF( CTRANA )THEN
2512 END IF
2513 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
2514 IF( CTRANB )THEN
2530 END IF
2531 ELSE IF( TRANA.AND.TRANB )THEN
2532 IF( CTRANA )THEN
2533 IF( CTRANB )THEN
2550 END IF
2552 IF( CTRANB )THEN
2568 END IF
2569 END IF
2570 END IF
2582 IF( G( I ).NE.RZERO )
2585 IF( ERR*SQRT( EPS ).GE.RONE )
2591 * If the loop completes, all results are at least half accurate.
2599 IF( MV )THEN
2603 END IF
2605 IF( N.GT.1 )
2622 * Tests if two arrays are identical.
2640 IF( RI( I ).NE.RJ( I ) )
2654 * Tests if selected elements in two arrays are equal.
2677 IF( TYPE.EQ.'ge' )THEN
2680 IF( AA( I, J ).NE.AS( I, J ) )
2684 ELSE IF( TYPE.EQ.'he'.OR.TYPE.EQ.'sy' )THEN
2686 IF( UPPER )THEN
2692 END IF
2694 IF( AA( I, J ).NE.AS( I, J ) )
2698 IF( AA( I, J ).NE.AS( I, J ) )
2702 END IF
2736 IF( RESET )THEN
2744 END IF
2747 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
2748 * If initial I or J = 4 or 8, the period will be 25.
2749 * If initial I or J = 5, the period will be 10.
2758 IF( IC.GE.5 )THEN
2761 END IF
