Lines Matching refs:IF
13 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
137 IF( TRACE )THEN
139 END IF
154 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
157 END IF
160 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
163 END IF
167 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
170 END IF
173 IF( KB( I ).LT.0 )THEN
176 END IF
180 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
183 END IF
186 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
189 END IF
193 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
196 END IF
200 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
203 END IF
214 IF( .NOT.TSTERR )THEN
217 END IF
230 IF( SNAMET.EQ.SNAMES( I ) )
245 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
272 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
275 END IF
280 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
283 END IF
289 IF( .NOT.LTEST( ISNUM ) )THEN
295 IF( TSTERR )THEN
298 END IF
342 200 IF( FATAL.AND.SFATAL )
344 END IF
357 IF( TRACE )
362 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
460 IF( FULL )THEN
462 ELSE IF( BANDED )THEN
464 END IF
475 IF( IM.EQ.1 )
477 IF( IM.EQ.2 )
480 IF( BANDED )THEN
484 END IF
486 IF( BANDED )THEN
492 END IF
493 * Set LDA to 1 more than minimum value if room.
494 IF( BANDED )THEN
498 END IF
499 IF( LDA.LT.NMAX )
501 * Skip tests if not enough room.
502 IF( LDA.GT.NMAX )
517 IF( TRAN )THEN
523 END IF
534 IF( NL.GT.1 )THEN
537 END IF
583 IF( FULL )THEN
584 IF( TRACE )
588 IF( REWI )
593 ELSE IF( BANDED )THEN
594 IF( TRACE )
598 IF( REWI )
603 END IF
605 * Check if error-exit was taken incorrectly.
607 IF( .NOT.OK )THEN
611 END IF
618 IF( FULL )THEN
625 IF( NULL )THEN
631 END IF
633 ELSE IF( BANDED )THEN
642 IF( NULL )THEN
648 END IF
650 END IF
652 * If data was incorrectly changed, report
658 IF( .NOT.ISAME( I ) )
661 IF( .NOT.SAME )THEN
664 END IF
666 IF( .NOT.NULL )THEN
675 * If got really bad answer, report and
677 IF( FATAL )
683 END IF
703 IF( ERRMAX.LT.THRESH )THEN
707 END IF
712 IF( FULL )THEN
715 ELSE IF( BANDED )THEN
718 END IF
805 IF( FULL )THEN
807 ELSE IF( BANDED )THEN
809 ELSE IF( PACKED )THEN
811 END IF
820 IF( BANDED )THEN
824 END IF
826 IF( BANDED )THEN
830 END IF
831 * Set LDA to 1 more than minimum value if room.
832 IF( BANDED )THEN
836 END IF
837 IF( LDA.LT.NMAX )
839 * Skip tests if not enough room.
840 IF( LDA.GT.NMAX )
842 IF( PACKED )THEN
846 END IF
867 IF( N.GT.1 )THEN
870 END IF
914 IF( FULL )THEN
915 IF( TRACE )
918 IF( REWI )
922 ELSE IF( BANDED )THEN
923 IF( TRACE )
927 IF( REWI )
931 ELSE IF( PACKED )THEN
932 IF( TRACE )
935 IF( REWI )
939 END IF
941 * Check if error-exit was taken incorrectly.
943 IF( .NOT.OK )THEN
947 END IF
953 IF( FULL )THEN
960 IF( NULL )THEN
965 END IF
967 ELSE IF( BANDED )THEN
975 IF( NULL )THEN
980 END IF
982 ELSE IF( PACKED )THEN
988 IF( NULL )THEN
993 END IF
995 END IF
997 * If data was incorrectly changed, report and
1003 IF( .NOT.ISAME( I ) )
1006 IF( .NOT.SAME )THEN
1009 END IF
1011 IF( .NOT.NULL )THEN
1020 * If got really bad answer, report and
1022 IF( FATAL )
1027 END IF
1045 IF( ERRMAX.LT.THRESH )THEN
1049 END IF
1054 IF( FULL )THEN
1057 ELSE IF( BANDED )THEN
1060 ELSE IF( PACKED )THEN
1063 END IF
1151 IF( FULL )THEN
1153 ELSE IF( BANDED )THEN
1155 ELSE IF( PACKED )THEN
1157 END IF
1170 IF( BANDED )THEN
1174 END IF
1176 IF( BANDED )THEN
1180 END IF
1181 * Set LDA to 1 more than minimum value if room.
1182 IF( BANDED )THEN
1186 END IF
1187 IF( LDA.LT.NMAX )
1189 * Skip tests if not enough room.
1190 IF( LDA.GT.NMAX )
1192 IF( PACKED )THEN
1196 END IF
1224 IF( N.GT.1 )THEN
1227 END IF
1249 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1250 IF( FULL )THEN
1251 IF( TRACE )
1254 IF( REWI )
1258 ELSE IF( BANDED )THEN
1259 IF( TRACE )
1262 IF( REWI )
1266 ELSE IF( PACKED )THEN
1267 IF( TRACE )
1270 IF( REWI )
1274 END IF
1275 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1276 IF( FULL )THEN
1277 IF( TRACE )
1280 IF( REWI )
1284 ELSE IF( BANDED )THEN
1285 IF( TRACE )
1288 IF( REWI )
1292 ELSE IF( PACKED )THEN
1293 IF( TRACE )
1296 IF( REWI )
1300 END IF
1301 END IF
1303 * Check if error-exit was taken incorrectly.
1305 IF( .NOT.OK )THEN
1309 END IF
1317 IF( FULL )THEN
1320 IF( NULL )THEN
1325 END IF
1327 ELSE IF( BANDED )THEN
1331 IF( NULL )THEN
1336 END IF
1338 ELSE IF( PACKED )THEN
1340 IF( NULL )THEN
1345 END IF
1347 END IF
1349 * If data was incorrectly changed, report and
1355 IF( .NOT.ISAME( I ) )
1358 IF( .NOT.SAME )THEN
1361 END IF
1363 IF( .NOT.NULL )THEN
1364 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1372 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1386 END IF
1388 * If got really bad answer, report and return.
1389 IF( FATAL )
1394 END IF
1410 IF( ERRMAX.LT.THRESH )THEN
1414 END IF
1419 IF( FULL )THEN
1422 ELSE IF( BANDED )THEN
1425 ELSE IF( PACKED )THEN
1427 END IF
1520 IF( IM.EQ.1 )
1522 IF( IM.EQ.2 )
1525 * Set LDA to 1 more than minimum value if room.
1527 IF( LDA.LT.NMAX )
1529 * Skip tests if not enough room.
1530 IF( LDA.GT.NMAX )
1544 IF( M.GT.1 )THEN
1547 END IF
1558 IF( N.GT.1 )THEN
1561 END IF
1594 IF( TRACE )
1597 IF( CONJ )THEN
1598 IF( REWI )
1603 IF( REWI )
1607 END IF
1609 * Check if error-exit was taken incorrectly.
1611 IF( .NOT.OK )THEN
1615 END IF
1626 IF( NULL )THEN
1631 END IF
1634 * If data was incorrectly changed, report and return.
1639 IF( .NOT.ISAME( I ) )
1642 IF( .NOT.SAME )THEN
1645 END IF
1647 IF( .NOT.NULL )THEN
1651 IF( INCX.GT.0 )THEN
1659 END IF
1661 IF( INCY.GT.0 )THEN
1665 END IF
1666 IF( CONJ )
1673 * If got really bad answer, report and return.
1674 IF( FATAL )
1680 END IF
1694 IF( ERRMAX.LT.THRESH )THEN
1698 END IF
1790 IF( FULL )THEN
1792 ELSE IF( PACKED )THEN
1794 END IF
1802 * Set LDA to 1 more than minimum value if room.
1804 IF( LDA.LT.NMAX )
1806 * Skip tests if not enough room.
1807 IF( LDA.GT.NMAX )
1809 IF( PACKED )THEN
1813 END IF
1828 IF( N.GT.1 )THEN
1831 END IF
1862 IF( FULL )THEN
1863 IF( TRACE )
1866 IF( REWI )
1869 ELSE IF( PACKED )THEN
1870 IF( TRACE )
1873 IF( REWI )
1876 END IF
1878 * Check if error-exit was taken incorrectly.
1880 IF( .NOT.OK )THEN
1884 END IF
1893 IF( NULL )THEN
1898 END IF
1899 IF( .NOT.PACKED )THEN
1901 END IF
1903 * If data was incorrectly changed, report and return.
1908 IF( .NOT.ISAME( I ) )
1911 IF( .NOT.SAME )THEN
1914 END IF
1916 IF( .NOT.NULL )THEN
1920 IF( INCX.GT.0 )THEN
1928 END IF
1932 IF( UPPER )THEN
1938 END IF
1943 IF( FULL )THEN
1944 IF( UPPER )THEN
1948 END IF
1951 END IF
1953 * If got really bad answer, report and return.
1954 IF( FATAL )
1958 * Avoid repeating tests if N.le.0.
1959 IF( N.LE.0 )
1961 END IF
1973 IF( ERRMAX.LT.THRESH )THEN
1977 END IF
1985 IF( FULL )THEN
1987 ELSE IF( PACKED )THEN
1989 END IF
2075 IF( FULL )THEN
2077 ELSE IF( PACKED )THEN
2079 END IF
2087 * Set LDA to 1 more than minimum value if room.
2089 IF( LDA.LT.NMAX )
2091 * Skip tests if not enough room.
2092 IF( LDA.GT.NMAX )
2094 IF( PACKED )THEN
2098 END IF
2113 IF( N.GT.1 )THEN
2116 END IF
2127 IF( N.GT.1 )THEN
2130 END IF
2165 IF( FULL )THEN
2166 IF( TRACE )
2169 IF( REWI )
2173 ELSE IF( PACKED )THEN
2174 IF( TRACE )
2177 IF( REWI )
2181 END IF
2183 * Check if error-exit was taken incorrectly.
2185 IF( .NOT.OK )THEN
2189 END IF
2200 IF( NULL )THEN
2205 END IF
2206 IF( .NOT.PACKED )THEN
2208 END IF
2210 * If data was incorrectly changed, report and return.
2215 IF( .NOT.ISAME( I ) )
2218 IF( .NOT.SAME )THEN
2221 END IF
2223 IF( .NOT.NULL )THEN
2227 IF( INCX.GT.0 )THEN
2235 END IF
2236 IF( INCY.GT.0 )THEN
2244 END IF
2249 IF( UPPER )THEN
2255 END IF
2260 IF( FULL )THEN
2261 IF( UPPER )THEN
2265 END IF
2268 END IF
2270 * If got really bad answer, report and return.
2271 IF( FATAL )
2276 IF( N.LE.0 )
2278 END IF
2292 IF( ERRMAX.LT.THRESH )THEN
2296 END IF
2304 IF( FULL )THEN
2307 ELSE IF( PACKED )THEN
2309 END IF
2366 * if anything is wrong.
2664 180 IF( OK )THEN
2668 END IF
2731 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2733 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2738 END IF
2739 IF( I.NE.J )THEN
2740 IF( SYM )THEN
2742 ELSE IF( TRI )THEN
2744 END IF
2745 END IF
2746 END IF
2748 IF( SYM )
2750 IF( TRI )
2752 IF( UNIT )
2758 IF( TYPE.EQ.'GE' )THEN
2767 ELSE IF( TYPE.EQ.'GB' )THEN
2779 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'TR' )THEN
2781 IF( UPPER )THEN
2783 IF( UNIT )THEN
2787 END IF
2789 IF( UNIT )THEN
2793 END IF
2795 END IF
2805 IF( SYM )THEN
2808 END IF
2810 ELSE IF( TYPE.EQ.'HB'.OR.TYPE.EQ.'TB' )THEN
2812 IF( UPPER )THEN
2815 IF( UNIT )THEN
2819 END IF
2822 IF( UNIT )THEN
2826 END IF
2828 END IF
2838 IF( SYM )THEN
2841 END IF
2843 ELSE IF( TYPE.EQ.'HP'.OR.TYPE.EQ.'TP' )THEN
2846 IF( UPPER )THEN
2852 END IF
2856 IF( I.EQ.J )THEN
2857 IF( UNIT )
2859 IF( SYM )
2861 END IF
2864 END IF
2909 IF( TRAN.OR.CTRAN )THEN
2915 END IF
2916 IF( INCX.LT.0 )THEN
2922 END IF
2923 IF( INCY.LT.0 )THEN
2929 END IF
2939 IF( TRAN )THEN
2945 ELSE IF( CTRAN )THEN
2957 END IF
2968 IF( G( I ).NE.RZERO )
2971 IF( ERR*SQRT( EPS ).GE.RONE )
2974 * If the loop completes, all results are at least half accurate.
2982 IF( MV )THEN
2988 END IF
3004 * Tests if two arrays are identical.
3020 IF( RI( I ).NE.RJ( I ) )
3034 * Tests if selected elements in two arrays are equal.
3055 IF( TYPE.EQ.'GE' )THEN
3058 IF( AA( I, J ).NE.AS( I, J ) )
3062 ELSE IF( TYPE.EQ.'HE' )THEN
3064 IF( UPPER )THEN
3070 END IF
3072 IF( AA( I, J ).NE.AS( I, J ) )
3076 IF( AA( I, J ).NE.AS( I, J ) )
3080 END IF
3112 IF( RESET )THEN
3120 END IF
3123 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3124 * If initial I or J = 4 or 8, the period will be 25.
3125 * If initial I or J = 5, the period will be 10.
3134 IF( IC.GE.5 )THEN
3137 END IF
3175 IF( .NOT.LERR )THEN
3178 END IF
3196 * It is called by the Level 2 BLAS routines if an input parameter is
3217 IF( INFO.NE.INFOT )THEN
3218 IF( INFOT.NE.0 )THEN
3222 END IF
3224 END IF
3225 IF( SRNAME.NE.SRNAMT )THEN
3228 END IF
