Lines Matching defs:CCHK1
425 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
441 COMPLEX ZERO
443 REAL RZERO
446 REAL EPS, THRESH
447 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
448 LOGICAL FATAL, REWI, TRACE
449 CHARACTER*12 SNAME
451 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
452 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
453 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
454 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
455 $ CS( NMAX*NMAX ), CT( NMAX )
456 REAL G( NMAX )
457 INTEGER IDIM( NIDIM )
459 COMPLEX ALPHA, ALS, BETA, BLS
460 REAL ERR, ERRMAX
461 INTEGER I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,
462 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
463 $ MA, MB, MS, N, NA, NARGS, NB, NC, NS
464 LOGICAL NULL, RESET, SAME, TRANA, TRANB
465 CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB
466 CHARACTER*3 ICH
468 LOGICAL ISAME( 13 )
470 LOGICAL LCE, LCERES
477 INTEGER INFOT, NOUTC
478 LOGICAL LERR, OK
480 COMMON /INFOC/INFOT, NOUTC, OK, LERR
582 10 CONTINUE
586 20 CONTINUE
591 30 CONTINUE
643 40 CONTINUE
664 50 CONTINUE
666 60 CONTINUE
668 70 CONTINUE
670 80 CONTINUE
672 90 CONTINUE
674 100 CONTINUE
676 110 CONTINUE
689 120 CONTINUE
716 * End of CCHK1. argument