Lines Matching refs:THEN
132 IF( TRACE )THEN
149 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
155 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
162 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
168 IF( KB( I ).LT.0 )THEN
175 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
181 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
188 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
195 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
209 IF( .NOT.TSTERR )THEN
267 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
275 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
284 IF( .NOT.LTEST( ISNUM ) )THEN
290 IF( TSTERR )THEN
450 IF( FULL )THEN
452 ELSE IF( BANDED )THEN
470 IF( BANDED )THEN
476 IF( BANDED )THEN
484 IF( BANDED )THEN
507 IF( TRAN )THEN
524 IF( NL.GT.1 )THEN
573 IF( FULL )THEN
583 ELSE IF( BANDED )THEN
597 IF( .NOT.OK )THEN
608 IF( FULL )THEN
615 IF( NULL )THEN
623 ELSE IF( BANDED )THEN
632 IF( NULL )THEN
651 IF( .NOT.SAME )THEN
656 IF( .NOT.NULL )THEN
693 IF( ERRMAX.LT.THRESH )THEN
702 IF( FULL )THEN
705 ELSE IF( BANDED )THEN
791 IF( FULL )THEN
793 ELSE IF( BANDED )THEN
795 ELSE IF( PACKED )THEN
806 IF( BANDED )THEN
812 IF( BANDED )THEN
818 IF( BANDED )THEN
828 IF( PACKED )THEN
853 IF( N.GT.1 )THEN
900 IF( FULL )THEN
908 ELSE IF( BANDED )THEN
917 ELSE IF( PACKED )THEN
929 IF( .NOT.OK )THEN
939 IF( FULL )THEN
946 IF( NULL )THEN
953 ELSE IF( BANDED )THEN
961 IF( NULL )THEN
968 ELSE IF( PACKED )THEN
974 IF( NULL )THEN
992 IF( .NOT.SAME )THEN
997 IF( .NOT.NULL )THEN
1031 IF( ERRMAX.LT.THRESH )THEN
1040 IF( FULL )THEN
1043 ELSE IF( BANDED )THEN
1046 ELSE IF( PACKED )THEN
1131 IF( FULL )THEN
1133 ELSE IF( BANDED )THEN
1135 ELSE IF( PACKED )THEN
1150 IF( BANDED )THEN
1156 IF( BANDED )THEN
1162 IF( BANDED )THEN
1172 IF( PACKED )THEN
1204 IF( N.GT.1 )THEN
1229 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1230 IF( FULL )THEN
1238 ELSE IF( BANDED )THEN
1246 ELSE IF( PACKED )THEN
1255 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1256 IF( FULL )THEN
1264 ELSE IF( BANDED )THEN
1272 ELSE IF( PACKED )THEN
1285 IF( .NOT.OK )THEN
1297 THEN
1300 IF( NULL )THEN
1307 ELSE IF( BANDED )THEN
1311 IF( NULL )THEN
1318 ELSE IF( PACKED )THEN
1320 IF( NULL )THEN
1338 IF( .NOT.SAME )THEN
1343 IF( .NOT.NULL )THEN
1344 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1352 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1390 IF( ERRMAX.LT.THRESH )THEN
1399 IF( FULL )THEN
1402 ELSE IF( BANDED )THEN
1405 ELSE IF( PACKED )THEN
1518 IF( M.GT.1 )THEN
1532 IF( N.GT.1 )THEN
1578 IF( .NOT.OK )THEN
1593 IF( NULL )THEN
1609 IF( .NOT.SAME )THEN
1614 IF( .NOT.NULL )THEN
1618 IF( INCX.GT.0 )THEN
1628 IF( INCY.GT.0 )THEN
1659 IF( ERRMAX.LT.THRESH )THEN
1749 IF( FULL )THEN
1751 ELSE IF( PACKED )THEN
1768 IF( PACKED )THEN
1787 IF( N.GT.1 )THEN
1820 IF( FULL )THEN
1827 ELSE IF( PACKED )THEN
1838 IF( .NOT.OK )THEN
1851 IF( NULL )THEN
1857 IF( .NOT.PACKED )THEN
1869 IF( .NOT.SAME )THEN
1874 IF( .NOT.NULL )THEN
1878 IF( INCX.GT.0 )THEN
1890 IF( UPPER )THEN
1901 IF( FULL )THEN
1902 IF( UPPER )THEN
1931 IF( ERRMAX.LT.THRESH )THEN
1943 IF( FULL )THEN
1945 ELSE IF( PACKED )THEN
2028 IF( FULL )THEN
2030 ELSE IF( PACKED )THEN
2047 IF( PACKED )THEN
2066 IF( N.GT.1 )THEN
2080 IF( N.GT.1 )THEN
2118 IF( FULL )THEN
2126 ELSE IF( PACKED )THEN
2138 IF( .NOT.OK )THEN
2153 IF( NULL )THEN
2159 IF( .NOT.PACKED )THEN
2171 IF( .NOT.SAME )THEN
2176 IF( .NOT.NULL )THEN
2180 IF( INCX.GT.0 )THEN
2189 IF( INCY.GT.0 )THEN
2202 IF( UPPER )THEN
2213 IF( FULL )THEN
2214 IF( UPPER )THEN
2245 IF( ERRMAX.LT.THRESH )THEN
2257 IF( FULL )THEN
2260 ELSE IF( PACKED )THEN
2319 * it is called, and is then tested and re-set by CHKXER.
2598 170 IF( OK )THEN
2662 $ THEN
2664 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2669 IF( I.NE.J )THEN
2670 IF( SYM )THEN
2672 ELSE IF( TRI )THEN
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
2717 IF( UNIT )THEN
2734 ELSE IF( TYPE.EQ.'SB'.OR.TYPE.EQ.'TB' )THEN
2736 IF( UPPER )THEN
2739 IF( UNIT )THEN
2746 IF( UNIT )THEN
2763 ELSE IF( TYPE.EQ.'SP'.OR.TYPE.EQ.'TP' )THEN
2766 IF( UPPER )THEN
2776 IF( I.EQ.J )THEN
2818 IF( TRAN )THEN
2825 IF( INCX.LT.0 )THEN
2832 IF( INCY.LT.0 )THEN
2848 IF( TRAN )THEN
2885 IF( MV )THEN
2958 IF( TYPE.EQ.'GE' )THEN
2965 ELSE IF( TYPE.EQ.'SY' )THEN
2967 IF( UPPER )THEN
3014 IF( RESET )THEN
3031 IF( IC.GE.5 )THEN
3072 IF( .NOT.LERR )THEN
3114 IF( INFO.NE.INFOT )THEN
3115 IF( INFOT.NE.0 )THEN
3122 IF( SRNAME.NE.SRNAMT )THEN
