Lines Matching refs:IF
13 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
132 IF( TRACE )THEN
134 END IF
149 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
152 END IF
155 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
158 END IF
162 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
165 END IF
168 IF( KB( I ).LT.0 )THEN
171 END IF
175 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
178 END IF
181 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
184 END IF
188 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
191 END IF
195 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
198 END IF
209 IF( .NOT.TSTERR )THEN
212 END IF
225 IF( SNAMET.EQ.SNAMES( I ) )
240 IF( DDIFF( ONE + EPS, ONE ).EQ.ZERO )
267 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
270 END IF
275 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
278 END IF
284 IF( .NOT.LTEST( ISNUM ) )THEN
290 IF( TSTERR )THEN
293 END IF
337 200 IF( FATAL.AND.SFATAL )
339 END IF
352 IF( TRACE )
357 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
450 IF( FULL )THEN
452 ELSE IF( BANDED )THEN
454 END IF
465 IF( IM.EQ.1 )
467 IF( IM.EQ.2 )
470 IF( BANDED )THEN
474 END IF
476 IF( BANDED )THEN
482 END IF
483 * Set LDA to 1 more than minimum value if room.
484 IF( BANDED )THEN
488 END IF
489 IF( LDA.LT.NMAX )
491 * Skip tests if not enough room.
492 IF( LDA.GT.NMAX )
507 IF( TRAN )THEN
513 END IF
524 IF( NL.GT.1 )THEN
527 END IF
573 IF( FULL )THEN
574 IF( TRACE )
578 IF( REWI )
583 ELSE IF( BANDED )THEN
584 IF( TRACE )
588 IF( REWI )
593 END IF
595 * Check if error-exit was taken incorrectly.
597 IF( .NOT.OK )THEN
601 END IF
608 IF( FULL )THEN
615 IF( NULL )THEN
621 END IF
623 ELSE IF( BANDED )THEN
632 IF( NULL )THEN
638 END IF
640 END IF
642 * If data was incorrectly changed, report
648 IF( .NOT.ISAME( I ) )
651 IF( .NOT.SAME )THEN
654 END IF
656 IF( .NOT.NULL )THEN
665 * If got really bad answer, report and
667 IF( FATAL )
673 END IF
693 IF( ERRMAX.LT.THRESH )THEN
697 END IF
702 IF( FULL )THEN
705 ELSE IF( BANDED )THEN
708 END IF
791 IF( FULL )THEN
793 ELSE IF( BANDED )THEN
795 ELSE IF( PACKED )THEN
797 END IF
806 IF( BANDED )THEN
810 END IF
812 IF( BANDED )THEN
816 END IF
817 * Set LDA to 1 more than minimum value if room.
818 IF( BANDED )THEN
822 END IF
823 IF( LDA.LT.NMAX )
825 * Skip tests if not enough room.
826 IF( LDA.GT.NMAX )
828 IF( PACKED )THEN
832 END IF
853 IF( N.GT.1 )THEN
856 END IF
900 IF( FULL )THEN
901 IF( TRACE )
904 IF( REWI )
908 ELSE IF( BANDED )THEN
909 IF( TRACE )
913 IF( REWI )
917 ELSE IF( PACKED )THEN
918 IF( TRACE )
921 IF( REWI )
925 END IF
927 * Check if error-exit was taken incorrectly.
929 IF( .NOT.OK )THEN
933 END IF
939 IF( FULL )THEN
946 IF( NULL )THEN
951 END IF
953 ELSE IF( BANDED )THEN
961 IF( NULL )THEN
966 END IF
968 ELSE IF( PACKED )THEN
974 IF( NULL )THEN
979 END IF
981 END IF
983 * If data was incorrectly changed, report and
989 IF( .NOT.ISAME( I ) )
992 IF( .NOT.SAME )THEN
995 END IF
997 IF( .NOT.NULL )THEN
1006 * If got really bad answer, report and
1008 IF( FATAL )
1013 END IF
1031 IF( ERRMAX.LT.THRESH )THEN
1035 END IF
1040 IF( FULL )THEN
1043 ELSE IF( BANDED )THEN
1046 ELSE IF( PACKED )THEN
1049 END IF
1131 IF( FULL )THEN
1133 ELSE IF( BANDED )THEN
1135 ELSE IF( PACKED )THEN
1137 END IF
1150 IF( BANDED )THEN
1154 END IF
1156 IF( BANDED )THEN
1160 END IF
1161 * Set LDA to 1 more than minimum value if room.
1162 IF( BANDED )THEN
1166 END IF
1167 IF( LDA.LT.NMAX )
1169 * Skip tests if not enough room.
1170 IF( LDA.GT.NMAX )
1172 IF( PACKED )THEN
1176 END IF
1204 IF( N.GT.1 )THEN
1207 END IF
1229 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1230 IF( FULL )THEN
1231 IF( TRACE )
1234 IF( REWI )
1238 ELSE IF( BANDED )THEN
1239 IF( TRACE )
1242 IF( REWI )
1246 ELSE IF( PACKED )THEN
1247 IF( TRACE )
1250 IF( REWI )
1254 END IF
1255 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1256 IF( FULL )THEN
1257 IF( TRACE )
1260 IF( REWI )
1264 ELSE IF( BANDED )THEN
1265 IF( TRACE )
1268 IF( REWI )
1272 ELSE IF( PACKED )THEN
1273 IF( TRACE )
1276 IF( REWI )
1280 END IF
1281 END IF
1283 * Check if error-exit was taken incorrectly.
1285 IF( .NOT.OK )THEN
1289 END IF
1297 IF( FULL )THEN
1300 IF( NULL )THEN
1305 END IF
1307 ELSE IF( BANDED )THEN
1311 IF( NULL )THEN
1316 END IF
1318 ELSE IF( PACKED )THEN
1320 IF( NULL )THEN
1325 END IF
1327 END IF
1329 * If data was incorrectly changed, report and
1335 IF( .NOT.ISAME( I ) )
1338 IF( .NOT.SAME )THEN
1341 END IF
1343 IF( .NOT.NULL )THEN
1344 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1352 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1366 END IF
1368 * If got really bad answer, report and return.
1369 IF( FATAL )
1374 END IF
1390 IF( ERRMAX.LT.THRESH )THEN
1394 END IF
1399 IF( FULL )THEN
1402 ELSE IF( BANDED )THEN
1405 ELSE IF( PACKED )THEN
1407 END IF
1494 IF( IM.EQ.1 )
1496 IF( IM.EQ.2 )
1499 * Set LDA to 1 more than minimum value if room.
1501 IF( LDA.LT.NMAX )
1503 * Skip tests if not enough room.
1504 IF( LDA.GT.NMAX )
1518 IF( M.GT.1 )THEN
1521 END IF
1532 IF( N.GT.1 )THEN
1535 END IF
1568 IF( TRACE )
1571 IF( REWI )
1576 * Check if error-exit was taken incorrectly.
1578 IF( .NOT.OK )THEN
1582 END IF
1593 IF( NULL )THEN
1598 END IF
1601 * If data was incorrectly changed, report and return.
1606 IF( .NOT.ISAME( I ) )
1609 IF( .NOT.SAME )THEN
1612 END IF
1614 IF( .NOT.NULL )THEN
1618 IF( INCX.GT.0 )THEN
1626 END IF
1628 IF( INCY.GT.0 )THEN
1632 END IF
1638 * If got really bad answer, report and return.
1639 IF( FATAL )
1645 END IF
1659 IF( ERRMAX.LT.THRESH )THEN
1663 END IF
1749 IF( FULL )THEN
1751 ELSE IF( PACKED )THEN
1753 END IF
1761 * Set LDA to 1 more than minimum value if room.
1763 IF( LDA.LT.NMAX )
1765 * Skip tests if not enough room.
1766 IF( LDA.GT.NMAX )
1768 IF( PACKED )THEN
1772 END IF
1787 IF( N.GT.1 )THEN
1790 END IF
1820 IF( FULL )THEN
1821 IF( TRACE )
1824 IF( REWI )
1827 ELSE IF( PACKED )THEN
1828 IF( TRACE )
1831 IF( REWI )
1834 END IF
1836 * Check if error-exit was taken incorrectly.
1838 IF( .NOT.OK )THEN
1842 END IF
1851 IF( NULL )THEN
1856 END IF
1857 IF( .NOT.PACKED )THEN
1859 END IF
1861 * If data was incorrectly changed, report and return.
1866 IF( .NOT.ISAME( I ) )
1869 IF( .NOT.SAME )THEN
1872 END IF
1874 IF( .NOT.NULL )THEN
1878 IF( INCX.GT.0 )THEN
1886 END IF
1890 IF( UPPER )THEN
1896 END IF
1901 IF( FULL )THEN
1902 IF( UPPER )THEN
1906 END IF
1909 END IF
1911 * If got really bad answer, report and return.
1912 IF( FATAL )
1916 * Avoid repeating tests if N.le.0.
1917 IF( N.LE.0 )
1919 END IF
1931 IF( ERRMAX.LT.THRESH )THEN
1935 END IF
1943 IF( FULL )THEN
1945 ELSE IF( PACKED )THEN
1947 END IF
2028 IF( FULL )THEN
2030 ELSE IF( PACKED )THEN
2032 END IF
2040 * Set LDA to 1 more than minimum value if room.
2042 IF( LDA.LT.NMAX )
2044 * Skip tests if not enough room.
2045 IF( LDA.GT.NMAX )
2047 IF( PACKED )THEN
2051 END IF
2066 IF( N.GT.1 )THEN
2069 END IF
2080 IF( N.GT.1 )THEN
2083 END IF
2118 IF( FULL )THEN
2119 IF( TRACE )
2122 IF( REWI )
2126 ELSE IF( PACKED )THEN
2127 IF( TRACE )
2130 IF( REWI )
2134 END IF
2136 * Check if error-exit was taken incorrectly.
2138 IF( .NOT.OK )THEN
2142 END IF
2153 IF( NULL )THEN
2158 END IF
2159 IF( .NOT.PACKED )THEN
2161 END IF
2163 * If data was incorrectly changed, report and return.
2168 IF( .NOT.ISAME( I ) )
2171 IF( .NOT.SAME )THEN
2174 END IF
2176 IF( .NOT.NULL )THEN
2180 IF( INCX.GT.0 )THEN
2188 END IF
2189 IF( INCY.GT.0 )THEN
2197 END IF
2202 IF( UPPER )THEN
2208 END IF
2213 IF( FULL )THEN
2214 IF( UPPER )THEN
2218 END IF
2221 END IF
2223 * If got really bad answer, report and return.
2224 IF( FATAL )
2229 IF( N.LE.0 )
2231 END IF
2245 IF( ERRMAX.LT.THRESH )THEN
2249 END IF
2257 IF( FULL )THEN
2260 ELSE IF( PACKED )THEN
2262 END IF
2316 * if anything is wrong.
2598 170 IF( OK )THEN
2602 END IF
2661 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2663 IF
2668 END IF
2669 IF( I.NE.J )THEN
2670 IF( SYM )THEN
2672 ELSE IF( TRI )THEN
2674 END IF
2675 END IF
2676 END IF
2678 IF( TRI )
2680 IF( UNIT )
2686 IF( TYPE.EQ.'GE' )THEN
2695 ELSE IF( TYPE.EQ.'GB' )THEN
2707 ELSE IF( TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
2709 IF( UPPER )THEN
2711 IF( UNIT )THEN
2715 END IF
2717 IF( UNIT )THEN
2721 END IF
2723 END IF
2734 ELSE IF( TYPE.EQ.'SB'.OR.TYPE.EQ.'TB' )THEN
2736 IF( UPPER )THEN
2739 IF( UNIT )THEN
2743 END IF
2746 IF( UNIT )THEN
2750 END IF
2752 END IF
2763 ELSE IF( TYPE.EQ.'SP'.OR.TYPE.EQ.'TP' )THEN
2766 IF( UPPER )THEN
2772 END IF
2776 IF( I.EQ.J )THEN
2777 IF( UNIT )
2779 END IF
2782 END IF
2818 IF( TRAN )THEN
2824 END IF
2825 IF( INCX.LT.0 )THEN
2831 END IF
2832 IF( INCY.LT.0 )THEN
2838 END IF
2848 IF( TRAN )THEN
2860 END IF
2871 IF( G( I ).NE.ZERO )
2874 IF( ERR*SQRT( EPS ).GE.ONE )
2877 * If the loop completes, all results are at least half accurate.
2885 IF( MV )THEN
2891 END IF
2907 * Tests if two arrays are identical.
2923 IF( RI( I ).NE.RJ( I ) )
2937 * Tests if selected elements in two arrays are equal.
2958 IF( TYPE.EQ.'GE' )THEN
2961 IF( AA( I, J ).NE.AS( I, J ) )
2965 ELSE IF( TYPE.EQ.'SY' )THEN
2967 IF( UPPER )THEN
2973 END IF
2975 IF( AA( I, J ).NE.AS( I, J ) )
2979 IF( AA( I, J ).NE.AS( I, J ) )
2983 END IF
3014 IF( RESET )THEN
3020 END IF
3023 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
3024 * If initial I = 4 or 8, the period will be 25.
3025 * If initial I = 5, the period will be 10.
3031 IF( IC.GE.5 )THEN
3034 END IF
3072 IF( .NOT.LERR )THEN
3075 END IF
3093 * It is called by the Level 2 BLAS routines if an input parameter is
3114 IF( INFO.NE.INFOT )THEN
3115 IF( INFOT.NE.0 )THEN
3119 END IF
3121 END IF
3122 IF( SRNAME.NE.SRNAMT )THEN
3125 END IF
