Lines Matching defs:CCHK1
437 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
451 COMPLEX ZERO, HALF
453 REAL RZERO
456 REAL EPS, THRESH
457 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
458 $ NOUT, NTRA
459 LOGICAL FATAL, REWI, TRACE
460 CHARACTER*6 SNAME
462 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
463 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
464 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
465 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
466 $ YY( NMAX*INCMAX )
467 REAL G( NMAX )
468 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
470 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
471 REAL ERR, ERRMAX
472 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY,
473 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
474 $ LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,
475 $ NL, NS
476 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN
477 CHARACTER*1 TRANS, TRANSS
478 CHARACTER*3 ICH
480 LOGICAL ISAME( 13 )
482 LOGICAL LCE, LCERES
489 INTEGER INFOT, NOUTC
490 LOGICAL LERR, OK
492 COMMON /INFOC/INFOT, NOUTC, OK, LERR
608 10 CONTINUE
612 20 CONTINUE
617 30 CONTINUE
699 40 CONTINUE
724 50 CONTINUE
726 60 CONTINUE
728 70 CONTINUE
730 80 CONTINUE
732 90 CONTINUE
734 100 CONTINUE
736 110 CONTINUE
738 120 CONTINUE
749 130 CONTINUE
779 * End of CCHK1. argument