Lines Matching refs:THEN
137 IF( TRACE )THEN
154 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
160 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
167 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
173 IF( KB( I ).LT.0 )THEN
180 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
186 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
193 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
200 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
214 IF( .NOT.TSTERR )THEN
272 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
280 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
289 IF( .NOT.LTEST( ISNUM ) )THEN
295 IF( TSTERR )THEN
460 IF( FULL )THEN
462 ELSE IF( BANDED )THEN
480 IF( BANDED )THEN
486 IF( BANDED )THEN
494 IF( BANDED )THEN
517 IF( TRAN )THEN
534 IF( NL.GT.1 )THEN
583 IF( FULL )THEN
593 ELSE IF( BANDED )THEN
607 IF( .NOT.OK )THEN
618 IF( FULL )THEN
625 IF( NULL )THEN
633 ELSE IF( BANDED )THEN
642 IF( NULL )THEN
661 IF( .NOT.SAME )THEN
666 IF( .NOT.NULL )THEN
703 IF( ERRMAX.LT.THRESH )THEN
712 IF( FULL )THEN
715 ELSE IF( BANDED )THEN
805 IF( FULL )THEN
807 ELSE IF( BANDED )THEN
809 ELSE IF( PACKED )THEN
820 IF( BANDED )THEN
826 IF( BANDED )THEN
832 IF( BANDED )THEN
842 IF( PACKED )THEN
867 IF( N.GT.1 )THEN
914 IF( FULL )THEN
922 ELSE IF( BANDED )THEN
931 ELSE IF( PACKED )THEN
943 IF( .NOT.OK )THEN
953 IF( FULL )THEN
960 IF( NULL )THEN
967 ELSE IF( BANDED )THEN
975 IF( NULL )THEN
982 ELSE IF( PACKED )THEN
988 IF( NULL )THEN
1006 IF( .NOT.SAME )THEN
1011 IF( .NOT.NULL )THEN
1045 IF( ERRMAX.LT.THRESH )THEN
1054 IF( FULL )THEN
1057 ELSE IF( BANDED )THEN
1060 ELSE IF( PACKED )THEN
1151 IF( FULL )THEN
1153 ELSE IF( BANDED )THEN
1155 ELSE IF( PACKED )THEN
1170 IF( BANDED )THEN
1176 IF( BANDED )THEN
1182 IF( BANDED )THEN
1192 IF( PACKED )THEN
1224 IF( N.GT.1 )THEN
1249 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1250 IF( FULL )THEN
1258 ELSE IF( BANDED )THEN
1266 ELSE IF( PACKED )THEN
1275 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1276 IF( FULL )THEN
1284 ELSE IF( BANDED )THEN
1292 ELSE IF( PACKED )THEN
1305 IF( .NOT.OK )THEN
1317 IF( FULL )THEN
1320 IF( NULL )THEN
1327 ELSE IF( BANDED )THEN
1331 IF( NULL )THEN
1338 ELSE IF( PACKED )THEN
1340 IF( NULL )THEN
1358 IF( .NOT.SAME )THEN
1363 IF( .NOT.NULL )THEN
1364 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1372 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1410 IF( ERRMAX.LT.THRESH )THEN
1419 IF( FULL )THEN
1422 ELSE IF( BANDED )THEN
1425 ELSE IF( PACKED )THEN
1544 IF( M.GT.1 )THEN
1558 IF( N.GT.1 )THEN
1597 IF( CONJ )THEN
1611 IF( .NOT.OK )THEN
1626 IF( NULL )THEN
1642 IF( .NOT.SAME )THEN
1647 IF( .NOT.NULL )THEN
1651 IF( INCX.GT.0 )THEN
1661 IF( INCY.GT.0 )THEN
1694 IF( ERRMAX.LT.THRESH )THEN
1790 IF( FULL )THEN
1792 ELSE IF( PACKED )THEN
1809 IF( PACKED )THEN
1828 IF( N.GT.1 )THEN
1862 IF( FULL )THEN
1869 ELSE IF( PACKED )THEN
1880 IF( .NOT.OK )THEN
1893 IF( NULL )THEN
1899 IF( .NOT.PACKED )THEN
1911 IF( .NOT.SAME )THEN
1916 IF( .NOT.NULL )THEN
1920 IF( INCX.GT.0 )THEN
1932 IF( UPPER )THEN
1943 IF( FULL )THEN
1944 IF( UPPER )THEN
1973 IF( ERRMAX.LT.THRESH )THEN
1985 IF( FULL )THEN
1987 ELSE IF( PACKED )THEN
2075 IF( FULL )THEN
2077 ELSE IF( PACKED )THEN
2094 IF( PACKED )THEN
2113 IF( N.GT.1 )THEN
2127 IF( N.GT.1 )THEN
2165 IF( FULL )THEN
2173 ELSE IF( PACKED )THEN
2185 IF( .NOT.OK )THEN
2200 IF( NULL )THEN
2206 IF( .NOT.PACKED )THEN
2218 IF( .NOT.SAME )THEN
2223 IF( .NOT.NULL )THEN
2227 IF( INCX.GT.0 )THEN
2236 IF( INCY.GT.0 )THEN
2249 IF( UPPER )THEN
2260 IF( FULL )THEN
2261 IF( UPPER )THEN
2292 IF( ERRMAX.LT.THRESH )THEN
2304 IF( FULL )THEN
2307 ELSE IF( PACKED )THEN
2369 * it is called, and is then tested and re-set by CHKXER.
2664 180 IF( OK )THEN
2732 $ THEN
2734 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2739 IF( I.NE.J )THEN
2740 IF( SYM )THEN
2742 ELSE IF( TRI )THEN
2758 IF( TYPE.EQ.'GE' )THEN
2767 ELSE IF( TYPE.EQ.'GB' )THEN
2779 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'TR' )THEN
2781 IF( UPPER )THEN
2783 IF( UNIT )THEN
2789 IF( UNIT )THEN
2805 IF( SYM )THEN
2810 ELSE IF( TYPE.EQ.'HB'.OR.TYPE.EQ.'TB' )THEN
2812 IF( UPPER )THEN
2815 IF( UNIT )THEN
2822 IF( UNIT )THEN
2838 IF( SYM )THEN
2843 ELSE IF( TYPE.EQ.'HP'.OR.TYPE.EQ.'TP' )THEN
2846 IF( UPPER )THEN
2856 IF( I.EQ.J )THEN
2909 IF( TRAN.OR.CTRAN )THEN
2916 IF( INCX.LT.0 )THEN
2923 IF( INCY.LT.0 )THEN
2939 IF( TRAN )THEN
2945 ELSE IF( CTRAN )THEN
2982 IF( MV )THEN
3055 IF( TYPE.EQ.'GE' )THEN
3062 ELSE IF( TYPE.EQ.'HE' )THEN
3064 IF( UPPER )THEN
3112 IF( RESET )THEN
3134 IF( IC.GE.5 )THEN
3175 IF( .NOT.LERR )THEN
3217 IF( INFO.NE.INFOT )THEN
3218 IF( INFOT.NE.0 )THEN
3225 IF( SRNAME.NE.SRNAMT )THEN
