Lines Matching refs:IF
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
162 IF( TRACE )THEN
164 END IF
179 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
182 END IF
185 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
188 END IF
192 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
195 END IF
199 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
202 END IF
211 IF( .NOT.TSTERR )THEN
214 END IF
227 IF( SNAMET.EQ.SNAMES( I ) )
265 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
268 END IF
274 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
277 END IF
292 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
295 END IF
301 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
304 END IF
310 IF( .NOT.LTEST( ISNUM ) )THEN
316 IF( TSTERR )THEN
319 END IF
355 190 IF( FATAL.AND.SFATAL )
357 END IF
370 IF( TRACE )
375 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
476 * Set LDC to 1 more than minimum value if room.
478 IF( LDC.LT.NMAX )
480 * Skip tests if not enough room.
481 IF( LDC.GT.NMAX )
493 IF( TRANA )THEN
499 END IF
500 * Set LDA to 1 more than minimum value if room.
502 IF( LDA.LT.NMAX )
504 * Skip tests if not enough room.
505 IF( LDA.GT.NMAX )
518 IF( TRANB )THEN
524 END IF
525 * Set LDB to 1 more than minimum value if room.
527 IF( LDB.LT.NMAX )
529 * Skip tests if not enough room.
530 IF( LDB.GT.NMAX )
577 IF( TRACE )
581 IF( REWI )
586 * Check if error-exit was taken incorrectly.
588 IF( .NOT.OK )THEN
592 END IF
607 IF( NULL )THEN
612 END IF
615 * If data was incorrectly changed, report
621 IF( .NOT.ISAME( I ) )
624 IF( .NOT.SAME )THEN
627 END IF
629 IF( .NOT.NULL )THEN
638 * If got really bad answer, report and
640 IF( FATAL )
642 END IF
660 IF( ERRMAX.LT.THRESH )THEN
664 END IF
762 * Set LDC to 1 more than minimum value if room.
764 IF( LDC.LT.NMAX )
766 * Skip tests if not enough room.
767 IF( LDC.GT.NMAX )
771 * Set LDB to 1 more than minimum value if room.
773 IF( LDB.LT.NMAX )
775 * Skip tests if not enough room.
776 IF( LDB.GT.NMAX )
789 IF( LEFT )THEN
793 END IF
794 * Set LDA to 1 more than minimum value if room.
796 IF( LDA.LT.NMAX )
798 * Skip tests if not enough room.
799 IF( LDA.GT.NMAX )
848 IF( TRACE )
851 IF( REWI )
853 IF( CONJ )THEN
859 END IF
861 * Check if error-exit was taken incorrectly.
863 IF( .NOT.OK )THEN
867 END IF
881 IF( NULL )THEN
886 END IF
889 * If data was incorrectly changed, report and
895 IF( .NOT.ISAME( I ) )
898 IF( .NOT.SAME )THEN
901 END IF
903 IF( .NOT.NULL )THEN
907 IF( LEFT )THEN
917 END IF
919 * If got really bad answer, report and
921 IF( FATAL )
923 END IF
939 IF( ERRMAX.LT.THRESH )THEN
943 END IF
1048 * Set LDB to 1 more than minimum value if room.
1050 IF( LDB.LT.NMAX )
1052 * Skip tests if not enough room.
1053 IF( LDB.GT.NMAX )
1061 IF( LEFT )THEN
1065 END IF
1066 * Set LDA to 1 more than minimum value if room.
1068 IF( LDA.LT.NMAX )
1070 * Skip tests if not enough room.
1071 IF( LDA.GT.NMAX )
1120 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1121 IF( TRACE )
1125 IF( REWI )
1129 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1130 IF( TRACE )
1134 IF( REWI )
1138 END IF
1140 * Check if error-exit was taken incorrectly.
1142 IF( .NOT.OK )THEN
1146 END IF
1159 IF( NULL )THEN
1164 END IF
1167 * If data was incorrectly changed, report and
1173 IF( .NOT.ISAME( I ) )
1176 IF( .NOT.SAME )THEN
1179 END IF
1181 IF( .NOT.NULL )THEN
1182 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1186 IF( LEFT )THEN
1198 END IF
1199 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1213 IF( LEFT )THEN
1225 END IF
1226 END IF
1228 * If got really bad answer, report and
1230 IF( FATAL )
1232 END IF
1250 IF( ERRMAX.LT.THRESH )THEN
1254 END IF
1349 * Set LDC to 1 more than minimum value if room.
1351 IF( LDC.LT.NMAX )
1353 * Skip tests if not enough room.
1354 IF( LDC.GT.NMAX )
1364 IF( TRAN.AND..NOT.CONJ )
1366 IF( TRAN )THEN
1372 END IF
1373 * Set LDA to 1 more than minimum value if room.
1375 IF( LDA.LT.NMAX )
1377 * Skip tests if not enough room.
1378 IF( LDA.GT.NMAX )
1393 IF( CONJ )THEN
1396 END IF
1400 IF( CONJ )THEN
1403 END IF
1405 IF( CONJ )
1422 IF( CONJ )THEN
1426 END IF
1431 IF( CONJ )THEN
1435 END IF
1443 IF( CONJ )THEN
1444 IF( TRACE )
1447 IF( REWI )
1452 IF( TRACE )
1455 IF( REWI )
1459 END IF
1461 * Check if error-exit was taken incorrectly.
1463 IF( .NOT.OK )THEN
1467 END IF
1475 IF( CONJ )THEN
1479 END IF
1482 IF( CONJ )THEN
1486 END IF
1487 IF( NULL )THEN
1492 END IF
1495 * If data was incorrectly changed, report and
1501 IF( .NOT.ISAME( I ) )
1504 IF( .NOT.SAME )THEN
1507 END IF
1509 IF( .NOT.NULL )THEN
1513 IF( CONJ )THEN
1517 END IF
1520 IF( UPPER )THEN
1526 END IF
1527 IF( TRAN )THEN
1541 END IF
1542 IF( UPPER )THEN
1546 END IF
1548 * If got really bad answer, report and
1550 IF( FATAL )
1553 END IF
1569 IF( ERRMAX.LT.THRESH )THEN
1573 END IF
1577 IF( N.GT.1 )
1582 IF( CONJ )THEN
1588 END IF
1682 * Set LDC to 1 more than minimum value if room.
1684 IF( LDC.LT.NMAX )
1686 * Skip tests if not enough room.
1687 IF( LDC.GT.NMAX )
1697 IF( TRAN.AND..NOT.CONJ )
1699 IF( TRAN )THEN
1705 END IF
1706 * Set LDA to 1 more than minimum value if room.
1708 IF( LDA.LT.NMAX )
1710 * Skip tests if not enough room.
1711 IF( LDA.GT.NMAX )
1717 IF( TRAN )THEN
1723 END IF
1729 IF( TRAN )THEN
1735 END IF
1746 IF( CONJ )THEN
1749 END IF
1751 IF( CONJ )
1777 IF( CONJ )THEN
1781 END IF
1789 IF( CONJ )THEN
1790 IF( TRACE )
1793 IF( REWI )
1798 IF( TRACE )
1801 IF( REWI )
1805 END IF
1807 * Check if error-exit was taken incorrectly.
1809 IF( .NOT.OK )THEN
1813 END IF
1826 IF( CONJ )THEN
1830 END IF
1831 IF( NULL )THEN
1836 END IF
1839 * If data was incorrectly changed, report and
1845 IF( .NOT.ISAME( I ) )
1848 IF( .NOT.SAME )THEN
1851 END IF
1853 IF( .NOT.NULL )THEN
1857 IF( CONJ )THEN
1861 END IF
1865 IF( UPPER )THEN
1871 END IF
1872 IF( TRAN )THEN
1876 IF( CONJ )THEN
1884 END IF
1894 IF( CONJ )THEN
1906 END IF
1913 END IF
1914 IF( UPPER )THEN
1918 IF( TRAN )
1920 END IF
1922 * If got really bad answer, report and
1924 IF( FATAL )
1927 END IF
1943 IF( ERRMAX.LT.THRESH )THEN
1947 END IF
1951 IF( N.GT.1 )
1956 IF( CONJ )THEN
1962 END IF
2030 * if anything is wrong.
2918 100 IF( OK )THEN
2922 END IF
2988 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2991 IF( I.NE.J )THEN
2993 IF( N.GT.3.AND.J.EQ.N/2 )
2995 IF( HER )THEN
2997 ELSE IF( SYM )THEN
2999 ELSE IF( TRI )THEN
3001 END IF
3002 END IF
3003 END IF
3005 IF( HER )
3007 IF( TRI )
3009 IF( UNIT )
3015 IF( TYPE.EQ.'GE' )THEN
3024 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
3026 IF( UPPER )THEN
3028 IF( UNIT )THEN
3032 END IF
3034 IF( UNIT )THEN
3038 END IF
3040 END IF
3050 IF( HER )THEN
3053 END IF
3055 END IF
3117 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
3124 ELSE IF( TRANA.AND..NOT.TRANB )THEN
3125 IF( CTRANA )THEN
3141 END IF
3142 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
3143 IF( CTRANB )THEN
3159 END IF
3160 ELSE IF( TRANA.AND.TRANB )THEN
3161 IF( CTRANA )THEN
3162 IF( CTRANB )THEN
3180 END IF
3182 IF( CTRANB )THEN
3199 END IF
3200 END IF
3201 END IF
3213 IF( G( I ).NE.RZERO )
3216 IF( ERR*SQRT( EPS ).GE.RONE )
3222 * If the loop completes, all results are at least half accurate.
3230 IF( MV )THEN
3234 END IF
3236 IF( N.GT.1 )
3253 * Tests if two arrays are identical.
3271 IF( RI( I ).NE.RJ( I ) )
3285 * Tests if selected elements in two arrays are equal.
3308 IF( TYPE.EQ.'GE' )THEN
3311 IF( AA( I, J ).NE.AS( I, J ) )
3315 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'SY' )THEN
3317 IF( UPPER )THEN
3323 END IF
3325 IF( AA( I, J ).NE.AS( I, J ) )
3329 IF( AA( I, J ).NE.AS( I, J ) )
3333 END IF
3366 IF( RESET )THEN
3374 END IF
3377 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3378 * If initial I or J = 4 or 8, the period will be 25.
3379 * If initial I or J = 5, the period will be 10.
3388 IF( IC.GE.5 )THEN
3391 END IF
3434 IF( .NOT.LERR )THEN
3437 END IF
3455 * It is called by the Level 3 BLAS routines if an input parameter is
3478 IF( INFO.NE.INFOT )THEN
3479 IF( INFOT.NE.0 )THEN
3483 END IF
3485 END IF
3486 IF( SRNAME.NE.SRNAMT )THEN
3489 END IF
