Lines Matching refs:IF
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
184 IF( TRACE )THEN
186 END IF
201 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
204 END IF
207 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
210 END IF
214 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
217 END IF
220 IF( KB( I ).LT.0 )THEN
223 END IF
227 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
230 END IF
233 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
236 END IF
240 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
243 END IF
247 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
250 END IF
261 IF( .NOT.TSTERR )THEN
264 END IF
277 IF( SNAMET.EQ.SNAMES( I ) )
312 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
315 END IF
320 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
323 END IF
329 IF( .NOT.LTEST( ISNUM ) )THEN
335 IF( TSTERR )THEN
338 END IF
382 200 IF( FATAL.AND.SFATAL )
384 END IF
397 IF( TRACE )
402 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
501 IF( FULL )THEN
503 ELSE IF( BANDED )THEN
505 END IF
516 IF( IM.EQ.1 )
518 IF( IM.EQ.2 )
521 IF( BANDED )THEN
525 END IF
527 IF( BANDED )THEN
533 END IF
534 * Set LDA to 1 more than minimum value if room.
535 IF( BANDED )THEN
539 END IF
540 IF( LDA.LT.NMAX )
542 * Skip tests if not enough room.
543 IF( LDA.GT.NMAX )
558 IF( TRAN )THEN
564 END IF
575 IF( NL.GT.1 )THEN
578 END IF
624 IF( FULL )THEN
625 IF( TRACE )
629 IF( REWI )
634 ELSE IF( BANDED )THEN
635 IF( TRACE )
639 IF( REWI )
644 END IF
646 * Check if error-exit was taken incorrectly.
648 IF( .NOT.OK )THEN
652 END IF
659 IF( FULL )THEN
666 IF( NULL )THEN
672 END IF
674 ELSE IF( BANDED )THEN
683 IF( NULL )THEN
689 END IF
691 END IF
693 * If data was incorrectly changed, report
699 IF( .NOT.ISAME( I ) )
702 IF( .NOT.SAME )THEN
705 END IF
707 IF( .NOT.NULL )THEN
716 * If got really bad answer, report and
718 IF( FATAL )
724 END IF
744 IF( ERRMAX.LT.THRESH )THEN
748 END IF
753 IF( FULL )THEN
756 ELSE IF( BANDED )THEN
759 END IF
847 IF( FULL )THEN
849 ELSE IF( BANDED )THEN
851 ELSE IF( PACKED )THEN
853 END IF
862 IF( BANDED )THEN
866 END IF
868 IF( BANDED )THEN
872 END IF
873 * Set LDA to 1 more than minimum value if room.
874 IF( BANDED )THEN
878 END IF
879 IF( LDA.LT.NMAX )
881 * Skip tests if not enough room.
882 IF( LDA.GT.NMAX )
884 IF( PACKED )THEN
888 END IF
909 IF( N.GT.1 )THEN
912 END IF
956 IF( FULL )THEN
957 IF( TRACE )
960 IF( REWI )
964 ELSE IF( BANDED )THEN
965 IF( TRACE )
969 IF( REWI )
973 ELSE IF( PACKED )THEN
974 IF( TRACE )
977 IF( REWI )
981 END IF
983 * Check if error-exit was taken incorrectly.
985 IF( .NOT.OK )THEN
989 END IF
995 IF( FULL )THEN
1002 IF( NULL )THEN
1007 END IF
1009 ELSE IF( BANDED )THEN
1017 IF( NULL )THEN
1022 END IF
1024 ELSE IF( PACKED )THEN
1030 IF( NULL )THEN
1035 END IF
1037 END IF
1039 * If data was incorrectly changed, report and
1045 IF( .NOT.ISAME( I ) )
1048 IF( .NOT.SAME )THEN
1051 END IF
1053 IF( .NOT.NULL )THEN
1062 * If got really bad answer, report and
1064 IF( FATAL )
1069 END IF
1087 IF( ERRMAX.LT.THRESH )THEN
1091 END IF
1096 IF( FULL )THEN
1099 ELSE IF( BANDED )THEN
1102 ELSE IF( PACKED )THEN
1105 END IF
1194 IF( FULL )THEN
1196 ELSE IF( BANDED )THEN
1198 ELSE IF( PACKED )THEN
1200 END IF
1213 IF( BANDED )THEN
1217 END IF
1219 IF( BANDED )THEN
1223 END IF
1224 * Set LDA to 1 more than minimum value if room.
1225 IF( BANDED )THEN
1229 END IF
1230 IF( LDA.LT.NMAX )
1232 * Skip tests if not enough room.
1233 IF( LDA.GT.NMAX )
1235 IF( PACKED )THEN
1239 END IF
1267 IF( N.GT.1 )THEN
1270 END IF
1292 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1293 IF( FULL )THEN
1294 IF( TRACE )
1297 IF( REWI )
1301 ELSE IF( BANDED )THEN
1302 IF( TRACE )
1305 IF( REWI )
1309 ELSE IF( PACKED )THEN
1310 IF( TRACE )
1313 IF( REWI )
1317 IF
1318 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1319 IF( FULL )THEN
1320 IF( TRACE )
1323 IF( REWI )
1327 ELSE IF( BANDED )THEN
1328 IF( TRACE )
1331 IF( REWI )
1335 ELSE IF( PACKED )THEN
1336 IF( TRACE )
1339 IF( REWI )
1343 END IF
1344 END IF
1346 * Check if error-exit was taken incorrectly.
1348 IF( .NOT.OK )THEN
1352 END IF
1360 IF( FULL )THEN
1363 IF( NULL )THEN
1368 END IF
1370 ELSE IF( BANDED )THEN
1374 IF( NULL )THEN
1379 END IF
1381 ELSE IF( PACKED )THEN
1383 IF( NULL )THEN
1388 END IF
1390 END IF
1392 * If data was incorrectly changed, report and
1398 IF( .NOT.ISAME( I ) )
1401 IF( .NOT.SAME )THEN
1404 END IF
1406 IF( .NOT.NULL )THEN
1407 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1415 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1429 END IF
1431 * If got really bad answer, report and return.
1432 IF( FATAL )
1437 END IF
1453 IF( ERRMAX.LT.THRESH )THEN
1457 END IF
1462 IF( FULL )THEN
1465 ELSE IF( BANDED )THEN
1468 ELSE IF( PACKED )THEN
1470 END IF
1564 IF( IM.EQ.1 )
1566 IF( IM.EQ.2 )
1569 * Set LDA to 1 more than minimum value if room.
1571 IF( LDA.LT.NMAX )
1573 * Skip tests if not enough room.
1574 IF( LDA.GT.NMAX )
1588 IF( M.GT.1 )THEN
1591 END IF
1602 IF( N.GT.1 )THEN
1605 END IF
1638 IF( TRACE )
1641 IF( CONJ )THEN
1642 IF( REWI )
1647 IF( REWI )
1651 END IF
1653 * Check if error-exit was taken incorrectly.
1655 IF( .NOT.OK )THEN
1659 END IF
1670 IF( NULL )THEN
1675 END IF
1678 * If data was incorrectly changed, report and return.
1683 IF( .NOT.ISAME( I ) )
1686 IF( .NOT.SAME )THEN
1689 END IF
1691 IF( .NOT.NULL )THEN
1695 IF( INCX.GT.0 )THEN
1703 END IF
1705 IF( INCY.GT.0 )THEN
1709 END IF
1710 IF( CONJ )
1717 * If got really bad answer, report and return.
1718 IF( FATAL )
1724 END IF
1738 IF( ERRMAX.LT.THRESH )THEN
1742 END IF
1835 IF( FULL )THEN
1837 ELSE IF( PACKED )THEN
1839 END IF
1847 * Set LDA to 1 more than minimum value if room.
1849 IF( LDA.LT.NMAX )
1851 * Skip tests if not enough room.
1852 IF( LDA.GT.NMAX )
1854 IF( PACKED )THEN
1858 END IF
1873 IF( N.GT.1 )THEN
1876 END IF
1907 IF( FULL )THEN
1908 IF( TRACE )
1911 IF( REWI )
1914 ELSE IF( PACKED )THEN
1915 IF( TRACE )
1918 IF( REWI )
1921 END IF
1923 * Check if error-exit was taken incorrectly.
1925 IF( .NOT.OK )THEN
1929 END IF
1938 IF( NULL )THEN
1943 END IF
1944 IF( .NOT.PACKED )THEN
1946 END IF
1948 * If data was incorrectly changed, report and return.
1953 IF( .NOT.ISAME( I ) )
1956 IF( .NOT.SAME )THEN
1959 END IF
1961 IF( .NOT.NULL )THEN
1965 IF( INCX.GT.0 )THEN
1973 END IF
1977 IF( UPPER )THEN
1983 END IF
1988 IF( FULL )THEN
1989 IF( UPPER )THEN
1993 END IF
1996 END IF
1998 * If got really bad answer, report and return.
1999 IF( FATAL )
2003 * Avoid repeating tests if N.le.0.
2004 IF( N.LE.0 )
2006 END IF
2018 IF( ERRMAX.LT.THRESH )THEN
2022 END IF
2030 IF( FULL )THEN
2032 ELSE IF( PACKED )THEN
2034 END IF
2121 IF( FULL )THEN
2123 ELSE IF( PACKED )THEN
2125 END IF
2133 * Set LDA to 1 more than minimum value if room.
2135 IF( LDA.LT.NMAX )
2137 * Skip tests if not enough room.
2138 IF( LDA.GT.NMAX )
2140 IF( PACKED )THEN
2144 END IF
2159 IF( N.GT.1 )THEN
2162 END IF
2173 IF( N.GT.1 )THEN
2176 END IF
2211 IF( FULL )THEN
2212 IF( TRACE )
2215 IF( REWI )
2219 ELSE IF( PACKED )THEN
2220 IF( TRACE )
2223 IF( REWI )
2227 END IF
2229 * Check if error-exit was taken incorrectly.
2231 IF( .NOT.OK )THEN
2235 END IF
2246 IF( NULL )THEN
2251 END IF
2252 IF( .NOT.PACKED )THEN
2254 END IF
2256 * If data was incorrectly changed, report and return.
2261 IF( .NOT.ISAME( I ) )
2264 IF( .NOT.SAME )THEN
2267 END IF
2269 IF( .NOT.NULL )THEN
2273 IF( INCX.GT.0 )THEN
2281 END IF
2282 IF( INCY.GT.0 )THEN
2290 END IF
2295 IF( UPPER )THEN
2301 END IF
2306 IF( FULL )THEN
2307 IF( UPPER )THEN
2311 END IF
2314 END IF
2316 * If got really bad answer, report and return.
2317 IF( FATAL )
2322 IF( N.LE.0 )
2324 END IF
2338 IF( ERRMAX.LT.THRESH )THEN
2342 END IF
2350 IF( FULL )THEN
2353 ELSE IF( PACKED )THEN
2355 END IF
2412 * if anything is wrong.
2710 180 IF( OK )THEN
2714 END IF
2778 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2780 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2785 END IF
2786 IF( I.NE.J )THEN
2787 IF( SYM )THEN
2789 ELSE IF( TRI )THEN
2791 END IF
2792 END IF
2793 END IF
2795 IF( SYM )
2797 IF( TRI )
2799 IF( UNIT )
2805 IF( TYPE.EQ.'GE' )THEN
2814 ELSE IF( TYPE.EQ.'GB' )THEN
2826 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'TR' )THEN
2828 IF( UPPER )THEN
2830 IF( UNIT )THEN
2834 END IF
2836 IF( UNIT )THEN
2840 END IF
2842 END IF
2852 IF( SYM )THEN
2855 END IF
2857 ELSE IF( TYPE.EQ.'HB'.OR.TYPE.EQ.'TB' )THEN
2859 IF( UPPER )THEN
2862 IF( UNIT )THEN
2866 END IF
2869 IF( UNIT )THEN
2873 END IF
2875 END IF
2885 IF( SYM )THEN
2888 END IF
2890 ELSE IF( TYPE.EQ.'HP'.OR.TYPE.EQ.'TP' )THEN
2893 IF( UPPER )THEN
2899 END IF
2903 IF( I.EQ.J )THEN
2904 IF( UNIT )
2906 IF( SYM )
2908 END IF
2911 END IF
2956 IF( TRAN.OR.CTRAN )THEN
2962 END IF
2963 IF( INCX.LT.0 )THEN
2969 END IF
2970 IF( INCY.LT.0 )THEN
2976 END IF
2986 IF( TRAN )THEN
2992 ELSE IF( CTRAN )THEN
3004 END IF
3015 IF( G( I ).NE.RZERO )
3018 IF( ERR*SQRT( EPS ).GE.RONE )
3021 * If the loop completes, all results are at least half accurate.
3029 IF( MV )THEN
3035 END IF
3051 * Tests if two arrays are identical.
3067 IF( RI( I ).NE.RJ( I ) )
3081 * Tests if selected elements in two arrays are equal.
3102 IF( TYPE.EQ.'GE' )THEN
3105 IF( AA( I, J ).NE.AS( I, J ) )
3109 ELSE IF( TYPE.EQ.'HE' )THEN
3111 IF( UPPER )THEN
3117 END IF
3119 IF( AA( I, J ).NE.AS( I, J ) )
3123 IF( AA( I, J ).NE.AS( I, J ) )
3127 END IF
3158 IF( RESET )THEN
3166 END IF
3169 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3170 * If initial I or J = 4 or 8, the period will be 25.
3171 * If initial I or J = 5, the period will be 10.
3180 IF( IC.GE.5 )THEN
3183 END IF
3221 IF( .NOT.LERR )THEN
3224 END IF
3242 * It is called by the Level 2 BLAS routines if an input parameter is
3263 IF( INFO.NE.INFOT )THEN
3264 IF( INFOT.NE.0 )THEN
3268 END IF
3270 END IF
3271 IF( SRNAME.NE.SRNAMT )THEN
3274 END IF
