Lines Matching refs:THEN
105 IF( TRACE )THEN
124 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
130 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
137 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
144 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
156 IF( .NOT.TSTERR )THEN
166 IF (LAYOUT.EQ.2) THEN
170 ELSE IF (LAYOUT.EQ.1) THEN
173 ELSE IF (LAYOUT.EQ.0) THEN
233 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
242 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
260 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
269 IF( .NOT.SAME.OR.ERR.NE.ZERO )THEN
278 IF( .NOT.LTEST( ISNUM ) )THEN
284 IF( TSTERR )THEN
294 140 IF (CORDER) THEN
300 IF (RORDER) THEN
308 150 IF (CORDER) THEN
314 IF (RORDER) THEN
322 160 IF (CORDER) THEN
328 IF (RORDER) THEN
336 170 IF (CORDER) THEN
342 IF (RORDER) THEN
350 180 IF (CORDER) THEN
356 IF (RORDER) THEN
499 IF( TRANA )THEN
524 IF( TRANB )THEN
595 IF( .NOT.OK )THEN
614 IF( NULL )THEN
631 IF( .NOT.SAME )THEN
636 IF( .NOT.NULL )THEN
667 IF( ERRMAX.LT.THRESH )THEN
714 IF (TRANSA.EQ.'N')THEN
716 ELSE IF (TRANSA.EQ.'T')THEN
721 IF (TRANSB.EQ.'N')THEN
723 ELSE IF (TRANSB.EQ.'T')THEN
728 IF (IORDER.EQ.1)THEN
834 IF( LEFT )THEN
904 IF( .NOT.OK )THEN
922 IF( NULL )THEN
939 IF( .NOT.SAME )THEN
944 IF( .NOT.NULL )THEN
948 IF( LEFT )THEN
980 IF( ERRMAX.LT.THRESH )THEN
1028 IF (SIDE.EQ.'L')THEN
1033 IF (UPLO.EQ.'U')THEN
1038 IF (IORDER.EQ.1)THEN
1136 IF( LEFT )THEN
1195 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1205 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1219 IF( .NOT.OK )THEN
1236 IF( NULL )THEN
1253 IF( .NOT.SAME )THEN
1258 IF( .NOT.NULL )THEN
1259 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1263 IF( LEFT )THEN
1276 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1290 IF( LEFT )THEN
1327 IF( ERRMAX.LT.THRESH )THEN
1374 IF (SIDE.EQ.'L')THEN
1379 IF (UPLO.EQ.'U')THEN
1384 IF (TRANSA.EQ.'N')THEN
1386 ELSE IF (TRANSA.EQ.'T')THEN
1391 IF (DIAG.EQ.'N')THEN
1396 IF (IORDER.EQ.1)THEN
1488 IF( TRAN )THEN
1555 IF( .NOT.OK )THEN
1571 IF( NULL )THEN
1588 IF( .NOT.SAME )THEN
1593 IF( .NOT.NULL )THEN
1599 IF( UPPER )THEN
1606 IF( TRAN )THEN
1621 IF( UPPER )THEN
1648 IF( ERRMAX.LT.THRESH )THEN
1700 IF (UPLO.EQ.'U')THEN
1705 IF (TRANSA.EQ.'N')THEN
1707 ELSE IF (TRANSA.EQ.'T')THEN
1712 IF (IORDER.EQ.1)THEN
1805 IF( TRAN )THEN
1823 IF( TRAN )THEN
1835 IF( TRAN )THEN
1894 IF( .NOT.OK )THEN
1912 IF( NULL )THEN
1929 IF( .NOT.SAME )THEN
1934 IF( .NOT.NULL )THEN
1941 IF( UPPER )THEN
1948 IF( TRAN )THEN
1975 IF( UPPER )THEN
2004 IF( ERRMAX.LT.THRESH )THEN
2057 IF (UPLO.EQ.'U')THEN
2062 IF (TRANSA.EQ.'N')THEN
2064 ELSE IF (TRANSA.EQ.'T')THEN
2069 IF (IORDER.EQ.1)THEN
2131 $ THEN
2133 IF( I.NE.J )THEN
2137 IF( SYM )THEN
2139 ELSE IF( TRI )THEN
2153 IF( TYPE.EQ.'GE' )THEN
2162 ELSE IF( TYPE.EQ.'SY'.OR.TYPE.EQ.'TR' )THEN
2164 IF( UPPER )THEN
2166 IF( UNIT )THEN
2172 IF( UNIT )THEN
2240 IF( .NOT.TRANA.AND..NOT.TRANB )THEN
2247 ELSE IF( TRANA.AND..NOT.TRANB )THEN
2254 ELSE IF( .NOT.TRANA.AND.TRANB )THEN
2261 ELSE IF( TRANA.AND.TRANB )THEN
2296 IF( MV )THEN
2374 IF( TYPE.EQ.'GE' )THEN
2381 ELSE IF( TYPE.EQ.'SY' )THEN
2383 IF( UPPER )THEN
2430 IF( RESET )THEN
2447 IF( IC.GE.5 )THEN
