Lines Matching refs:IF
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
128 IF( TRACE )THEN
130 END IF
147 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
150 END IF
153 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
156 END IF
160 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
163 END IF
166 IF( KB( I ).LT.0 )THEN
169 END IF
173 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
176 END IF
179 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
182 END IF
186 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
189 END IF
193 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
196 END IF
207 IF( .NOT.TSTERR )THEN
210 END IF
217 IF (LAYOUT.EQ.2) THEN
221 ELSE IF (LAYOUT.EQ.1) THEN
224 ELSE IF (LAYOUT.EQ.0) THEN
227 END IF
238 IF( SNAMET.EQ.SNAMES( I ) )
253 IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
280 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
283 END IF
288 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
291 END IF
297 IF( .NOT.LTEST( ISNUM ) )THEN
303 IF( TSTERR )THEN
306 END IF
315 140 IF (CORDER) THEN
320 END IF
321 IF (RORDER) THEN
326 END IF
329 150 IF (CORDER) THEN
334 END IF
335 IF (RORDER) THEN
340 END IF
344 160 IF (CORDER) THEN
349 END IF
350 IF (RORDER) THEN
355 END IF
358 170 IF (CORDER) THEN
363 END IF
364 IF (RORDER) THEN
369 END IF
372 180 IF (CORDER) THEN
377 END IF
378 IF (RORDER) THEN
383 END IF
386 190 IF (CORDER) THEN
391 END IF
392 IF (RORDER) THEN
397 END IF
399 200 IF( FATAL.AND.SFATAL )
401 END IF
414 IF( TRACE )
422 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
516 IF( FULL )THEN
518 ELSE IF( BANDED )THEN
520 END IF
531 IF( IM.EQ.1 )
533 IF( IM.EQ.2 )
536 IF( BANDED )THEN
540 END IF
542 IF( BANDED )THEN
548 END IF
549 * Set LDA to 1 more than minimum value if room.
550 IF( BANDED )THEN
554 END IF
555 IF( LDA.LT.NMAX )
557 * Skip tests if not enough room.
558 IF( LDA.GT.NMAX )
571 IF (TRANS.EQ.'N')THEN
573 ELSE IF (TRANS.EQ.'T')THEN
577 END IF
580 IF( TRAN )THEN
586 END IF
597 IF( NL.GT.1 )THEN
600 END IF
646 IF( FULL )THEN
647 IF( TRACE )
651 IF( REWI )
656 ELSE IF( BANDED )THEN
657 IF( TRACE )
661 IF( REWI )
666 END IF
668 * Check if error-exit was taken incorrectly.
670 IF( .NOT.OK )THEN
674 END IF
681 IF( FULL )THEN
688 IF( NULL )THEN
694 END IF
696 ELSE IF( BANDED )THEN
705 IF( NULL )THEN
711 END IF
713 END IF
715 * If data was incorrectly changed, report
721 IF( .NOT.ISAME( I ) )
724 IF( .NOT.SAME )THEN
727 END IF
729 IF( .NOT.NULL )THEN
738 * If got really bad answer, report and
740 IF( FATAL )
746 END IF
766 IF( ERRMAX.LT.THRESH )THEN
767 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
768 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
770 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
771 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
772 END IF
777 IF( FULL )THEN
780 ELSE IF( BANDED )THEN
783 END IF
876 IF( FULL )THEN
878 ELSE IF( BANDED )THEN
880 ELSE IF( PACKED )THEN
882 END IF
891 IF( BANDED )THEN
895 END IF
897 IF( BANDED )THEN
901 END IF
902 * Set LDA to 1 more than minimum value if room.
903 IF( BANDED )THEN
907 END IF
908 IF( LDA.LT.NMAX )
910 * Skip tests if not enough room.
911 IF( LDA.GT.NMAX )
913 IF( PACKED )THEN
917 END IF
922 IF (UPLO.EQ.'U')THEN
926 END IF
943 IF( N.GT.1 )THEN
946 END IF
990 IF( FULL )THEN
991 IF( TRACE )
994 IF( REWI )
998 ELSE IF( BANDED )THEN
999 IF( TRACE )
1003 IF( REWI )
1008 ELSE IF( PACKED )THEN
1009 IF( TRACE )
1012 IF( REWI )
1016 END IF
1018 * Check if error-exit was taken incorrectly.
1020 IF( .NOT.OK )THEN
1024 END IF
1030 IF( FULL )THEN
1037 IF( NULL )THEN
1042 END IF
1044 ELSE IF( BANDED )THEN
1052 IF( NULL )THEN
1057 END IF
1059 ELSE IF( PACKED )THEN
1065 IF( NULL )THEN
1070 END IF
1072 END IF
1074 * If data was incorrectly changed, report and
1080 IF( .NOT.ISAME( I ) )
1083 IF( .NOT.SAME )THEN
1086 END IF
1088 IF( .NOT.NULL )THEN
1097 * If got really bad answer, report and
1099 IF( FATAL )
1104 END IF
1122 IF( ERRMAX.LT.THRESH )THEN
1123 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1124 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1126 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1127 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1128 END IF
1133 IF( FULL )THEN
1136 ELSE IF( BANDED )THEN
1139 ELSE IF( PACKED )THEN
1142 END IF
1234 IF( FULL )THEN
1236 ELSE IF( BANDED )THEN
1238 ELSE IF( PACKED )THEN
1240 END IF
1253 IF( BANDED )THEN
1257 END IF
1259 IF( BANDED )THEN
1263 END IF
1264 * Set LDA to 1 more than minimum value if room.
1265 IF( BANDED )THEN
1269 END IF
1270 IF( LDA.LT.NMAX )
1272 * Skip tests if not enough room.
1273 IF( LDA.GT.NMAX )
1275 IF( PACKED )THEN
1279 END IF
1284 IF (UPLO.EQ.'U')THEN
1288 END IF
1292 IF
1294 ELSE IF (TRANS.EQ.'T')THEN
1298 END IF
1302 IF (DIAG.EQ.'N')THEN
1306 END IF
1324 IF( N.GT.1 )THEN
1327 END IF
1349 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1350 IF( FULL )THEN
1351 IF( TRACE )
1354 IF( REWI )
1358 ELSE IF( BANDED )THEN
1359 IF( TRACE )
1362 IF( REWI )
1366 ELSE IF( PACKED )THEN
1367 IF( TRACE )
1370 IF( REWI )
1374 END IF
1375 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1376 IF( FULL )THEN
1377 IF( TRACE )
1380 IF( REWI )
1384 ELSE IF( BANDED )THEN
1385 IF( TRACE )
1388 IF( REWI )
1392 ELSE IF( PACKED )THEN
1393 IF( TRACE )
1396 IF( REWI )
1400 END IF
1401 END IF
1403 * Check if error-exit was taken incorrectly.
1405 IF( .NOT.OK )THEN
1409 END IF
1417 IF( FULL )THEN
1420 IF( NULL )THEN
1425 END IF
1427 ELSE IF( BANDED )THEN
1431 IF( NULL )THEN
1436 END IF
1438 ELSE IF( PACKED )THEN
1440 IF( NULL )THEN
1445 END IF
1447 END IF
1449 * If data was incorrectly changed, report and
1455 IF( .NOT.ISAME( I ) )
1458 IF( .NOT.SAME )THEN
1461 END IF
1463 IF( .NOT.NULL )THEN
1464 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1472 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1486 END IF
1488 * If got really bad answer, report and return.
1489 IF( FATAL )
1494 END IF
1510 IF( ERRMAX.LT.THRESH )THEN
1511 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1512 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1514 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1515 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1516 END IF
1521 IF( FULL )THEN
1524 ELSE IF( BANDED )THEN
1527 ELSE IF( PACKED )THEN
1530 END IF
1626 IF( IM.EQ.1 )
1628 IF( IM.EQ.2 )
1631 * Set LDA to 1 more than minimum value if room.
1633 IF( LDA.LT.NMAX )
1635 * Skip tests if not enough room.
1636 IF( LDA.GT.NMAX )
1650 IF( M.GT.1 )THEN
1653 END IF
1664 IF( N.GT.1 )THEN
1667 END IF
1700 IF( TRACE )
1703 IF( REWI )
1708 * Check if error-exit was taken incorrectly.
1710 IF( .NOT.OK )THEN
1714 END IF
1725 IF( NULL )THEN
1730 END IF
1733 * If data was incorrectly changed, report and return.
1738 IF( .NOT.ISAME( I ) )
1741 IF( .NOT.SAME )THEN
1744 END IF
1746 IF( .NOT.NULL )THEN
1750 IF( INCX.GT.0 )THEN
1758 END IF
1760 IF( INCY.GT.0 )THEN
1764 END IF
1770 * If got really bad answer, report and return.
1771 IF( FATAL )
1777 END IF
1791 IF( ERRMAX.LT.THRESH )THEN
1792 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1793 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1795 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1796 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1797 END IF
1893 IF( FULL )THEN
1895 ELSE IF( PACKED )THEN
1897 END IF
1905 * Set LDA to 1 more than minimum value if room.
1907 IF( LDA.LT.NMAX )
1909 * Skip tests if not enough room.
1910 IF( LDA.GT.NMAX )
1912 IF( PACKED )THEN
1916 END IF
1920 IF (UPLO.EQ.'U')THEN
1924 END IF
1936 IF( N.GT.1 )THEN
1939 END IF
1969 IF( FULL )THEN
1970 IF( TRACE )
1973 IF( REWI )
1977 ELSE IF( PACKED )THEN
1978 IF( TRACE )
1981 IF( REWI )
1984 END IF
1986 * Check if error-exit was taken incorrectly.
1988 IF( .NOT.OK )THEN
1992 END IF
2001 IF( NULL )THEN
2006 END IF
2007 IF( .NOT.PACKED )THEN
2009 END IF
2011 * If data was incorrectly changed, report and return.
2016 IF( .NOT.ISAME( I ) )
2019 IF( .NOT.SAME )THEN
2022 END IF
2024 IF( .NOT.NULL )THEN
2028 IF( INCX.GT.0 )THEN
2036 END IF
2040 IF( UPPER )THEN
2046 END IF
2051 IF( FULL )THEN
2052 IF( UPPER )THEN
2056 END IF
2059 END IF
2061 * If got really bad answer, report and return.
2062 IF( FATAL )
2066 * Avoid repeating tests if N.le.0.
2067 IF( N.LE.0 )
2069 END IF
2081 IF( ERRMAX.LT.THRESH )THEN
2082 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2083 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2085 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2086 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2087 END IF
2095 IF( FULL )THEN
2097 ELSE IF( PACKED )THEN
2099 END IF
2190 IF( FULL )THEN
2192 ELSE IF( PACKED )THEN
2194 END IF
2202 * Set LDA to 1 more than minimum value if room.
2204 IF( LDA.LT.NMAX )
2206 * Skip tests if not enough room.
2207 IF( LDA.GT.NMAX )
2209 IF( PACKED )THEN
2213 END IF
2217 IF (UPLO.EQ.'U')THEN
2221 END IF
2233 IF( N.GT.1 )THEN
2236 END IF
2247 IF( N.GT.1 )THEN
2250 END IF
2285 IF( FULL )THEN
2286 IF( TRACE )
2289 IF( REWI )
2293 ELSE IF( PACKED )THEN
2294 IF( TRACE )
2297 IF( REWI )
2301 END IF
2303 * Check if error-exit was taken incorrectly.
2305 IF( .NOT.OK )THEN
2309 END IF
2320 IF( NULL )THEN
2325 END IF
2326 IF( .NOT.PACKED )THEN
2328 END IF
2330 * If data was incorrectly changed, report and return.
2335 IF( .NOT.ISAME( I ) )
2338 IF( .NOT.SAME )THEN
2341 END IF
2343 IF( .NOT.NULL )THEN
2347 IF( INCX.GT.0 )THEN
2355 END IF
2356 IF( INCY.GT.0 )THEN
2364 END IF
2369 IF( UPPER )THEN
2375 END IF
2380 IF( FULL )THEN
2381 IF( UPPER )THEN
2385 END IF
2388 END IF
2390 * If got really bad answer, report and return.
2391 IF( FATAL )
2396 IF( N.LE.0 )
2398 END IF
2412 IF( ERRMAX.LT.THRESH )THEN
2413 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2414 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2416 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2417 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2418 END IF
2426 IF( FULL )THEN
2429 ELSE IF( PACKED )THEN
2431 END IF
2512 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2514 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2519 END IF
2520 IF( I.NE.J )THEN
2521 IF( SYM )THEN
2523 ELSE IF( TRI )THEN
2525 END IF
2526 END IF
2527 END IF
2529 IF( TRI )
2531 IF( UNIT )
2537 IF( TYPE.EQ.'ge' )THEN
2546 ELSE IF( TYPE.EQ.'gb' )THEN
2558 ELSE IF( TYPE.EQ.'sy'.OR.TYPE.EQ.'tr' )THEN
2560 IF( UPPER )THEN
2562 IF( UNIT )THEN
2566 END IF
2568 IF( UNIT )THEN
2572 END IF
2574 END IF
2585 ELSE IF( TYPE.EQ.'sb'.OR.TYPE.EQ.'tb' )THEN
2587 IF( UPPER )THEN
2590 IF( UNIT )THEN
2594 END IF
2597 IF( UNIT )THEN
2601 END IF
2603 END IF
2614 ELSE IF( TYPE.EQ.'sp'.OR.TYPE.EQ.'tp' )THEN
2617 IF( UPPER )THEN
2623 END IF
2627 IF( I.EQ.J )THEN
2628 IF( UNIT )
2630 END IF
2633 END IF
2669 IF( TRAN )THEN
2675 END IF
2676 IF( INCX.LT.0 )THEN
2682 END IF
2683 IF( INCY.LT.0 )THEN
2689 END IF
2699 IF( TRAN )THEN
2711 END IF
2722 IF( G( I ).NE.ZERO )
2725 IF( ERR*SQRT( EPS ).GE.ONE )
2728 * If the loop completes, all results are at least half accurate.
2736 IF( MV )THEN
2742 END IF
2758 * Tests if two arrays are identical.
2774 IF( RI( I ).NE.RJ( I ) )
2788 * Tests if selected elements in two arrays are equal.
2809 IF( TYPE.EQ.'ge' )THEN
2812 IF( AA( I, J ).NE.AS( I, J ) )
2816 ELSE IF( TYPE.EQ.'sy' )THEN
2818 IF( UPPER )THEN
2824 END IF
2826 IF( AA( I, J ).NE.AS( I, J ) )
2830 IF( AA( I, J ).NE.AS( I, J ) )
2834 END IF
2865 IF( RESET )THEN
2871 END IF
2874 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
2875 * If initial I = 4 or 8, the period will be 25.
2876 * If initial I = 5, the period will be 10.
2882 IF( IC.GE.5 )THEN
2885 END IF
