Lines Matching refs:IF
13 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
107 IF( TRACE )THEN
109 END IF
124 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
127 END IF
130 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
133 END IF
137 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
140 END IF
144 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
147 END IF
156 IF( .NOT.TSTERR )THEN
159 END IF
172 IF( SNAMET.EQ.SNAMES( I ) )
187 IF( SDIFF( ONE + EPS, ONE ).EQ.ZERO )
217 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
220 END IF
226 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
229 END IF
244 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
247 END IF
253 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
256 END IF
262 IF( .NOT.LTEST( ISNUM ) )THEN
268 IF( TSTERR )THEN
271 END IF
306 190 IF( FATAL.AND.SFATAL )
308 END IF
321 IF( TRACE )
326 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
421 * Set LDC to 1 more than minimum value if room.
423 IF( LDC.LT.NMAX )
425 * Skip tests if not enough room.
426 IF( LDC.GT.NMAX )
438 IF( TRANA )THEN
444 END IF
445 * Set LDA to 1 more than minimum value if room.
447 IF( LDA.LT.NMAX )
449 * Skip tests if not enough room.
450 IF( LDA.GT.NMAX )
463 IF( TRANB )THEN
469 END IF
470 * Set LDB to 1 more than minimum value if room.
472 IF( LDB.LT.NMAX )
474 * Skip tests if not enough room.
475 IF( LDB.GT.NMAX )
522 IF( TRACE )
526 IF( REWI )
531 * Check if error-exit was taken incorrectly.
533 IF( .NOT.OK )THEN
537 END IF
552 IF( NULL )THEN
557 END IF
560 * If data was incorrectly changed, report
566 IF( .NOT.ISAME( I ) )
569 IF( .NOT.SAME )THEN
572 END IF
574 IF( .NOT.NULL )THEN
583 * If got really bad answer, report and
585 IF( FATAL )
587 END IF
605 IF( ERRMAX.LT.THRESH )THEN
609 END IF
702 * Set LDC to 1 more than minimum value if room.
704 IF( LDC.LT.NMAX )
706 * Skip tests if not enough room.
707 IF( LDC.GT.NMAX )
712 * Set LDB to 1 more than minimum value if room.
714 IF( LDB.LT.NMAX )
716 * Skip tests if not enough room.
717 IF( LDB.GT.NMAX )
730 IF( LEFT )THEN
734 END IF
735 * Set LDA to 1 more than minimum value if room.
737 IF( LDA.LT.NMAX )
739 * Skip tests if not enough room.
740 IF( LDA.GT.NMAX )
789 IF( TRACE )
792 IF( REWI )
797 * Check if error-exit was taken incorrectly.
799 IF( .NOT.OK )THEN
803 END IF
817 IF( NULL )THEN
822 END IF
825 * If data was incorrectly changed, report and
831 IF( .NOT.ISAME( I ) )
834 IF( .NOT.SAME )THEN
837 END IF
839 IF( .NOT.NULL )THEN
843 IF( LEFT )THEN
853 END IF
855 * If got really bad answer, report and
857 IF( FATAL )
859 END IF
875 IF( ERRMAX.LT.THRESH )THEN
879 END IF
979 * Set LDB to 1 more than minimum value if room.
981 IF( LDB.LT.NMAX )
983 * Skip tests if not enough room.
984 IF( LDB.GT.NMAX )
992 IF( LEFT )THEN
996 END IF
997 * Set LDA to 1 more than minimum value if room.
999 IF( LDA.LT.NMAX )
1001 * Skip tests if not enough room.
1002 IF( LDA.GT.NMAX )
1051 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1052 IF( TRACE )
1056 IF( REWI )
1060 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1061 IF( TRACE )
1065 IF( REWI )
1069 END IF
1071 * Check if error-exit was taken incorrectly.
1073 IF( .NOT.OK )THEN
1077 END IF
1090 IF( NULL )THEN
1095 END IF
1098 * If data was incorrectly changed, report and
1104 IF( .NOT.ISAME( I ) )
1107 IF( .NOT.SAME )THEN
1110 END IF
1112 IF( .NOT.NULL )THEN
1113 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1117 IF( LEFT )THEN
1129 END IF
1130 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1144 IF( LEFT )THEN
1156 END IF
1157 END IF
1159 * If got really bad answer, report and
1161 IF( FATAL )
1163 END IF
1181 IF( ERRMAX.LT.THRESH )THEN
1185 END IF
1275 * Set LDC to 1 more than minimum value if room.
1277 IF( LDC.LT.NMAX )
1279 * Skip tests if not enough room.
1280 IF( LDC.GT.NMAX )
1291 IF( TRAN )THEN
1297 END IF
1298 * Set LDA to 1 more than minimum value if room.
1300 IF( LDA.LT.NMAX )
1302 * Skip tests if not enough room.
1303 IF( LDA.GT.NMAX )
1348 IF( TRACE )
1351 IF( REWI )
1356 * Check if error-exit was taken incorrectly.
1358 IF( .NOT.OK )THEN
1362 END IF
1374 IF( NULL )THEN
1379 END IF
1382 * If data was incorrectly changed, report and
1388 IF( .NOT.ISAME( I ) )
1391 IF( .NOT.SAME )THEN
1394 END IF
1396 IF( .NOT.NULL )THEN
1402 IF( UPPER )THEN
1408 END IF
1409 IF( TRAN )THEN
1423 END IF
1424 IF( UPPER )THEN
1428 END IF
1430 * If got really bad answer, report and
1432 IF( FATAL )
1435 END IF
1451 IF( ERRMAX.LT.THRESH )THEN
1455 END IF
1459 IF( N.GT.1 )
1550 * Set LDC to 1 more than minimum value if room.
1552 IF( LDC.LT.NMAX )
1554 * Skip tests if not enough room.
1555 IF( LDC.GT.NMAX )
1566 IF( TRAN )THEN
1572 END IF
1573 * Set LDA to 1 more than minimum value if room.
1575 IF( LDA.LT.NMAX )
1577 * Skip tests if not enough room.
1578 IF( LDA.GT.NMAX )
1584 IF( TRAN )THEN
1590 END IF
1596 IF( TRAN )THEN
1602 END IF
1644 IF( TRACE )
1647 IF( REWI )
1652 * Check if error-exit was taken incorrectly.
1654 IF( .NOT.OK )THEN
1658 END IF
1672 IF( NULL )THEN
1677 END IF
1680 * If data was incorrectly changed, report and
1686 IF( .NOT.ISAME( I ) )
1689 IF( .NOT.SAME )THEN
1692 END IF
1694 IF( .NOT.NULL )THEN
1701 IF( UPPER )THEN
1707 END IF
1708 IF( TRAN )THEN
1734 END IF
1735 IF( UPPER )THEN
1739 IF( TRAN )
1741 END IF
1743 * If got really bad answer, report and
1745 IF( FATAL )
1748 END IF
1764 IF( ERRMAX.LT.THRESH )THEN
1768 END IF
1772 IF( N.GT.1 )
1832 * if anything is wrong.
2330 70 IF( OK )THEN
2334 END IF
2392 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2395 IF( I.NE.J )THEN
2397 IF( N.GT.3.AND.J.EQ.N/2 )
2399 IF( SYM )THEN
2401 ELSE IF( TRI )THEN
2403 END IF
2404 END IF
2405 END IF
2407 IF( TRI )
2409 IF( UNIT )
2415 IF( TYPE.EQ.'GE' )THEN
2424 ELSE IF( TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
2426 IF( UPPER )THEN
2428 IF( UNIT )THEN
2432 END IF
2434 IF( UNIT )THEN
2438 END IF
2440 END IF
2451 END IF
2502 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
2509 ELSE IF( TRANA.AND..NOT.TRANB )THEN
2516 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
2523 ELSE IF( TRANA.AND.TRANB )THEN
2530 END IF
2541 IF( G( I ).NE.ZERO )
2544 IF( ERR*SQRT( EPS ).GE.ONE )
2550 * If the loop completes, all results are at least half accurate.
2558 IF( MV )THEN
2562 END IF
2564 IF( N.GT.1 )
2581 * Tests if two arrays are identical.
2599 IF( RI( I ).NE.RJ( I ) )
2613 * Tests if selected elements in two arrays are equal.
2636 IF( TYPE.EQ.'GE' )THEN
2639 IF( AA( I, J ).NE.AS( I, J ) )
2643 ELSE IF( TYPE.EQ.'SY' )THEN
2645 IF( UPPER )THEN
2651 END IF
2653 IF
2657 IF( AA( I, J ).NE.AS( I, J ) )
2661 END IF
2692 IF( RESET )THEN
2698 END IF
2701 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
2702 * If initial I = 4 or 8, the period will be 25.
2703 * If initial I = 5, the period will be 10.
2709 IF( IC.GE.5 )THEN
2712 END IF
2755 IF( .NOT.LERR )THEN
2758 END IF
2776 * It is called by the Level 3 BLAS routines if an input parameter is
2799 IF( INFO.NE.INFOT )THEN
2800 IF( INFOT.NE.0 )THEN
2804 END IF
2806 END IF
2807 IF( SRNAME.NE.SRNAMT )THEN
2810 END IF
