Lines Matching defs:DCHK1
356 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
371 DOUBLE PRECISION ZERO
374 DOUBLE PRECISION EPS, THRESH
375 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
376 LOGICAL FATAL, REWI, TRACE
377 CHARACTER*6 SNAME
379 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
380 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
381 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
382 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
383 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
384 INTEGER IDIM( NIDIM )
386 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX
387 INTEGER I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,
388 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
389 $ MA, MB, MS, N, NA, NARGS, NB, NC, NS
390 LOGICAL NULL, RESET, SAME, TRANA, TRANB
391 CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB
392 CHARACTER*3 ICH
394 LOGICAL ISAME( 13 )
396 LOGICAL LDE, LDERES
403 INTEGER INFOT, NOUTC
404 LOGICAL LERR, OK
406 COMMON /INFOC/INFOT, NOUTC, OK, LERR
508 10 CONTINUE
512 20 CONTINUE
517 30 CONTINUE
568 40 CONTINUE
589 50 CONTINUE
591 60 CONTINUE
593 70 CONTINUE
595 80 CONTINUE
597 90 CONTINUE
599 100 CONTINUE
601 110 CONTINUE
634 * End of DCHK1. argument