Lines Matching refs:IF
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
178 IF( TRACE )THEN
180 END IF
195 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
198 END IF
201 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
204 END IF
208 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
211 END IF
214 IF( KB( I ).LT.0 )THEN
217 END IF
221 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
224 END IF
227 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
230 END IF
234 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
237 END IF
241 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
244 END IF
255 IF( .NOT.TSTERR )THEN
258 END IF
271 IF( SNAMET.EQ.SNAMES( I ) )
306 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
309 END IF
314 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
317 END IF
323 IF( .NOT.LTEST( ISNUM ) )THEN
329 IF( TSTERR )THEN
332 END IF
376 200 IF( FATAL.AND.SFATAL )
378 END IF
391 IF( TRACE )
396 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
489 IF( FULL )THEN
491 ELSE IF( BANDED )THEN
493 END IF
504 IF( IM.EQ.1 )
506 IF( IM.EQ.2 )
509 IF( BANDED )THEN
513 END IF
515 IF( BANDED )THEN
521 END IF
522 * Set LDA to 1 more than minimum value if room.
523 IF( BANDED )THEN
527 END IF
528 IF( LDA.LT.NMAX )
530 * Skip tests if not enough room.
531 IF( LDA.GT.NMAX )
546 IF( TRAN )THEN
552 END IF
563 IF( NL.GT.1 )THEN
566 END IF
612 IF( FULL )THEN
613 IF( TRACE )
617 IF( REWI )
622 ELSE IF( BANDED )THEN
623 IF( TRACE )
627 IF( REWI )
632 END IF
634 * Check if error-exit was taken incorrectly.
636 IF( .NOT.OK )THEN
640 END IF
647 IF( FULL )THEN
654 IF( NULL )THEN
660 END IF
662 ELSE IF( BANDED )THEN
671 IF( NULL )THEN
677 END IF
679 END IF
681 * If data was incorrectly changed, report
687 IF( .NOT.ISAME( I ) )
690 IF( .NOT.SAME )THEN
693 END IF
695 IF( .NOT.NULL )THEN
704 * If got really bad answer, report and
706 IF( FATAL )
712 END IF
732 IF( ERRMAX.LT.THRESH )THEN
736 END IF
741 IF( FULL )THEN
744 ELSE IF( BANDED )THEN
747 END IF
830 IF( FULL )THEN
832 ELSE IF( BANDED )THEN
834 ELSE IF( PACKED )THEN
836 END IF
845 IF( BANDED )THEN
849 END IF
851 IF( BANDED )THEN
855 END IF
856 * Set LDA to 1 more than minimum value if room.
857 IF( BANDED )THEN
861 END IF
862 IF( LDA.LT.NMAX )
864 * Skip tests if not enough room.
865 IF( LDA.GT.NMAX )
867 IF( PACKED )THEN
871 END IF
892 IF( N.GT.1 )THEN
895 END IF
939 IF( FULL )THEN
940 IF( TRACE )
943 IF( REWI )
947 ELSE IF( BANDED )THEN
948 IF( TRACE )
952 IF( REWI )
956 ELSE IF( PACKED )THEN
957 IF( TRACE )
960 IF( REWI )
964 END IF
966 * Check if error-exit was taken incorrectly.
968 IF( .NOT.OK )THEN
972 END IF
978 IF( FULL )THEN
985 IF( NULL )THEN
990 END IF
992 ELSE IF( BANDED )THEN
1000 IF( NULL )THEN
1005 END IF
1007 ELSE IF( PACKED )THEN
1013 IF( NULL )THEN
1018 END IF
1020 END IF
1022 * If data was incorrectly changed, report and
1028 IF( .NOT.ISAME( I ) )
1031 IF( .NOT.SAME )THEN
1034 END IF
1036 IF( .NOT.NULL )THEN
1045 * If got really bad answer, report and
1047 IF( FATAL )
1052 END IF
1070 IF( ERRMAX.LT.THRESH )THEN
1074 END IF
1079 IF( FULL )THEN
1082 ELSE IF( BANDED )THEN
1085 ELSE IF( PACKED )THEN
1088 END IF
1170 IF( FULL )THEN
1172 ELSE IF( BANDED )THEN
1174 ELSE IF( PACKED )THEN
1176 END IF
1189 IF( BANDED )THEN
1193 END IF
1195 IF( BANDED )THEN
1199 END IF
1200 * Set LDA to 1 more than minimum value if room.
1201 IF( BANDED )THEN
1205 END IF
1206 IF( LDA.LT.NMAX )
1208 * Skip tests if not enough room.
1209 IF( LDA.GT.NMAX )
1211 IF( PACKED )THEN
1215 END IF
1243 IF( N.GT.1 )THEN
1246 END IF
1268 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1269 IF( FULL )THEN
1270 IF( TRACE )
1273 IF( REWI )
1277 ELSE IF( BANDED )THEN
1278 IF( TRACE )
1281 IF( REWI )
1285 ELSE IF( PACKED )THEN
1286 IF( TRACE )
1289 IF( REWI )
1293 END IF
1294 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1295 IF( FULL )THEN
1296 IF( TRACE )
1299 IF( REWI )
1303 ELSE IF( BANDED )THEN
1304 IF( TRACE )
1307 IF( REWI )
1311 ELSE IF( PACKED )THEN
1312 IF( TRACE )
1315 IF( REWI )
1319 END IF
1320 END IF
1322 * Check if error-exit was taken incorrectly.
1324 IF( .NOT.OK )THEN
1328 END IF
1336 IF( FULL )THEN
1339 IF( NULL )THEN
1344 END IF
1346 ELSE IF( BANDED )THEN
1350 IF( NULL )THEN
1355 END IF
1357 ELSE IF( PACKED )THEN
1359 IF( NULL )THEN
1364 END IF
1366 END IF
1368 * If data was incorrectly changed, report and
1374 IF( .NOT.ISAME( I ) )
1377 IF( .NOT.SAME )THEN
1380 END IF
1382 IF( .NOT.NULL )THEN
1383 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1391 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1405 END IF
1407 * If got really bad answer, report and return.
1408 IF( FATAL )
1413 END IF
1429 IF( ERRMAX.LT.THRESH )THEN
1433 END IF
1438 IF( FULL )THEN
1441 ELSE IF( BANDED )THEN
1444 ELSE IF( PACKED )THEN
1446 END IF
1533 IF( IM.EQ.1 )
1535 IF( IM.EQ.2 )
1538 * Set LDA to 1 more than minimum value if room.
1540 IF( LDA.LT.NMAX )
1542 * Skip tests if not enough room.
1543 IF( LDA.GT.NMAX )
1557 IF( M.GT.1 )THEN
1560 END IF
1571 IF( N.GT.1 )THEN
1574 END IF
1607 IF( TRACE )
1610 IF( REWI )
1615 * Check if error-exit was taken incorrectly.
1617 IF( .NOT.OK )THEN
1621 END IF
1632 IF( NULL )THEN
1637 END IF
1640 * If data was incorrectly changed, report and return.
1645 IF( .NOT.ISAME( I ) )
1648 IF( .NOT.SAME )THEN
1651 END IF
1653 IF( .NOT.NULL )THEN
1657 IF( INCX.GT.0 )THEN
1665 END IF
1667 IF( INCY.GT.0 )THEN
1671 END IF
1677 * If got really bad answer, report and return.
1678 IF( FATAL )
1684 END IF
1698 IF( ERRMAX.LT.THRESH )THEN
1702 END IF
1788 IF( FULL )THEN
1790 ELSE IF( PACKED )THEN
1792 END IF
1800 * Set LDA to 1 more than minimum value if room.
1802 IF( LDA.LT.NMAX )
1804 * Skip tests if not enough room.
1805 IF( LDA.GT.NMAX )
1807 IF( PACKED )THEN
1811 END IF
1826 IF( N.GT.1 )THEN
1829 END IF
1859 IF( FULL )THEN
1860 IF( TRACE )
1863 IF( REWI )
1866 ELSE IF( PACKED )THEN
1867 IF( TRACE )
1870 IF( REWI )
1873 END IF
1875 * Check if error-exit was taken incorrectly.
1877 IF( .NOT.OK )THEN
1881 END IF
1890 IF( NULL )THEN
1895 END IF
1896 IF( .NOT.PACKED )THEN
1898 END IF
1900 * If data was incorrectly changed, report and return.
1905 IF( .NOT.ISAME( I ) )
1908 IF( .NOT.SAME )THEN
1911 END IF
1913 IF( .NOT.NULL )THEN
1917 IF( INCX.GT.0 )THEN
1925 END IF
1929 IF( UPPER )THEN
1935 END IF
1940 IF( FULL )THEN
1941 IF( UPPER )THEN
1945 END IF
1948 END IF
1950 * If got really bad answer, report and return.
1951 IF( FATAL )
1955 * Avoid repeating tests if N.le.0.
1956 IF( N.LE.0 )
1958 END IF
1970 IF( ERRMAX.LT.THRESH )THEN
1974 END IF
1982 IF( FULL )THEN
1984 ELSE IF( PACKED )THEN
1986 END IF
2067 IF( FULL )THEN
2069 ELSE IF( PACKED )THEN
2071 END IF
2079 * Set LDA to 1 more than minimum value if room.
2081 IF( LDA.LT.NMAX )
2083 * Skip tests if not enough room.
2084 IF( LDA.GT.NMAX )
2086 IF( PACKED )THEN
2090 END IF
2105 IF( N.GT.1 )THEN
2108 END IF
2119 IF( N.GT.1 )THEN
2122 END IF
2157 IF( FULL )THEN
2158 IF( TRACE )
2161 IF( REWI )
2165 ELSE IF( PACKED )THEN
2166 IF( TRACE )
2169 IF( REWI )
2173 END IF
2175 * Check if error-exit was taken incorrectly.
2177 IF( .NOT.OK )THEN
2181 END IF
2192 IF( NULL )THEN
2197 END IF
2198 IF( .NOT.PACKED )THEN
2200 END IF
2202 * If data was incorrectly changed, report and return.
2207 IF( .NOT.ISAME( I ) )
2210 IF( .NOT.SAME )THEN
2213 END IF
2215 IF( .NOT.NULL )THEN
2219 IF( INCX.GT.0 )THEN
2227 END IF
2228 IF( INCY.GT.0 )THEN
2236 END IF
2241 IF( UPPER )THEN
2247 END IF
2252 IF( FULL )THEN
2253 IF( UPPER )THEN
2257 END IF
2260 END IF
2262 * If got really bad answer, report and return.
2263 IF( FATAL )
2268 IF( N.LE.0 )
2270 END IF
2284 IF( ERRMAX.LT.THRESH )THEN
2288 END IF
2296 IF( FULL )THEN
2299 ELSE IF( PACKED )THEN
2301 END IF
2355 * if anything is wrong.
2637 170 IF( OK )THEN
2641 END IF
2700 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2702 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2707 END IF
2708 IF( I.NE.J )THEN
2709 IF( SYM )THEN
2711 ELSE IF( TRI )THEN
2713 END IF
2714 END IF
2715 END IF
2717 IF( TRI )
2719 IF( UNIT )
2725 IF( TYPE.EQ.'GE' )THEN
2734 ELSE IF( TYPE.EQ.'GB' )THEN
2746 ELSE IF( TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
2748 IF( UPPER )THEN
2750 IF( UNIT )THEN
2754 END IF
2756 IF( UNIT )THEN
2760 END IF
2762 END IF
2773 ELSE IF( TYPE.EQ.'SB'.OR.TYPE.EQ.'TB' )THEN
2775 IF( UPPER )THEN
2778 IF( UNIT )THEN
2782 END IF
2785 IF( UNIT )THEN
2789 END IF
2791 END IF
2802 ELSE IF( TYPE.EQ.'SP'.OR.TYPE.EQ.'TP' )THEN
2805 IF( UPPER )THEN
2811 END IF
2815 IF( I.EQ.J )THEN
2816 IF( UNIT )
2818 END IF
2821 END IF
2857 IF( TRAN )THEN
2863 END IF
2864 IF( INCX.LT.0 )THEN
2870 END IF
2871 IF( INCY.LT.0 )THEN
2877 END IF
2887 IF( TRAN )THEN
2899 END IF
2910 IF( G( I ).NE.ZERO )
2913 IF( ERR*SQRT( EPS ).GE.ONE )
2916 * If the loop completes, all results are at least half accurate.
2924 IF( MV )THEN
2930 END IF
2946 * Tests if two arrays are identical.
2962 IF( RI( I ).NE.RJ( I ) )
2976 * Tests if selected elements in two arrays are equal.
2997 IF( TYPE.EQ.'GE' )THEN
3000 IF( AA( I, J ).NE.AS( I, J ) )
3004 ELSE IF( TYPE.EQ.'SY' )THEN
3006 IF( UPPER )THEN
3012 END IF
3014 IF( AA( I, J ).NE.AS( I, J ) )
3018 IF( AA( I, J ).NE.AS( I, J ) )
3022 END IF
3052 IF( RESET )THEN
3058 END IF
3061 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
3062 * If initial I = 4 or 8, the period will be 25.
3063 * If initial I = 5, the period will be 10.
3069 IF( IC.GE.5 )THEN
3072 END IF
3110 IF( .NOT.LERR )THEN
3113 END IF
3131 * It is called by the Level 2 BLAS routines if an input parameter is
3152 IF( INFO.NE.INFOT )THEN
3153 IF( INFOT.NE.0 )THEN
3157 END IF
3159 END IF
3160 IF( SRNAME.NE.SRNAMT )THEN
3163 END IF
