Lines Matching defs:CCHK1
398 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
412 COMPLEX ZERO, HALF
414 REAL RZERO
417 REAL EPS, THRESH
418 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
419 $ NOUT, NTRA
420 LOGICAL FATAL, REWI, TRACE
421 CHARACTER*6 SNAME
423 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
424 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
425 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
426 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
427 $ YY( NMAX*INCMAX )
428 REAL G( NMAX )
429 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
431 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
432 REAL ERR, ERRMAX
433 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY,
434 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
435 $ LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,
436 $ NL, NS
437 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN
438 CHARACTER*1 TRANS, TRANSS
439 CHARACTER*3 ICH
441 LOGICAL ISAME( 13 )
443 LOGICAL LCE, LCERES
450 INTEGER INFOT, NOUTC
451 LOGICAL LERR, OK
453 COMMON /INFOC/INFOT, NOUTC, OK, LERR
569 10 CONTINUE
573 20 CONTINUE
578 30 CONTINUE
660 40 CONTINUE
685 50 CONTINUE
687 60 CONTINUE
689 70 CONTINUE
691 80 CONTINUE
693 90 CONTINUE
695 100 CONTINUE
697 110 CONTINUE
699 120 CONTINUE
710 130 CONTINUE
740 * End of CCHK1. argument