Lines Matching refs:IF
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
111 IF( TRACE )THEN
113 END IF
130 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
133 END IF
136 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
139 END IF
143 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
146 END IF
150 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
153 END IF
162 IF( .NOT.TSTERR )THEN
165 END IF
172 IF (LAYOUT.EQ.2) THEN
176 ELSE IF (LAYOUT.EQ.1) THEN
179 ELSE IF (LAYOUT.EQ.0) THEN
182 END IF
194 IF( SNAMET.EQ.SNAMES( I ) )
209 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
239 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
242 END IF
248 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
251 END IF
266 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
269 END IF
275 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
278 END IF
284 IF( .NOT.LTEST( ISNUM ) )THEN
290 IF( TSTERR )THEN
293 END IF
301 140 IF (CORDER) THEN
306 END IF
307 IF (RORDER) THEN
312 END IF
315 150 IF (CORDER) THEN
320 END IF
321 IF (RORDER) THEN
326 END IF
329 160 IF (CORDER) THEN
334 END IF
335 IF (RORDER) THEN
340 END IF
343 170 IF (CORDER) THEN
348 END IF
349 IF (RORDER) THEN
354 END IF
357 180 IF (CORDER) THEN
362 END IF
363 IF (RORDER) THEN
368 END IF
371 190 IF( FATAL.AND.SFATAL )
373 END IF
386 IF( TRACE )
394 9999 FORMAT(' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
496 * Set LDC to 1 more than minimum value if room.
498 IF( LDC.LT.NMAX )
500 * Skip tests if not enough room.
501 IF( LDC.GT.NMAX )
513 IF( TRANA )THEN
519 END IF
520 * Set LDA to 1 more than minimum value if room.
522 IF( LDA.LT.NMAX )
524 * Skip tests if not enough room.
525 IF( LDA.GT.NMAX )
538 IF( TRANB )THEN
544 END IF
545 * Set LDB to 1 more than minimum value if room.
547 IF( LDB.LT.NMAX )
549 * Skip tests if not enough room.
550 IF( LDB.GT.NMAX )
597 IF( TRACE )
601 IF( REWI )
607 * Check if error-exit was taken incorrectly.
609 IF( .NOT.OK )THEN
613 END IF
628 IF( NULL )THEN
633 END IF
636 * If data was incorrectly changed, report
642 IF( .NOT.ISAME( I ) )
645 IF( .NOT.SAME )THEN
648 END IF
650 IF( .NOT.NULL )THEN
659 * If got really bad answer, report and
661 IF( FATAL )
663 END IF
681 IF( ERRMAX.LT.THRESH )THEN
682 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
683 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
685 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
686 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
687 END IF
729 IF (TRANSA.EQ.'N')THEN
731 ELSE IF (TRANSA.EQ.'T')THEN
735 END IF
736 IF (TRANSB.EQ.'N')THEN
738 ELSE IF (TRANSB.EQ.'T')THEN
742 END IF
743 IF (IORDER.EQ.1)THEN
747 END IF
827 * Set LDC to 1 more than minimum value if room.
829 IF( LDC.LT.NMAX )
831 * Skip tests if not enough room.
832 IF( LDC.GT.NMAX )
836 * Set LDB to 1 more than minimum value if room.
838 IF( LDB.LT.NMAX )
840 * Skip tests if not enough room.
841 IF( LDB.GT.NMAX )
854 IF( LEFT )THEN
858 END IF
859 * Set LDA to 1 more than minimum value if room.
861 IF( LDA.LT.NMAX )
863 * Skip tests if not enough room.
864 IF( LDA.GT.NMAX )
913 IF( TRACE )
917 IF( REWI )
919 IF( CONJ )THEN
927 END IF
929 * Check if error-exit was taken incorrectly.
931 IF( .NOT.OK )THEN
935 END IF
949 IF( NULL )THEN
954 END IF
957 * If data was incorrectly changed, report and
963 IF( .NOT.ISAME( I ) )
966 IF( .NOT.SAME )THEN
969 END IF
971 IF( .NOT.NULL )THEN
975 IF( LEFT )THEN
985 END IF
987 * If got really bad answer, report and
989 IF( FATAL )
991 END IF
1007 IF( ERRMAX.LT.THRESH )THEN
1008 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1009 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1011 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1012 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1013 END IF
1055 IF (SIDE.EQ.'L')THEN
1059 END IF
1060 IF (UPLO.EQ.'U')THEN
1064 END IF
1065 IF (IORDER.EQ.1)THEN
1069 END IF
1154 * Set LDB to 1 more than minimum value if room.
1156 IF( LDB.LT.NMAX )
1158 * Skip tests if not enough room.
1159 IF( LDB.GT.NMAX )
1167 IF( LEFT )THEN
1171 END IF
1172 * Set LDA to 1 more than minimum value if room.
1174 IF( LDA.LT.NMAX )
1176 * Skip tests if not enough room.
1177 IF( LDA.GT.NMAX )
1226 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1227 IF( TRACE )
1231 IF( REWI )
1236 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1237 IF( TRACE )
1241 IF( REWI )
1246 END IF
1248 * Check if error-exit was taken incorrectly.
1250 IF( .NOT.OK )THEN
1254 END IF
1267 IF( NULL )THEN
1272 END IF
1275 * If data was incorrectly changed, report and
1281 IF( .NOT.ISAME( I ) )
1284 IF( .NOT.SAME )THEN
1287 END IF
1289 IF( .NOT.NULL )THEN
1290 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1294 IF( LEFT )THEN
1306 END IF
1307 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1321 IF( LEFT )THEN
1333 END IF
1334 END IF
1336 * If got really bad answer, report and
1338 IF( FATAL )
1340 END IF
1358 IF( ERRMAX.LT.THRESH )THEN
1359 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1360 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1362 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1363 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1364 END IF
1406 IF (SIDE.EQ.'L')THEN
1410 END IF
1411 IF (UPLO.EQ.'U')THEN
1415 END IF
1416 IF (TRANSA.EQ.'N')THEN
1418 ELSE IF (TRANSA.EQ.'T')THEN
1422 END IF
1423 IF (DIAG.EQ.'N')THEN
1427 END IF
1428 IF (IORDER.EQ.1)THEN
1432 END IF
1509 * Set LDC to 1 more than minimum value if room.
1511 IF( LDC.LT.NMAX )
1513 * Skip tests if not enough room.
1514 IF( LDC.GT.NMAX )
1524 IF( TRAN.AND..NOT.CONJ )
1526 IF( TRAN )THEN
1532 END IF
1533 * Set LDA to 1 more than minimum value if room.
1535 IF( LDA.LT.NMAX )
1537 * Skip tests if not enough room.
1538 IF( LDA.GT.NMAX )
1553 IF( CONJ )THEN
1556 END IF
1560 IF( CONJ )THEN
1563 END IF
1565 IF( CONJ )
1582 IF( CONJ )THEN
1586 END IF
1591 IF( CONJ )THEN
1595 END IF
1603 IF( CONJ )THEN
1604 IF( TRACE )
1608 IF( REWI )
1614 IF( TRACE )
1617 IF( REWI )
1621 END IF
1623 * Check if error-exit was taken incorrectly.
1625 IF( .NOT.OK )THEN
1629 END IF
1637 IF( CONJ )THEN
1641 END IF
1644 IF( CONJ )THEN
1648 END IF
1649 IF( NULL )THEN
1654 END IF
1657 * If data was incorrectly changed, report and
1663 IF( .NOT.ISAME( I ) )
1666 IF( .NOT.SAME )THEN
1669 END IF
1671 IF( .NOT.NULL )THEN
1675 IF( CONJ )THEN
1679 END IF
1682 IF( UPPER )THEN
1688 END IF
1689 IF( TRAN )THEN
1703 END IF
1704 IF( UPPER )THEN
1708 END IF
1710 * If got really bad answer, report and
1712 IF( FATAL )
1715 END IF
1731 IF( ERRMAX.LT.THRESH )THEN
1732 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1733 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1735 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1736 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1737 END IF
1741 IF( N.GT.1 )
1746 IF( CONJ )THEN
1752 END IF
1792 IF (UPLO.EQ.'U')THEN
1796 END IF
1797 IF (TRANSA.EQ.'N')THEN
1799 ELSE IF (TRANSA.EQ.'T')THEN
1803 END IF
1804 IF (IORDER.EQ.1)THEN
1808 END IF
1826 IF (UPLO.EQ.'U')THEN
1830 END IF
1831 IF (TRANSA.EQ.'N')THEN
1833 ELSE IF (TRANSA.EQ.'T')THEN
1837 END IF
1838 IF (IORDER.EQ.1)THEN
1842 END IF
1919 * Set LDC to 1 more than minimum value if room.
1921 IF( LDC.LT.NMAX )
1923 * Skip tests if not enough room.
1924 IF( LDC.GT.NMAX )
1934 IF( TRAN.AND..NOT.CONJ )
1936 IF( TRAN )THEN
1942 END IF
1943 * Set LDA to 1 more than minimum value if room.
1945 IF( LDA.LT.NMAX )
1947 * Skip tests if not enough room.
1948 IF( LDA.GT.NMAX )
1954 IF( TRAN )THEN
1960 END IF
1966 IF( TRAN )THEN
1972 END IF
1983 IF( CONJ )THEN
1986 END IF
1988 IF( CONJ )
2014 IF( CONJ )THEN
2018 END IF
2026 IF( CONJ )THEN
2027 IF( TRACE )
2031 IF( REWI )
2037 IF( TRACE )
2041 IF( REWI )
2046 END IF
2048 * Check if error-exit was taken incorrectly.
2050 IF( .NOT.OK )THEN
2054 END IF
2067 IF( CONJ )THEN
2071 END IF
2072 IF( NULL )THEN
2077 END IF
2080 * If data was incorrectly changed, report and
2086 IF( .NOT.ISAME( I ) )
2089 IF( .NOT.SAME )THEN
2092 END IF
2094 IF( .NOT.NULL )THEN
2098 IF( CONJ )THEN
2102 END IF
2106 IF( UPPER )THEN
2112 END IF
2113 IF( TRAN )THEN
2117 IF( CONJ )THEN
2125 END IF
2135 IF( CONJ )THEN
2147 END IF
2154 END IF
2155 IF( UPPER )THEN
2159 IF( TRAN )
2161 END IF
2163 * If got really bad answer, report and
2165 IF( FATAL )
2168 END IF
2184 IF( ERRMAX.LT.THRESH )THEN
2185 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2186 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2188 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2189 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2190 END IF
2194 IF( N.GT.1 )
2199 IF( CONJ )THEN
2205 END IF
2245 IF (UPLO.EQ.'U')THEN
2249 END IF
2250 IF (TRANSA.EQ.'N')THEN
2252 ELSE IF (TRANSA.EQ.'T')THEN
2256 END IF
2257 IF (IORDER.EQ.1)THEN
2261 END IF
2280 IF (UPLO.EQ.'U')THEN
2284 END IF
2285 IF (TRANSA.EQ.'N')THEN
2287 ELSE IF (TRANSA.EQ.'T')THEN
2291 END IF
2292 IF (IORDER.EQ.1)THEN
2296 END IF
2361 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2364 IF( I.NE.J )THEN
2366 IF( N.GT.3.AND.J.EQ.N/2 )
2368 IF( HER )THEN
2370 ELSE IF( SYM )THEN
2372 ELSE IF( TRI )THEN
2374 END IF
2375 END IF
2376 END IF
2378 IF( HER )
2380 IF( TRI )
2382 IF( UNIT )
2388 IF( TYPE.EQ.'ge' )THEN
2397 ELSE IF( TYPE.EQ.'he'.OR.TYPE.EQ.'sy'.OR.TYPE.EQ.'tr' )THEN
2399 IF( UPPER )THEN
2401 IF( UNIT )THEN
2405 END IF
2407 IF( UNIT )THEN
2411 END IF
2413 END IF
2423 IF( HER )THEN
2426 END IF
2428 END IF
2490 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
2497 ELSE IF( TRANA.AND..NOT.TRANB )THEN
2498 IF( CTRANA )THEN
2514 END IF
2515 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
2516 IF( CTRANB )THEN
2532 END IF
2533 ELSE IF( TRANA.AND.TRANB )THEN
2534 IF( CTRANA )THEN
2535 IF( CTRANB )THEN
2553 END IF
2555 IF( CTRANB )THEN
2572 END IF
2573 END IF
2574 END IF
2586 IF( G( I ).NE.RZERO )
2589 IF( ERR*SQRT( EPS ).GE.RONE )
2595 * If the loop completes, all results are at least half accurate.
2603 IF( MV )THEN
2607 END IF
2609 IF( N.GT.1 )
2626 * Tests if two arrays are identical.
2644 IF( RI( I ).NE.RJ( I ) )
2658 * Tests if selected elements in two arrays are equal.
2681 IF( TYPE.EQ.'ge' )THEN
2684 IF( AA( I, J ).NE.AS( I, J ) )
2688 ELSE IF( TYPE.EQ.'he'.OR.TYPE.EQ.'sy' )THEN
2690 IF( UPPER )THEN
2696 END IF
2698 IF( AA( I, J ).NE.AS( I, J ) )
2702 IF( AA( I, J ).NE.AS( I, J ) )
2706 END IF
2740 IF( RESET )THEN
2748 END IF
2751 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
2752 * If initial I or J = 4 or 8, the period will be 25.
2753 * If initial I or J = 5, the period will be 10.
2762 IF( IC.GE.5 )THEN
2765 END IF
