Lines Matching refs:IF
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
153 IF( TRACE )THEN
155 END IF
170 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
173 END IF
176 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
179 END IF
183 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
186 END IF
190 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
193 END IF
202 IF( .NOT.TSTERR )THEN
205 END IF
218 IF( SNAMET.EQ.SNAMES( I ) )
256 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
259 END IF
265 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
268 END IF
283 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
286 END IF
292 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
295 END IF
301 IF( .NOT.LTEST( ISNUM ) )THEN
307 IF( TSTERR )THEN
310 END IF
345 190 IF( FATAL.AND.SFATAL )
347 END IF
360 IF( TRACE )
365 9999 FORMAT( ' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
460 * Set LDC to 1 more than minimum value if room.
462 IF( LDC.LT.NMAX )
464 * Skip tests if not enough room.
465 IF( LDC.GT.NMAX )
477 IF( TRANA )THEN
483 END IF
484 * Set LDA to 1 more than minimum value if room.
486 IF( LDA.LT.NMAX )
488 * Skip tests if not enough room.
489 IF( LDA.GT.NMAX )
502 IF( TRANB )THEN
508 END IF
509 * Set LDB to 1 more than minimum value if room.
511 IF( LDB.LT.NMAX )
513 * Skip tests if not enough room.
514 IF( LDB.GT.NMAX )
561 IF( TRACE )
565 IF( REWI )
570 * Check if error-exit was taken incorrectly.
572 IF( .NOT.OK )THEN
576 END IF
591 IF( NULL )THEN
596 END IF
599 * If data was incorrectly changed, report
605 IF( .NOT.ISAME( I ) )
608 IF( .NOT.SAME )THEN
611 END IF
613 IF( .NOT.NULL )THEN
622 * If got really bad answer, report and
624 IF( FATAL )
626 END IF
644 IF( ERRMAX.LT.THRESH )THEN
648 END IF
741 * Set LDC to 1 more than minimum value if room.
743 IF( LDC.LT.NMAX )
745 * Skip tests if not enough room.
746 IF( LDC.GT.NMAX )
751 * Set LDB to 1 more than minimum value if room.
753 IF( LDB.LT.NMAX )
755 * Skip tests if not enough room.
756 IF( LDB.GT.NMAX )
769 IF( LEFT )THEN
773 END IF
774 * Set LDA to 1 more than minimum value if room.
776 IF( LDA.LT.NMAX )
778 * Skip tests if not enough room.
779 IF( LDA.GT.NMAX )
828 IF( TRACE )
831 IF( REWI )
836 * Check if error-exit was taken incorrectly.
838 IF( .NOT.OK )THEN
842 END IF
856 IF( NULL )THEN
861 END IF
864 * If data was incorrectly changed, report and
870 IF( .NOT.ISAME( I ) )
873 IF( .NOT.SAME )THEN
876 END IF
878 IF( .NOT.NULL )THEN
882 IF( LEFT )THEN
892 END IF
894 * If got really bad answer, report and
896 IF( FATAL )
898 END IF
914 IF( ERRMAX.LT.THRESH )THEN
918 END IF
1018 * Set LDB to 1 more than minimum value if room.
1020 IF( LDB.LT.NMAX )
1022 * Skip tests if not enough room.
1023 IF( LDB.GT.NMAX )
1031 IF( LEFT )THEN
1035 END IF
1036 * Set LDA to 1 more than minimum value if room.
1038 IF( LDA.LT.NMAX )
1040 * Skip tests if not enough room.
1041 IF( LDA.GT.NMAX )
1090 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1091 IF( TRACE )
1095 IF( REWI )
1099 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1100 IF( TRACE )
1104 IF( REWI )
1108 END IF
1110 * Check if error-exit was taken incorrectly.
1112 IF( .NOT.OK )THEN
1116 END IF
1129 IF( NULL )THEN
1134 END IF
1137 * If data was incorrectly changed, report and
1143 IF( .NOT.ISAME( I ) )
1146 IF( .NOT.SAME )THEN
1149 END IF
1151 IF( .NOT.NULL )THEN
1152 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1156 IF( LEFT )THEN
1168 END IF
1169 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1183 IF( LEFT )THEN
1195 END IF
1196 END IF
1198 * If got really bad answer, report and
1200 IF( FATAL )
1202 END IF
1220 IF( ERRMAX.LT.THRESH )THEN
1224 END IF
1314 * Set LDC to 1 more than minimum value if room.
1316 IF( LDC.LT.NMAX )
1318 * Skip tests if not enough room.
1319 IF( LDC.GT.NMAX )
1330 IF( TRAN )THEN
1336 END IF
1337 * Set LDA to 1 more than minimum value if room.
1339 IF( LDA.LT.NMAX )
1341 * Skip tests if not enough room.
1342 IF( LDA.GT.NMAX )
1387 IF( TRACE )
1390 IF( REWI )
1395 * Check if error-exit was taken incorrectly.
1397 IF( .NOT.OK )THEN
1401 END IF
1413 IF( NULL )THEN
1418 END IF
1421 * If data was incorrectly changed, report and
1427 IF( .NOT.ISAME( I ) )
1430 IF( .NOT.SAME )THEN
1433 END IF
1435 IF( .NOT.NULL )THEN
1441 IF( UPPER )THEN
1447 END IF
1448 IF( TRAN )THEN
1462 END IF
1463 IF( UPPER )THEN
1467 END IF
1469 * If got really bad answer, report and
1471 IF( FATAL )
1474 END IF
1490 IF( ERRMAX.LT.THRESH )THEN
1494 END IF
1498 IF( N.GT.1 )
1589 * Set LDC to 1 more than minimum value if room.
1591 IF( LDC.LT.NMAX )
1593 * Skip tests if not enough room.
1594 IF( LDC.GT.NMAX )
1605 IF( TRAN )THEN
1611 END IF
1612 * Set LDA to 1 more than minimum value if room.
1614 IF( LDA.LT.NMAX )
1616 * Skip tests if not enough room.
1617 IF( LDA.GT.NMAX )
1623 IF( TRAN )THEN
1629 END IF
1635 IF( TRAN )THEN
1641 END IF
1683 IF( TRACE )
1686 IF( REWI )
1691 * Check if error-exit was taken incorrectly.
1693 IF( .NOT.OK )THEN
1697 END IF
1711 IF( NULL )THEN
1716 END IF
1719 * If data was incorrectly changed, report and
1725 IF( .NOT.ISAME( I ) )
1728 IF( .NOT.SAME )THEN
1731 END IF
1733 IF( .NOT.NULL )THEN
1740 IF( UPPER )THEN
1746 END IF
1747 IF( TRAN )THEN
1773 END IF
1774 IF( UPPER )THEN
1778 IF( TRAN )
1780 END IF
1782 * If got really bad answer, report and
1784 IF( FATAL )
1787 END IF
1803 IF( ERRMAX.LT.THRESH )THEN
1807 END IF
1811 IF( N.GT.1 )
1877 * if anything is wrong.
2381 70 IF( OK )THEN
2385 END IF
2443 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2446 IF( I.NE.J )THEN
2448 IF( N.GT.3.AND.J.EQ.N/2 )
2450 IF( SYM )THEN
2452 ELSE IF( TRI )THEN
2454 END IF
2455 END IF
2456 END IF
2458 IF( TRI )
2460 IF( UNIT )
2466 IF( TYPE.EQ.'GE' )THEN
2475 ELSE IF( TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
2477 IF( UPPER )THEN
2479 IF( UNIT )THEN
2483 END IF
2485 IF( UNIT )THEN
2489 END IF
2491 END IF
2502 END IF
2553 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
2560 ELSE IF( TRANA.AND..NOT.TRANB )THEN
2567 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
2574 ELSE IF( TRANA.AND.TRANB )THEN
2581 END IF
2592 IF( G( I ).NE.ZERO )
2595 IF( ERR*SQRT( EPS ).GE.ONE )
2601 * If the loop completes, all results are at least half accurate.
2609 IF( MV )THEN
2613 END IF
2615 IF( N.GT.1 )
2632 * Tests if two arrays are identical.
2650 IF( RI( I ).NE.RJ( I ) )
2664 if selected elements in two arrays are equal.
2687 IF( TYPE.EQ.'GE' )THEN
2690 IF( AA( I, J ).NE.AS( I, J ) )
2694 ELSE IF( TYPE.EQ.'SY' )THEN
2696 IF( UPPER )THEN
2702 END IF
2704 IF( AA( I, J ).NE.AS( I, J ) )
2708 IF( AA( I, J ).NE.AS( I, J ) )
2712 END IF
2742 IF( RESET )THEN
2748 END IF
2751 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
2752 * If initial I = 4 or 8, the period will be 25.
2753 * If initial I = 5, the period will be 10.
2759 IF( IC.GE.5 )THEN
2762 END IF
2805 IF( .NOT.LERR )THEN
2808 END IF
2826 * It is called by the Level 3 BLAS routines if an input parameter is
2849 IF( INFO.NE.INFOT )THEN
2850 IF( INFOT.NE.0 )THEN
2854 END IF
2856 END IF
2857 IF( SRNAME.NE.SRNAMT )THEN
2860 END IF
