Lines Matching defs:CCHK1
366 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
381 COMPLEX ZERO
383 REAL RZERO
386 REAL EPS, THRESH
387 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
388 LOGICAL FATAL, REWI, TRACE
389 CHARACTER*6 SNAME
391 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
392 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
393 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
394 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
395 $ CS( NMAX*NMAX ), CT( NMAX )
396 REAL G( NMAX )
397 INTEGER IDIM( NIDIM )
399 COMPLEX ALPHA, ALS, BETA, BLS
400 REAL ERR, ERRMAX
401 INTEGER I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,
402 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
403 $ MA, MB, MS, N, NA, NARGS, NB, NC, NS
404 LOGICAL NULL, RESET, SAME, TRANA, TRANB
405 CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB
406 CHARACTER*3 ICH
408 LOGICAL ISAME( 13 )
410 LOGICAL LCE, LCERES
417 INTEGER INFOT, NOUTC
418 LOGICAL LERR, OK
420 COMMON /INFOC/INFOT, NOUTC, OK, LERR
522 10 CONTINUE
526 20 CONTINUE
531 30 CONTINUE
582 40 CONTINUE
603 50 CONTINUE
605 60 CONTINUE
607 70 CONTINUE
609 80 CONTINUE
611 90 CONTINUE
613 100 CONTINUE
615 110 CONTINUE
648 * End of CCHK1. argument