Lines Matching refs:THEN
138 IF( TRACE )THEN
155 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
161 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
168 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
174 IF( KB( I ).LT.0 )THEN
181 IF( NINC.LT.1.OR.NINC.GT.NINMAX )THEN
187 IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
194 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
201 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
215 IF( .NOT.TSTERR )THEN
273 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
281 IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
290 IF( .NOT.LTEST( ISNUM ) )THEN
296 IF( TSTERR )THEN
462 IF( FULL )THEN
464 ELSE IF( BANDED )THEN
482 IF( BANDED )THEN
488 IF( BANDED )THEN
496 IF( BANDED )THEN
519 IF( TRAN )THEN
536 IF( NL.GT.1 )THEN
585 IF( FULL )THEN
595 ELSE IF( BANDED )THEN
609 IF( .NOT.OK )THEN
620 IF( FULL )THEN
627 IF( NULL )THEN
635 ELSE IF( BANDED )THEN
644 IF( NULL )THEN
663 IF( .NOT.SAME )THEN
668 IF( .NOT.NULL )THEN
705 IF( ERRMAX.LT.THRESH )THEN
714 IF( FULL )THEN
717 ELSE IF( BANDED )THEN
808 IF( FULL )THEN
810 ELSE IF( BANDED )THEN
812 ELSE IF( PACKED )THEN
823 IF( BANDED )THEN
829 IF( BANDED )THEN
835 IF( BANDED )THEN
845 IF( PACKED )THEN
870 IF( N.GT.1 )THEN
917 IF( FULL )THEN
925 ELSE IF( BANDED )THEN
934 ELSE IF( PACKED )THEN
946 IF( .NOT.OK )THEN
956 IF( FULL )THEN
963 IF( NULL )THEN
970 ELSE IF( BANDED )THEN
978 IF( NULL )THEN
985 ELSE IF( PACKED )THEN
991 IF( NULL )THEN
1009 IF( .NOT.SAME )THEN
1014 IF( .NOT.NULL )THEN
1048 IF( ERRMAX.LT.THRESH )THEN
1057 IF( FULL )THEN
1060 ELSE IF( BANDED )THEN
1063 ELSE IF( PACKED )THEN
1155 IF( FULL )THEN
1157 ELSE IF( BANDED )THEN
1159 ELSE IF( PACKED )THEN
1174 IF( BANDED )THEN
1180 IF( BANDED )THEN
1186 IF( BANDED )THEN
1196 IF( PACKED )THEN
1228 IF( N.GT.1 )THEN
1253 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1254 IF( FULL )THEN
1262 ELSE IF( BANDED )THEN
1270 ELSE IF( PACKED )THEN
1279 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1280 IF( FULL )THEN
1288 ELSE IF( BANDED )THEN
1296 THEN
1309 IF( .NOT.OK )THEN
1321 IF( FULL )THEN
1324 IF( NULL )THEN
1331 ELSE IF( BANDED )THEN
1335 IF( NULL )THEN
1342 ELSE IF( PACKED )THEN
1344 IF( NULL )THEN
1362 IF( .NOT.SAME )THEN
1367 IF( .NOT.NULL )THEN
1368 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1376 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1414 IF( ERRMAX.LT.THRESH )THEN
1423 IF( FULL )THEN
1426 ELSE IF( BANDED )THEN
1429 ELSE IF( PACKED )THEN
1549 IF( M.GT.1 )THEN
1563 IF( N.GT.1 )THEN
1602 IF( CONJ )THEN
1616 IF( .NOT.OK )THEN
1631 IF( NULL )THEN
1647 IF( .NOT.SAME )THEN
1652 IF( .NOT.NULL )THEN
1656 IF( INCX.GT.0 )THEN
1666 IF( INCY.GT.0 )THEN
1699 IF( ERRMAX.LT.THRESH )THEN
1796 IF( FULL )THEN
1798 ELSE IF( PACKED )THEN
1815 IF( PACKED )THEN
1834 IF( N.GT.1 )THEN
1868 IF( FULL )THEN
1875 ELSE IF( PACKED )THEN
1886 IF( .NOT.OK )THEN
1899 IF( NULL )THEN
1905 IF( .NOT.PACKED )THEN
1917 IF( .NOT.SAME )THEN
1922 IF( .NOT.NULL )THEN
1926 IF( INCX.GT.0 )THEN
1938 IF( UPPER )THEN
1949 IF( FULL )THEN
1950 IF( UPPER )THEN
1979 IF( ERRMAX.LT.THRESH )THEN
1991 IF( FULL )THEN
1993 ELSE IF( PACKED )THEN
2082 IF( FULL )THEN
2084 ELSE IF( PACKED )THEN
2101 IF( PACKED )THEN
2120 IF( N.GT.1 )THEN
2134 IF( N.GT.1 )THEN
2172 IF( FULL )THEN
2180 ELSE IF( PACKED )THEN
2192 IF( .NOT.OK )THEN
2207 IF( NULL )THEN
2213 IF( .NOT.PACKED )THEN
2225 IF( .NOT.SAME )THEN
2230 IF( .NOT.NULL )THEN
2234 IF( INCX.GT.0 )THEN
2243 IF( INCY.GT.0 )THEN
2256 IF( UPPER )THEN
2267 IF( FULL )THEN
2268 IF( UPPER )THEN
2299 IF( ERRMAX.LT.THRESH )THEN
2311 IF( FULL )THEN
2314 ELSE IF( PACKED )THEN
2376 * it is called, and is then tested and re-set by CHKXER.
2671 180 IF( OK )THEN
2740 $ THEN
2742 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2747 IF( I.NE.J )THEN
2748 IF( SYM )THEN
2750 ELSE IF( TRI )THEN
2766 IF( TYPE.EQ.'GE' )THEN
2775 ELSE IF( TYPE.EQ.'GB' )THEN
2787 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'TR' )THEN
2789 IF( UPPER )THEN
2791 IF( UNIT )THEN
2797 IF( UNIT )THEN
2813 IF( SYM )THEN
2818 ELSE IF( TYPE.EQ.'HB'.OR.TYPE.EQ.'TB' )THEN
2820 IF( UPPER )THEN
2823 IF( UNIT )THEN
2830 IF( UNIT )THEN
2846 IF( SYM )THEN
2851 ELSE IF( TYPE.EQ.'HP'.OR.TYPE.EQ.'TP' )THEN
2854 IF( UPPER )THEN
2864 IF( I.EQ.J )THEN
2917 IF( TRAN.OR.CTRAN )THEN
2924 IF( INCX.LT.0 )THEN
2931 IF( INCY.LT.0 )THEN
2947 IF( TRAN )THEN
2953 ELSE IF( CTRAN )THEN
2990 IF( MV )THEN
3063 IF( TYPE.EQ.'GE' )THEN
3070 ELSE IF( TYPE.EQ.'HE' )THEN
3072 IF( UPPER )THEN
3120 IF( RESET )THEN
3142 IF( IC.GE.5 )THEN
3183 IF( .NOT.LERR )THEN
3225 IF( INFO.NE.INFOT )THEN
3226 IF( INFOT.NE.0 )THEN
3233 IF( SRNAME.NE.SRNAMT )THEN
