Lines Matching refs:IF
13 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
138 IF( TRACE )THEN
140 END IF
155 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
158 END IF
161 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
164 END IF
168 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
171 END IF
174 IF( KB( I ).LT.0 )THEN
177 END IF
181 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
184 END IF
187 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
190 END IF
194 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
197 END IF
201 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
204 END IF
215 IF( .NOT.TSTERR )THEN
218 END IF
231 IF( SNAMET.EQ.SNAMES( I ) )
246 IF( DDIFF( RONE + EPS, RONE ).EQ.RZERO )
273 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
276 END IF
281 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
284 END IF
290 IF( .NOT.LTEST( ISNUM ) )THEN
296 IF( TSTERR )THEN
299 END IF
343 200 IF( FATAL.AND.SFATAL )
345 END IF
358 IF( TRACE )
363 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
462 IF( FULL )THEN
464 ELSE IF( BANDED )THEN
466 END IF
477 IF( IM.EQ.1 )
479 IF( IM.EQ.2 )
482 IF( BANDED )THEN
486 END IF
488 IF( BANDED )THEN
494 END IF
495 * Set LDA to 1 more than minimum value if room.
496 IF( BANDED )THEN
500 END IF
501 IF( LDA.LT.NMAX )
503 * Skip tests if not enough room.
504 IF( LDA.GT.NMAX )
519 IF( TRAN )THEN
525 END IF
536 IF( NL.GT.1 )THEN
539 END IF
585 IF( FULL )THEN
586 IF( TRACE )
590 IF( REWI )
595 ELSE IF( BANDED )THEN
596 IF( TRACE )
600 IF( REWI )
605 END IF
607 * Check if error-exit was taken incorrectly.
609 IF( .NOT.OK )THEN
613 END IF
620 IF( FULL )THEN
627 IF( NULL )THEN
633 END IF
635 ELSE IF( BANDED )THEN
644 IF( NULL )THEN
650 END IF
652 END IF
654 * If data was incorrectly changed, report
660 IF( .NOT.ISAME( I ) )
663 IF( .NOT.SAME )THEN
666 END IF
668 IF( .NOT.NULL )THEN
677 * If got really bad answer, report and
679 IF( FATAL )
685 END IF
705 IF( ERRMAX.LT.THRESH )THEN
709 END IF
714 IF( FULL )THEN
717 ELSE IF( BANDED )THEN
720 END IF
808 IF( FULL )THEN
810 ELSE IF( BANDED )THEN
812 ELSE IF( PACKED )THEN
814 END IF
823 IF( BANDED )THEN
827 END IF
829 IF( BANDED )THEN
833 END IF
834 * Set LDA to 1 more than minimum value if room.
835 IF( BANDED )THEN
839 END IF
840 IF( LDA.LT.NMAX )
842 * Skip tests if not enough room.
843 IF( LDA.GT.NMAX )
845 IF( PACKED )THEN
849 END IF
870 IF( N.GT.1 )THEN
873 END IF
917 IF( FULL )THEN
918 IF( TRACE )
921 IF( REWI )
925 ELSE IF( BANDED )THEN
926 IF( TRACE )
930 IF( REWI )
934 ELSE IF( PACKED )THEN
935 IF( TRACE )
938 IF( REWI )
942 END IF
944 * Check if error-exit was taken incorrectly.
946 IF( .NOT.OK )THEN
950 END IF
956 IF( FULL )THEN
963 IF( NULL )THEN
968 END IF
970 ELSE IF( BANDED )THEN
978 IF( NULL )THEN
983 END IF
985 ELSE IF( PACKED )THEN
991 IF( NULL )THEN
996 END IF
998 END IF
1000 * If data was incorrectly changed, report and
1006 IF( .NOT.ISAME( I ) )
1009 IF( .NOT.SAME )THEN
1012 END IF
1014 IF( .NOT.NULL )THEN
1023 * If got really bad answer, report and
1025 IF( FATAL )
1030 END IF
1048 IF( ERRMAX.LT.THRESH )THEN
1052 END IF
1057 IF( FULL )THEN
1060 ELSE IF( BANDED )THEN
1063 ELSE IF( PACKED )THEN
1066 END IF
1155 IF( FULL )THEN
1157 ELSE IF( BANDED )THEN
1159 ELSE IF( PACKED )THEN
1161 END IF
1174 IF( BANDED )THEN
1178 END IF
1180 IF( BANDED )THEN
1184 END IF
1185 * Set LDA to 1 more than minimum value if room.
1186 IF( BANDED )THEN
1190 END IF
1191 IF( LDA.LT.NMAX )
1193 * Skip tests if not enough room.
1194 IF( LDA.GT.NMAX )
1196 IF( PACKED )THEN
1200 END IF
1228 IF( N.GT.1 )THEN
1231 END IF
1253 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1254 IF( FULL )THEN
1255 IF( TRACE )
1258 IF( REWI )
1262 ELSE IF( BANDED )THEN
1263 IF( TRACE )
1266 IF( REWI )
1270 ELSE IF( PACKED )THEN
1271 IF( TRACE )
1274 IF( REWI )
1278 END IF
1279 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1280 IF( FULL )THEN
1281 IF( TRACE )
1284 IF( REWI )
1288 ELSE IF( BANDED )THEN
1289 IF( TRACE )
1292 IF( REWI )
1296 IF( PACKED )THEN
1297 IF( TRACE )
1300 IF( REWI )
1304 END IF
1305 END IF
1307 * Check if error-exit was taken incorrectly.
1309 IF( .NOT.OK )THEN
1313 END IF
1321 IF( FULL )THEN
1324 IF( NULL )THEN
1329 END IF
1331 ELSE IF( BANDED )THEN
1335 IF( NULL )THEN
1340 END IF
1342 ELSE IF( PACKED )THEN
1344 IF( NULL )THEN
1349 END IF
1351 END IF
1353 * If data was incorrectly changed, report and
1359 IF( .NOT.ISAME( I ) )
1362 IF( .NOT.SAME )THEN
1365 END IF
1367 IF( .NOT.NULL )THEN
1368 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1376 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1390 END IF
1392 * If got really bad answer, report and return.
1393 IF( FATAL )
1398 END IF
1414 IF( ERRMAX.LT.THRESH )THEN
1418 END IF
1423 IF( FULL )THEN
1426 ELSE IF( BANDED )THEN
1429 ELSE IF( PACKED )THEN
1431 END IF
1525 IF( IM.EQ.1 )
1527 IF( IM.EQ.2 )
1530 * Set LDA to 1 more than minimum value if room.
1532 IF( LDA.LT.NMAX )
1534 * Skip tests if not enough room.
1535 IF( LDA.GT.NMAX )
1549 IF( M.GT.1 )THEN
1552 END IF
1563 IF( N.GT.1 )THEN
1566 END IF
1599 IF( TRACE )
1602 IF( CONJ )THEN
1603 IF( REWI )
1608 IF( REWI )
1612 END IF
1614 * Check if error-exit was taken incorrectly.
1616 IF( .NOT.OK )THEN
1620 END IF
1631 IF( NULL )THEN
1636 END IF
1639 * If data was incorrectly changed, report and return.
1644 IF( .NOT.ISAME( I ) )
1647 IF( .NOT.SAME )THEN
1650 END IF
1652 IF( .NOT.NULL )THEN
1656 IF( INCX.GT.0 )THEN
1664 END IF
1666 IF( INCY.GT.0 )THEN
1670 END IF
1671 IF( CONJ )
1678 * If got really bad answer, report and return.
1679 IF( FATAL )
1685 END IF
1699 IF( ERRMAX.LT.THRESH )THEN
1703 END IF
1796 IF( FULL )THEN
1798 ELSE IF( PACKED )THEN
1800 END IF
1808 * Set LDA to 1 more than minimum value if room.
1810 IF( LDA.LT.NMAX )
1812 * Skip tests if not enough room.
1813 IF( LDA.GT.NMAX )
1815 IF( PACKED )THEN
1819 END IF
1834 IF( N.GT.1 )THEN
1837 END IF
1868 IF( FULL )THEN
1869 IF( TRACE )
1872 IF( REWI )
1875 ELSE IF( PACKED )THEN
1876 IF( TRACE )
1879 IF( REWI )
1882 END IF
1884 * Check if error-exit was taken incorrectly.
1886 IF( .NOT.OK )THEN
1890 END IF
1899 IF( NULL )THEN
1904 END IF
1905 IF( .NOT.PACKED )THEN
1907 END IF
1909 * If data was incorrectly changed, report and return.
1914 IF( .NOT.ISAME( I ) )
1917 IF( .NOT.SAME )THEN
1920 END IF
1922 IF( .NOT.NULL )THEN
1926 IF( INCX.GT.0 )THEN
1934 END IF
1938 IF( UPPER )THEN
1944 END IF
1949 IF( FULL )THEN
1950 IF( UPPER )THEN
1954 END IF
1957 END IF
1959 * If got really bad answer, report and return.
1960 IF( FATAL )
1964 * Avoid repeating tests if N.le.0.
1965 IF( N.LE.0 )
1967 END IF
1979 IF( ERRMAX.LT.THRESH )THEN
1983 END IF
1991 IF( FULL )THEN
1993 ELSE IF( PACKED )THEN
1995 END IF
2082 IF( FULL )THEN
2084 ELSE IF( PACKED )THEN
2086 END IF
2094 * Set LDA to 1 more than minimum value if room.
2096 IF( LDA.LT.NMAX )
2098 * Skip tests if not enough room.
2099 IF( LDA.GT.NMAX )
2101 IF( PACKED )THEN
2105 END IF
2120 IF( N.GT.1 )THEN
2123 END IF
2134 IF( N.GT.1 )THEN
2137 END IF
2172 IF( FULL )THEN
2173 IF( TRACE )
2176 IF( REWI )
2180 ELSE IF( PACKED )THEN
2181 IF( TRACE )
2184 IF( REWI )
2188 END IF
2190 * Check if error-exit was taken incorrectly.
2192 IF( .NOT.OK )THEN
2196 END IF
2207 IF( NULL )THEN
2212 END IF
2213 IF( .NOT.PACKED )THEN
2215 END IF
2217 * If data was incorrectly changed, report and return.
2222 IF( .NOT.ISAME( I ) )
2225 IF( .NOT.SAME )THEN
2228 END IF
2230 IF( .NOT.NULL )THEN
2234 IF( INCX.GT.0 )THEN
2242 END IF
2243 IF( INCY.GT.0 )THEN
2251 END IF
2256 IF( UPPER )THEN
2262 END IF
2267 IF( FULL )THEN
2268 IF( UPPER )THEN
2272 END IF
2275 END IF
2277 * If got really bad answer, report and return.
2278 IF( FATAL )
2283 IF( N.LE.0 )
2285 END IF
2299 IF( ERRMAX.LT.THRESH )THEN
2303 END IF
2311 IF( FULL )THEN
2314 ELSE IF( PACKED )THEN
2316 END IF
2373 * if anything is wrong.
2671 180 IF( OK )THEN
2675 END IF
2739 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2741 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2746 END IF
2747 IF( I.NE.J )THEN
2748 IF( SYM )THEN
2750 ELSE IF( TRI )THEN
2752 END IF
2753 END IF
2754 END IF
2756 IF( SYM )
2758 IF( TRI )
2760 IF( UNIT )
2766 IF( TYPE.EQ.'GE' )THEN
2775 ELSE IF( TYPE.EQ.'GB' )THEN
2787 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'TR' )THEN
2789 IF( UPPER )THEN
2791 IF( UNIT )THEN
2795 END IF
2797 IF( UNIT )THEN
2801 END IF
2803 END IF
2813 IF( SYM )THEN
2816 END IF
2818 ELSE IF( TYPE.EQ.'HB'.OR.TYPE.EQ.'TB' )THEN
2820 IF( UPPER )THEN
2823 IF( UNIT )THEN
2827 END IF
2830 IF( UNIT )THEN
2834 END IF
2836 END IF
2846 IF( SYM )THEN
2849 END IF
2851 ELSE IF( TYPE.EQ.'HP'.OR.TYPE.EQ.'TP' )THEN
2854 IF( UPPER )THEN
2860 END IF
2864 IF( I.EQ.J )THEN
2865 IF( UNIT )
2867 IF( SYM )
2869 END IF
2872 END IF
2917 IF( TRAN.OR.CTRAN )THEN
2923 END IF
2924 IF( INCX.LT.0 )THEN
2930 END IF
2931 IF( INCY.LT.0 )THEN
2937 END IF
2947 IF( TRAN )THEN
2953 ELSE IF( CTRAN )THEN
2965 END IF
2976 IF( G( I ).NE.RZERO )
2979 IF( ERR*SQRT( EPS ).GE.RONE )
2982 * If the loop completes, all results are at least half accurate.
2990 IF( MV )THEN
2996 END IF
3012 * Tests if two arrays are identical.
3028 IF( RI( I ).NE.RJ( I ) )
3042 * Tests if selected elements in two arrays are equal.
3063 IF( TYPE.EQ.'GE' )THEN
3066 IF( AA( I, J ).NE.AS( I, J ) )
3070 ELSE IF( TYPE.EQ.'HE' )THEN
3072 IF( UPPER )THEN
3078 END IF
3080 IF( AA( I, J ).NE.AS( I, J ) )
3084 IF( AA( I, J ).NE.AS( I, J ) )
3088 END IF
3120 IF( RESET )THEN
3128 END IF
3131 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3132 * If initial I or J = 4 or 8, the period will be 25.
3133 * If initial I or J = 5, the period will be 10.
3142 IF( IC.GE.5 )THEN
3145 END IF
3183 IF( .NOT.LERR )THEN
3186 END IF
3204 * It is called by the Level 2 BLAS routines if an input parameter is
3225 IF( INFO.NE.INFOT )THEN
3226 IF( INFOT.NE.0 )THEN
3230 END IF
3232 END IF
3233 IF( SRNAME.NE.SRNAMT )THEN
3236 END IF
