Lines Matching refs:IF
13 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
114 IF( TRACE )THEN
116 END IF
131 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
134 END IF
137 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
140 END IF
144 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
147 END IF
151 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
154 END IF
163 IF( .NOT.TSTERR )THEN
166 END IF
179 IF( SNAMET.EQ.SNAMES( I ) )
194 IF( SDIFF( RONE + EPS, RONE ).EQ.RZERO )
224 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
227 END IF
233 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
236 END IF
251 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
254 END IF
260 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
263 END IF
269 IF( .NOT.LTEST( ISNUM ) )THEN
275 IF( TSTERR )THEN
278 END IF
314 190 IF( FATAL.AND.SFATAL )
316 END IF
329 IF( TRACE )
334 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
435 * Set LDC to 1 more than minimum value if room.
437 IF( LDC.LT.NMAX )
439 * Skip tests if not enough room.
440 IF( LDC.GT.NMAX )
452 IF( TRANA )THEN
458 END IF
459 * Set LDA to 1 more than minimum value if room.
461 IF( LDA.LT.NMAX )
463 * Skip tests if not enough room.
464 IF( LDA.GT.NMAX )
477 IF( TRANB )THEN
483 END IF
484 * Set LDB to 1 more than minimum value if room.
486 IF( LDB.LT.NMAX )
488 * Skip tests if not enough room.
489 IF( LDB.GT.NMAX )
536 IF( TRACE )
540 IF( REWI )
545 * Check if error-exit was taken incorrectly.
547 IF( .NOT.OK )THEN
551 END IF
566 IF( NULL )THEN
571 END IF
574 * If data was incorrectly changed, report
580 IF( .NOT.ISAME( I ) )
583 IF( .NOT.SAME )THEN
586 END IF
588 IF( .NOT.NULL )THEN
597 * If got really bad answer, report and
599 IF( FATAL )
601 END IF
619 IF( ERRMAX.LT.THRESH )THEN
623 END IF
721 * Set LDC to 1 more than minimum value if room.
723 IF( LDC.LT.NMAX )
725 * Skip tests if not enough room.
726 IF( LDC.GT.NMAX )
730 * Set LDB to 1 more than minimum value if room.
732 IF( LDB.LT.NMAX )
734 * Skip tests if not enough room.
735 IF( LDB.GT.NMAX )
748 IF( LEFT )THEN
752 END IF
753 * Set LDA to 1 more than minimum value if room.
755 IF( LDA.LT.NMAX )
757 * Skip tests if not enough room.
758 IF( LDA.GT.NMAX )
807 IF( TRACE )
810 IF( REWI )
812 IF( CONJ )THEN
818 END IF
820 * Check if error-exit was taken incorrectly.
822 IF( .NOT.OK )THEN
826 END IF
840 IF( NULL )THEN
845 END IF
848 * If data was incorrectly changed, report and
854 IF( .NOT.ISAME( I ) )
857 IF( .NOT.SAME )THEN
860 END IF
862 IF( .NOT.NULL )THEN
866 IF( LEFT )THEN
876 END IF
878 * If got really bad answer, report and
880 IF( FATAL )
882 END IF
898 IF( ERRMAX.LT.THRESH )THEN
902 END IF
1006 * Set LDB to 1 more than minimum value if room.
1008 IF( LDB.LT.NMAX )
1010 * Skip tests if not enough room.
1011 IF( LDB.GT.NMAX )
1019 IF( LEFT )THEN
1023 END IF
1024 * Set LDA to 1 more than minimum value if room.
1026 IF( LDA.LT.NMAX )
1028 * Skip tests if not enough room.
1029 IF( LDA.GT.NMAX )
1078 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1079 IF( TRACE )
1083 IF( REWI )
1087 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1088 IF( TRACE )
1092 IF( REWI )
1096 END IF
1098 * Check if error-exit was taken incorrectly.
1100 IF( .NOT.OK )THEN
1104 END IF
1117 IF( NULL )THEN
1122 END IF
1125 * If data was incorrectly changed, report and
1131 IF( .NOT.ISAME( I ) )
1134 IF( .NOT.SAME )THEN
1137 END IF
1139 IF( .NOT.NULL )THEN
1140 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1144 IF( LEFT )THEN
1156 END IF
1157 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1171 IF( LEFT )THEN
1183 END IF
1184 END IF
1186 * If got really bad answer, report and
1188 IF( FATAL )
1190 END IF
1208 IF( ERRMAX.LT.THRESH )THEN
1212 END IF
1307 * Set LDC to 1 more than minimum value if room.
1309 IF( LDC.LT.NMAX )
1311 * Skip tests if not enough room.
1312 IF( LDC.GT.NMAX )
1322 IF( TRAN.AND..NOT.CONJ )
1324 IF( TRAN )THEN
1330 END IF
1331 * Set LDA to 1 more than minimum value if room.
1333 IF( LDA.LT.NMAX )
1335 * Skip tests if not enough room.
1336 IF( LDA.GT.NMAX )
1351 IF( CONJ )THEN
1354 END IF
1358 IF( CONJ )THEN
1361 END IF
1363 IF( CONJ )
1380 IF( CONJ )THEN
1384 END IF
1389 IF( CONJ )THEN
1393 END IF
1401 IF( CONJ )THEN
1402 IF( TRACE )
1405 IF( REWI )
1410 IF( TRACE )
1413 IF( REWI )
1417 END IF
1419 * Check if error-exit was taken incorrectly.
1421 IF( .NOT.OK )THEN
1425 END IF
1433 IF( CONJ )THEN
1437 END IF
1440 IF( CONJ )THEN
1444 END IF
1445 IF( NULL )THEN
1450 END IF
1453 * If data was incorrectly changed, report and
1459 IF( .NOT.ISAME( I ) )
1462 IF( .NOT.SAME )THEN
1465 END IF
1467 IF( .NOT.NULL )THEN
1471 IF( CONJ )THEN
1475 END IF
1478 IF( UPPER )THEN
1484 END IF
1485 IF( TRAN )THEN
1499 END IF
1500 IF( UPPER )THEN
1504 END IF
1506 * If got really bad answer, report and
1508 IF( FATAL )
1511 END IF
1527 IF( ERRMAX.LT.THRESH )THEN
1531 END IF
1535 IF( N.GT.1 )
1540 IF( CONJ )THEN
1546 END IF
1639 * Set LDC to 1 more than minimum value if room.
1641 IF( LDC.LT.NMAX )
1643 * Skip tests if not enough room.
1644 IF( LDC.GT.NMAX )
1654 IF( TRAN.AND..NOT.CONJ )
1656 IF( TRAN )THEN
1662 END IF
1663 * Set LDA to 1 more than minimum value if room.
1665 IF( LDA.LT.NMAX )
1667 * Skip tests if not enough room.
1668 IF( LDA.GT.NMAX )
1674 IF( TRAN )THEN
1680 END IF
1686 IF( TRAN )THEN
1692 END IF
1703 IF( CONJ )THEN
1706 END IF
1708 IF( CONJ )
1734 IF( CONJ )THEN
1738 END IF
1746 IF( CONJ )THEN
1747 IF( TRACE )
1750 IF( REWI )
1755 IF( TRACE )
1758 IF( REWI )
1762 END IF
1764 * Check if error-exit was taken incorrectly.
1766 IF( .NOT.OK )THEN
1770 END IF
1783 IF( CONJ )THEN
1787 END IF
1788 IF( NULL )THEN
1793 END IF
1796 * If data was incorrectly changed, report and
1802 IF( .NOT.ISAME( I ) )
1805 IF( .NOT.SAME )THEN
1808 END IF
1810 IF( .NOT.NULL )THEN
1814 IF( CONJ )THEN
1818 END IF
1822 IF( UPPER )THEN
1828 END IF
1829 IF( TRAN )THEN
1833 IF( CONJ )THEN
1841 END IF
1851 IF( CONJ )THEN
1863 END IF
1870 END IF
1871 IF( UPPER )THEN
1875 IF( TRAN )
1877 END IF
1879 * If got really bad answer, report and
1881 IF( FATAL )
1884 END IF
1900 IF( ERRMAX.LT.THRESH )THEN
1904 END IF
1908 IF( N.GT.1 )
1913 IF( CONJ )THEN
1919 END IF
1977 * if anything is wrong.
2857 100 IF( OK )THEN
2861 END IF
2926 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2929 IF( I.NE.J )THEN
2931 IF( N.GT.3.AND.J.EQ.N/2 )
2933 IF( HER )THEN
2935 ELSE IF( SYM )THEN
2937 ELSE IF( TRI )THEN
2939 END IF
2940 END IF
2941 END IF
2943 IF( HER )
2945 IF( TRI )
2947 IF( UNIT )
2953 IF( TYPE.EQ.'GE' )THEN
2962 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
2964 IF( UPPER )THEN
2966 IF( UNIT )THEN
2970 END IF
2972 IF( UNIT )THEN
2976 END IF
2978 END IF
2988 IF( HER )THEN
2991 END IF
2993 END IF
3055 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
3062 ELSE IF( TRANA.AND..NOT.TRANB )THEN
3063 IF( CTRANA )THEN
3079 END IF
3080 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
3081 IF( CTRANB )THEN
3097 END IF
3098 ELSE IF( TRANA.AND.TRANB )THEN
3099 IF( CTRANA )THEN
3100 IF( CTRANB )THEN
3117 END IF
3119 IF( CTRANB )THEN
3135 END IF
3136 END IF
3137 END IF
3149 IF( G( I ).NE.RZERO )
3152 IF( ERR*SQRT( EPS ).GE.RONE )
3158 * If the loop completes, all results are at least half accurate.
3166 IF( MV )THEN
3170 END IF
3172 IF( N.GT.1 )
3189 * Tests if two arrays are identical.
3207 IF( RI( I ).NE.RJ( I ) )
3221 * Tests if selected elements in two arrays are equal.
3244 IF( TYPE.EQ.'GE' )THEN
3247 IF( AA( I, J ).NE.AS( I, J ) )
3251 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'SY' )THEN
3253 IF( UPPER )THEN
3259 END IF
3261 IF( AA( I, J ).NE.AS( I, J ) )
3265 IF( AA( I, J ).NE.AS( I, J ) )
3269 END IF
3303 IF( RESET )THEN
3311 END IF
3314 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3315 * If initial I or J = 4 or 8, the period will be 25.
3316 * If initial I or J = 5, the period will be 10.
3325 IF( IC.GE.5 )THEN
3328 END IF
3371 IF( .NOT.LERR )THEN
3374 END IF
3392 * It is called by the Level 3 BLAS routines if an input parameter is
3415 IF( INFO.NE.INFOT )THEN
3416 IF( INFOT.NE.0 )THEN
3420 END IF
3422 END IF
3423 IF( SRNAME.NE.SRNAMT )THEN
3426 END IF
