Lines Matching refs:IF
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
103 IF( TRACE )THEN
106 END IF
123 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
126 END IF
129 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
132 END IF
136 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
139 END IF
143 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
146 END IF
155 IF( .NOT.TSTERR )THEN
158 END IF
165 IF (LAYOUT.EQ.2) THEN
169 ELSE IF (LAYOUT.EQ.1) THEN
172 ELSE IF (LAYOUT.EQ.0) THEN
175 END IF
187 IF( SNAMET.EQ.SNAMES( I ) )
202 IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
232 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
235 END IF
241 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
244 END IF
259 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
262 END IF
268 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
271 END IF
277 IF( .NOT.LTEST( ISNUM ) )THEN
283 IF( TSTERR )THEN
286 END IF
293 140 IF (CORDER) THEN
298 END IF
299 IF (RORDER) THEN
304 END IF
307 150 IF (CORDER) THEN
312 END IF
313 IF (RORDER) THEN
318 END IF
321 160 IF (CORDER) THEN
326 END IF
327 IF (RORDER) THEN
332 END IF
335 170 IF (CORDER) THEN
340 END IF
341 IF (RORDER) THEN
346 END IF
349 180 IF (CORDER) THEN
354 END IF
355 IF (RORDER) THEN
360 END IF
363 190 IF( FATAL.AND.SFATAL )
365 END IF
378 IF( TRACE )
386 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
482 * Set LDC to 1 more than minimum value if room.
484 IF( LDC.LT.NMAX )
486 * Skip tests if not enough room.
487 IF( LDC.GT.NMAX )
499 IF( TRANA )THEN
505 END IF
506 * Set LDA to 1 more than minimum value if room.
508 IF( LDA.LT.NMAX )
510 * Skip tests if not enough room.
511 IF( LDA.GT.NMAX )
524 IF( TRANB )THEN
530 END IF
531 * Set LDB to 1 more than minimum value if room.
533 IF( LDB.LT.NMAX )
535 * Skip tests if not enough room.
536 IF( LDB.GT.NMAX )
583 IF( TRACE )
587 IF( REWI )
593 * Check if error-exit was taken incorrectly.
595 IF( .NOT.OK )THEN
599 END IF
614 IF( NULL )THEN
619 END IF
622 * If data was incorrectly changed, report
628 IF( .NOT.ISAME( I ) )
631 IF( .NOT.SAME )THEN
634 END IF
636 IF( .NOT.NULL )THEN
645 * If got really bad answer, report and
647 IF( FATAL )
649 END IF
667 IF( ERRMAX.LT.THRESH )THEN
668 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
669 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
671 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
672 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
673 END IF
717 IF (TRANSA.EQ.'N')THEN
719 ELSE IF (TRANSA.EQ.'T')THEN
723 END IF
724 IF (TRANSB.EQ.'N')THEN
726 ELSE IF (TRANSB.EQ.'T')THEN
730 END IF
731 IF (IORDER.EQ.1)THEN
735 END IF
810 * Set LDC to 1 more than minimum value if room.
812 IF( LDC.LT.NMAX )
814 * Skip tests if not enough room.
815 IF( LDC.GT.NMAX )
820 * Set LDB to 1 more than minimum value if room.
822 IF( LDB.LT.NMAX )
824 * Skip tests if not enough room.
825 IF( LDB.GT.NMAX )
838 IF( LEFT )THEN
842 END IF
843 * Set LDA to 1 more than minimum value if room.
845 IF( LDA.LT.NMAX )
847 * Skip tests if not enough room.
848 IF( LDA.GT.NMAX )
897 IF( TRACE )
901 IF( REWI )
906 * Check if error-exit was taken incorrectly.
908 IF( .NOT.OK )THEN
912 END IF
926 IF( NULL )THEN
931 END IF
934 * If data was incorrectly changed, report and
940 IF( .NOT.ISAME( I ) )
943 IF( .NOT.SAME )THEN
946 END IF
948 IF( .NOT.NULL )THEN
952 IF( LEFT )THEN
962 END IF
964 * If got really bad answer, report and
966 IF( FATAL )
968 END IF
984 IF( ERRMAX.LT.THRESH )THEN
985 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
986 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
988 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
989 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
990 END IF
1032 IF (SIDE.EQ.'L')THEN
1036 END IF
1037 IF (UPLO.EQ.'U')THEN
1041 END IF
1042 IF (IORDER.EQ.1)THEN
1046 END IF
1127 * Set LDB to 1 more than minimum value if room.
1129 IF( LDB.LT.NMAX )
1131 * Skip tests if not enough room.
1132 IF( LDB.GT.NMAX )
1140 IF( LEFT )THEN
1144 END IF
1145 * Set LDA to 1 more than minimum value if room.
1147 IF( LDA.LT.NMAX )
1149 * Skip tests if not enough room.
1150 IF( LDA.GT.NMAX )
1199 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1200 IF( TRACE )
1204 IF( REWI )
1209 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1210 IF( TRACE )
1214 IF( REWI )
1219 END IF
1221 * Check if error-exit was taken incorrectly.
1223 IF( .NOT.OK )THEN
1227 END IF
1240 IF( NULL )THEN
1245 END IF
1248 * If data was incorrectly changed, report and
1254 IF( .NOT.ISAME( I ) )
1257 IF( .NOT.SAME )THEN
1260 END IF
1262 IF( .NOT.NULL )THEN
1263 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1267 IF( LEFT )THEN
1279 END IF
1280 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1294 IF( LEFT )THEN
1306 END IF
1307 END IF
1309 * If got really bad answer, report and
1311 IF( FATAL )
1313 END IF
1331 IF( ERRMAX.LT.THRESH )THEN
1332 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1333 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1335 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1336 IF
1337 END IF
1378 IF (SIDE.EQ.'L')THEN
1382 END IF
1383 IF (UPLO.EQ.'U')THEN
1387 END IF
1388 IF (TRANSA.EQ.'N')THEN
1390 ELSE IF (TRANSA.EQ.'T')THEN
1394 END IF
1395 IF (DIAG.EQ.'N')THEN
1399 END IF
1400 IF (IORDER.EQ.1)THEN
1404 END IF
1477 * Set LDC to 1 more than minimum value if room.
1479 IF( LDC.LT.NMAX )
1481 * Skip tests if not enough room.
1482 IF( LDC.GT.NMAX )
1493 IF( TRAN )THEN
1499 END IF
1500 * Set LDA to 1 more than minimum value if room.
1502 IF( LDA.LT.NMAX )
1504 * Skip tests if not enough room.
1505 IF( LDA.GT.NMAX )
1550 IF( TRACE )
1553 IF( REWI )
1558 * Check if error-exit was taken incorrectly.
1560 IF( .NOT.OK )THEN
1564 END IF
1576 IF( NULL )THEN
1581 END IF
1584 * If data was incorrectly changed, report and
1590 IF( .NOT.ISAME( I ) )
1593 IF( .NOT.SAME )THEN
1596 END IF
1598 IF( .NOT.NULL )THEN
1604 IF( UPPER )THEN
1610 END IF
1611 IF( TRAN )THEN
1625 END IF
1626 IF( UPPER )THEN
1630 END IF
1632 * If got really bad answer, report and
1634 IF( FATAL )
1637 END IF
1653 IF( ERRMAX.LT.THRESH )THEN
1654 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1655 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1657 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1658 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1659 END IF
1663 IF( N.GT.1 )
1705 IF (UPLO.EQ.'U')THEN
1709 END IF
1710 IF (TRANSA.EQ.'N')THEN
1712 ELSE IF (TRANSA.EQ.'T')THEN
1716 END IF
1717 IF (IORDER.EQ.1)THEN
1721 END IF
1794 * Set LDC to 1 more than minimum value if room.
1796 IF( LDC.LT.NMAX )
1798 * Skip tests if not enough room.
1799 IF( LDC.GT.NMAX )
1810 IF( TRAN )THEN
1816 END IF
1817 * Set LDA to 1 more than minimum value if room.
1819 IF( LDA.LT.NMAX )
1821 * Skip tests if not enough room.
1822 IF( LDA.GT.NMAX )
1828 IF( TRAN )THEN
1834 END IF
1840 IF( TRAN )THEN
1846 END IF
1888 IF( TRACE )
1891 IF( REWI )
1896 * Check if error-exit was taken incorrectly.
1898 IF( .NOT.OK )THEN
1902 END IF
1916 IF( NULL )THEN
1921 END IF
1924 * If data was incorrectly changed, report and
1930 IF( .NOT.ISAME( I ) )
1933 IF( .NOT.SAME )THEN
1936 END IF
1938 IF( .NOT.NULL )THEN
1945 IF( UPPER )THEN
1951 END IF
1952 IF( TRAN )THEN
1978 END IF
1979 IF( UPPER )THEN
1983 IF( TRAN )
1985 END IF
1987 * If got really bad answer, report and
1989 IF( FATAL )
1992 END IF
2008 IF( ERRMAX.LT.THRESH )THEN
2009 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2010 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2012 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2013 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2014 END IF
2018 IF( N.GT.1 )
2061 IF (UPLO.EQ.'U')THEN
2065 END IF
2066 IF (TRANSA.EQ.'N')THEN
2068 ELSE IF (TRANSA.EQ.'T')THEN
2072 END IF
2073 IF (IORDER.EQ.1)THEN
2077 END IF
2134 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2137 IF( I.NE.J )THEN
2139 IF( N.GT.3.AND.J.EQ.N/2 )
2141 IF( SYM )THEN
2143 ELSE IF( TRI )THEN
2145 END IF
2146 END IF
2147 END IF
2149 IF( TRI )
2151 IF( UNIT )
2157 IF( TYPE.EQ.'GE' )THEN
2166 ELSE IF( TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
2168 IF( UPPER )THEN
2170 IF( UNIT )THEN
2174 END IF
2176 IF( UNIT )THEN
2180 END IF
2182 END IF
2193 END IF
2244 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
2251 ELSE IF( TRANA.AND..NOT.TRANB )THEN
2258 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
2265 ELSE IF( TRANA.AND.TRANB )THEN
2272 END IF
2283 IF( G( I ).NE.ZERO )
2286 IF( ERR*SQRT( EPS ).GE.ONE )
2292 * If the loop completes, all results are at least half accurate.
2300 IF( MV )THEN
2304 END IF
2306 IF( N.GT.1 )
2323 * Tests if two arrays are identical.
2341 IF( RI( I ).NE.RJ( I ) )
2355 * Tests if selected elements in two arrays are equal.
2378 IF( TYPE.EQ.'GE' )THEN
2381 IF( AA( I, J ).NE.AS( I, J ) )
2385 ELSE IF( TYPE.EQ.'SY' )THEN
2387 IF( UPPER )THEN
2393 END IF
2395 IF( AA( I, J ).NE.AS( I, J ) )
2399 IF( AA( I, J ).NE.AS( I, J ) )
2403 END IF
2434 IF( RESET )THEN
2440 END IF
2443 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
2444 * If initial I = 4 or 8, the period will be 25.
2445 * If initial I = 5, the period will be 10.
2451 IF( IC.GE.5 )THEN
2454 END IF
