Lines Matching defs:DCHK4
1212 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1227 DOUBLE PRECISION ZERO
1230 DOUBLE PRECISION EPS, THRESH
1231 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1232 LOGICAL FATAL, REWI, TRACE
1233 CHARACTER*6 SNAME
1235 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1236 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1237 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1238 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1239 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
1240 INTEGER IDIM( NIDIM )
1242 DOUBLE PRECISION ALPHA, ALS, BETA, BETS, ERR, ERRMAX
1243 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS,
1244 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1245 $ NARGS, NC, NS
1246 LOGICAL NULL, RESET, SAME, TRAN, UPPER
1247 CHARACTER*1 TRANS, TRANSS, UPLO, UPLOS
1248 CHARACTER*2 ICHU
1249 CHARACTER*3 ICHT
1251 LOGICAL ISAME( 13 )
1253 LOGICAL LDE, LDERES
1260 INTEGER INFOT, NOUTC
1261 LOGICAL LERR, OK
1263 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1338 10 CONTINUE
1343 20 CONTINUE
1390 30 CONTINUE
1434 40 CONTINUE
1437 50 CONTINUE
1439 60 CONTINUE
1441 70 CONTINUE
1443 80 CONTINUE
1445 90 CONTINUE
1447 100 CONTINUE
1458 110 CONTINUE
1484 * End of DCHK4. argument