Lines Matching refs:IF
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
183 IF( TRACE )THEN
185 END IF
200 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
203 END IF
206 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
209 END IF
213 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
216 END IF
219 IF( KB( I ).LT.0 )THEN
222 END IF
226 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
229 END IF
232 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
235 END IF
239 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
242 END IF
246 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
249 END IF
260 IF( .NOT.TSTERR )THEN
263 END IF
276 IF( SNAMET.EQ.SNAMES( I ) )
311 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
314 END IF
319 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
322 END IF
328 IF( .NOT.LTEST( ISNUM ) )THEN
334 IF( TSTERR )THEN
337 END IF
381 200 IF( FATAL.AND.SFATAL )
383 END IF
396 IF( TRACE )
401 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
499 IF( FULL )THEN
501 ELSE IF( BANDED )THEN
503 END IF
514 IF( IM.EQ.1 )
516 IF( IM.EQ.2 )
519 IF( BANDED )THEN
523 END IF
525 IF( BANDED )THEN
531 END IF
532 * Set LDA to 1 more than minimum value if room.
533 IF( BANDED )THEN
537 END IF
538 IF( LDA.LT.NMAX )
540 * Skip tests if not enough room.
541 IF( LDA.GT.NMAX )
556 IF( TRAN )THEN
562 END IF
573 IF( NL.GT.1 )THEN
576 END IF
622 IF( FULL )THEN
623 IF( TRACE )
627 IF( REWI )
632 ELSE IF( BANDED )THEN
633 IF( TRACE )
637 IF( REWI )
642 END IF
644 * Check if error-exit was taken incorrectly.
646 IF( .NOT.OK )THEN
650 END IF
657 IF( FULL )THEN
664 IF( NULL )THEN
670 END IF
672 ELSE IF( BANDED )THEN
681 IF( NULL )THEN
687 END IF
689 END IF
691 * If data was incorrectly changed, report
697 IF( .NOT.ISAME( I ) )
700 IF( .NOT.SAME )THEN
703 END IF
705 IF( .NOT.NULL )THEN
714 * If got really bad answer, report and
716 IF( FATAL )
722 END IF
742 IF( ERRMAX.LT.THRESH )THEN
746 END IF
751 IF( FULL )THEN
754 ELSE IF( BANDED )THEN
757 END IF
844 IF( FULL )THEN
846 ELSE IF( BANDED )THEN
848 ELSE IF( PACKED )THEN
850 END IF
859 IF( BANDED )THEN
863 END IF
865 IF( BANDED )THEN
869 END IF
870 * Set LDA to 1 more than minimum value if room.
871 IF( BANDED )THEN
875 END IF
876 IF( LDA.LT.NMAX )
878 * Skip tests if not enough room.
879 IF( LDA.GT.NMAX )
881 IF( PACKED )THEN
885 END IF
906 IF( N.GT.1 )THEN
909 END IF
953 IF( FULL )THEN
954 IF( TRACE )
957 IF( REWI )
961 ELSE IF( BANDED )THEN
962 IF( TRACE )
966 IF( REWI )
970 ELSE IF( PACKED )THEN
971 IF( TRACE )
974 IF( REWI )
978 END IF
980 * Check if error-exit was taken incorrectly.
982 IF( .NOT.OK )THEN
986 END IF
992 IF( FULL )THEN
999 IF( NULL )THEN
1004 END IF
1006 ELSE IF( BANDED )THEN
1014 IF( NULL )THEN
1019 END IF
1021 ELSE IF( PACKED )THEN
1027 IF( NULL )THEN
1032 END IF
1034 END IF
1036 * If data was incorrectly changed, report and
1042 IF( .NOT.ISAME( I ) )
1045 IF( .NOT.SAME )THEN
1048 END IF
1050 IF( .NOT.NULL )THEN
1059 * If got really bad answer, report and
1061 IF( FATAL )
1066 END IF
1084 IF( ERRMAX.LT.THRESH )THEN
1088 END IF
1093 IF( FULL )THEN
1096 ELSE IF( BANDED )THEN
1099 ELSE IF( PACKED )THEN
1102 END IF
1190 IF( FULL )THEN
1192 ELSE IF( BANDED )THEN
1194 ELSE IF( PACKED )THEN
1196 END IF
1209 IF( BANDED )THEN
1213 END IF
1215 IF( BANDED )THEN
1219 END IF
1220 * Set LDA to 1 more than minimum value if room.
1221 IF( BANDED )THEN
1225 END IF
1226 IF( LDA.LT.NMAX )
1228 * Skip tests if not enough room.
1229 IF( LDA.GT.NMAX )
1231 IF( PACKED )THEN
1235 END IF
1263 IF( N.GT.1 )THEN
1266 END IF
1288 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1289 IF( FULL )THEN
1290 IF( TRACE )
1293 IF( REWI )
1297 ELSE IF( BANDED )THEN
1298 IF( TRACE )
1301 IF( REWI )
1305 ELSE IF( PACKED )THEN
1306 IF( TRACE )
1309 IF( REWI )
1313 END IF
1314 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1315 IF( FULL )THEN
1316 IF
1319 IF( REWI )
1323 ELSE IF( BANDED )THEN
1324 IF( TRACE )
1327 IF( REWI )
1331 ELSE IF( PACKED )THEN
1332 IF( TRACE )
1335 IF( REWI )
1339 END IF
1340 END IF
1342 * Check if error-exit was taken incorrectly.
1344 IF( .NOT.OK )THEN
1348 END IF
1356 IF( FULL )THEN
1359 IF( NULL )THEN
1364 END IF
1366 ELSE IF( BANDED )THEN
1370 IF( NULL )THEN
1375 END IF
1377 ELSE IF( PACKED )THEN
1379 IF( NULL )THEN
1384 END IF
1386 END IF
1388 * If data was incorrectly changed, report and
1394 IF( .NOT.ISAME( I ) )
1397 IF( .NOT.SAME )THEN
1400 END IF
1402 IF( .NOT.NULL )THEN
1403 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1411 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1425 END IF
1427 * If got really bad answer, report and return.
1428 IF( FATAL )
1433 END IF
1449 IF( ERRMAX.LT.THRESH )THEN
1453 END IF
1458 IF( FULL )THEN
1461 ELSE IF( BANDED )THEN
1464 ELSE IF( PACKED )THEN
1466 END IF
1559 IF( IM.EQ.1 )
1561 IF( IM.EQ.2 )
1564 * Set LDA to 1 more than minimum value if room.
1566 IF( LDA.LT.NMAX )
1568 * Skip tests if not enough room.
1569 IF( LDA.GT.NMAX )
1583 IF( M.GT.1 )THEN
1586 END IF
1597 IF( N.GT.1 )THEN
1600 END IF
1633 IF( TRACE )
1636 IF( CONJ )THEN
1637 IF( REWI )
1642 IF( REWI )
1646 END IF
1648 * Check if error-exit was taken incorrectly.
1650 IF( .NOT.OK )THEN
1654 END IF
1665 IF( NULL )THEN
1670 END IF
1673 * If data was incorrectly changed, report and return.
1678 IF( .NOT.ISAME( I ) )
1681 IF( .NOT.SAME )THEN
1684 END IF
1686 IF( .NOT.NULL )THEN
1690 IF( INCX.GT.0 )THEN
1698 END IF
1700 IF( INCY.GT.0 )THEN
1704 END IF
1705 IF( CONJ )
1712 * If got really bad answer, report and return.
1713 IF( FATAL )
1719 END IF
1733 IF( ERRMAX.LT.THRESH )THEN
1737 END IF
1829 IF( FULL )THEN
1831 ELSE IF( PACKED )THEN
1833 END IF
1841 * Set LDA to 1 more than minimum value if room.
1843 IF( LDA.LT.NMAX )
1845 * Skip tests if not enough room.
1846 IF( LDA.GT.NMAX )
1848 IF( PACKED )THEN
1852 END IF
1867 IF( N.GT.1 )THEN
1870 END IF
1901 IF( FULL )THEN
1902 IF( TRACE )
1905 IF( REWI )
1908 ELSE IF( PACKED )THEN
1909 IF( TRACE )
1912 IF( REWI )
1915 END IF
1917 * Check if error-exit was taken incorrectly.
1919 IF( .NOT.OK )THEN
1923 END IF
1932 IF( NULL )THEN
1937 END IF
1938 IF( .NOT.PACKED )THEN
1940 END IF
1942 * If data was incorrectly changed, report and return.
1947 IF( .NOT.ISAME( I ) )
1950 IF( .NOT.SAME )THEN
1953 END IF
1955 IF( .NOT.NULL )THEN
1959 IF( INCX.GT.0 )THEN
1967 END IF
1971 IF( UPPER )THEN
1977 END IF
1982 IF( FULL )THEN
1983 IF( UPPER )THEN
1987 END IF
1990 END IF
1992 * If got really bad answer, report and return.
1993 IF( FATAL )
1997 * Avoid repeating tests if N.le.0.
1998 IF( N.LE.0 )
2000 END IF
2012 IF( ERRMAX.LT.THRESH )THEN
2016 END IF
2024 IF( FULL )THEN
2026 ELSE IF( PACKED )THEN
2028 END IF
2114 IF( FULL )THEN
2116 ELSE IF( PACKED )THEN
2118 END IF
2126 * Set LDA to 1 more than minimum value if room.
2128 IF( LDA.LT.NMAX )
2130 * Skip tests if not enough room.
2131 IF( LDA.GT.NMAX )
2133 IF( PACKED )THEN
2137 END IF
2152 IF( N.GT.1 )THEN
2155 END IF
2166 IF( N.GT.1 )THEN
2169 END IF
2204 IF( FULL )THEN
2205 IF( TRACE )
2208 IF( REWI )
2212 ELSE IF( PACKED )THEN
2213 IF( TRACE )
2216 IF( REWI )
2220 END IF
2222 * Check if error-exit was taken incorrectly.
2224 IF( .NOT.OK )THEN
2228 END IF
2239 IF( NULL )THEN
2244 END IF
2245 IF( .NOT.PACKED )THEN
2247 END IF
2249 * If data was incorrectly changed, report and return.
2254 IF( .NOT.ISAME( I ) )
2257 IF( .NOT.SAME )THEN
2260 END IF
2262 IF( .NOT.NULL )THEN
2266 IF( INCX.GT.0 )THEN
2274 END IF
2275 IF( INCY.GT.0 )THEN
2283 END IF
2288 IF( UPPER )THEN
2294 END IF
2299 IF( FULL )THEN
2300 IF( UPPER )THEN
2304 END IF
2307 END IF
2309 * If got really bad answer, report and return.
2310 IF( FATAL )
2315 IF( N.LE.0 )
2317 END IF
2331 IF( ERRMAX.LT.THRESH )THEN
2335 END IF
2343 IF( FULL )THEN
2346 ELSE IF( PACKED )THEN
2348 END IF
2405 * if anything is wrong.
2703 180 IF( OK )THEN
2707 END IF
2770 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2772 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2777 END IF
2778 IF( I.NE.J )THEN
2779 IF( SYM )THEN
2781 ELSE IF( TRI )THEN
2783 END IF
2784 END IF
2785 END IF
2787 IF( SYM )
2789 IF( TRI )
2791 IF( UNIT )
2797 IF( TYPE.EQ.'GE' )THEN
2806 ELSE IF( TYPE.EQ.'GB' )THEN
2818 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'TR' )THEN
2820 IF( UPPER )THEN
2822 IF( UNIT )THEN
2826 END IF
2828 IF( UNIT )THEN
2832 END IF
2834 END IF
2844 IF( SYM )THEN
2847 END IF
2849 ELSE IF( TYPE.EQ.'HB'.OR.TYPE.EQ.'TB' )THEN
2851 IF( UPPER )THEN
2854 IF( UNIT )THEN
2858 END IF
2861 IF( UNIT )THEN
2865 END IF
2867 END IF
2877 IF( SYM )THEN
2880 END IF
2882 ELSE IF( TYPE.EQ.'HP'.OR.TYPE.EQ.'TP' )THEN
2885 IF( UPPER )THEN
2891 END IF
2895 IF( I.EQ.J )THEN
2896 IF( UNIT )
2898 IF( SYM )
2900 END IF
2903 END IF
2948 IF( TRAN.OR.CTRAN )THEN
2954 END IF
2955 IF( INCX.LT.0 )THEN
2961 END IF
2962 IF( INCY.LT.0 )THEN
2968 END IF
2978 IF( TRAN )THEN
2984 ELSE IF( CTRAN )THEN
2996 END IF
3007 IF( G( I ).NE.RZERO )
3010 IF( ERR*SQRT( EPS ).GE.RONE )
3013 * If the loop completes, all results are at least half accurate.
3021 IF( MV )THEN
3027 END IF
3043 * Tests if two arrays are identical.
3059 IF( RI( I ).NE.RJ( I ) )
3073 * Tests if selected elements in two arrays are equal.
3094 IF( TYPE.EQ.'GE' )THEN
3097 IF( AA( I, J ).NE.AS( I, J ) )
3101 ELSE IF( TYPE.EQ.'HE' )THEN
3103 IF( UPPER )THEN
3109 END IF
3111 IF( AA( I, J ).NE.AS( I, J ) )
3115 IF( AA( I, J ).NE.AS( I, J ) )
3119 END IF
3150 IF( RESET )THEN
3158 END IF
3161 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3162 * If initial I or J = 4 or 8, the period will be 25.
3163 * If initial I or J = 5, the period will be 10.
3172 IF( IC.GE.5 )THEN
3175 END IF
3213 IF( .NOT.LERR )THEN
3216 END IF
3234 * It is called by the Level 2 BLAS routines if an input parameter is
3255 IF( INFO.NE.INFOT )THEN
3256 IF( INFOT.NE.0 )THEN
3260 END IF
3262 END IF
3263 IF( SRNAME.NE.SRNAMT )THEN
3266 END IF
