Lines Matching defs:CCHK1
462 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
476 COMPLEX ZERO, HALF
478 REAL RZERO
481 REAL EPS, THRESH
482 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
483 $ NOUT, NTRA, IORDER
484 LOGICAL FATAL, REWI, TRACE
485 CHARACTER*12 SNAME
487 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
488 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
489 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
490 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
491 $ YY( NMAX*INCMAX )
492 REAL G( NMAX )
493 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
495 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
496 REAL ERR, ERRMAX
497 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY,
498 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
499 $ LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,
500 $ NL, NS
501 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN
502 CHARACTER*1 TRANS, TRANSS
503 CHARACTER*14 CTRANS
504 CHARACTER*3 ICH
506 LOGICAL ISAME( 13 )
508 LOGICAL LCE, LCERES
515 INTEGER INFOT, NOUTC
516 LOGICAL OK
518 COMMON /INFOC/INFOT, NOUTC, OK
641 10 CONTINUE
645 20 CONTINUE
650 30 CONTINUE
733 40 CONTINUE
759 50 CONTINUE
761 60 CONTINUE
763 70 CONTINUE
765 80 CONTINUE
767 90 CONTINUE
769 100 CONTINUE
771 110 CONTINUE
773 120 CONTINUE
784 130 CONTINUE
814 * End of CCHK1. argument