Lines Matching defs:CCHK2
743 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
757 COMPLEX ZERO, HALF
759 REAL RZERO
762 REAL EPS, THRESH
763 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
764 $ NOUT, NTRA
765 LOGICAL FATAL, REWI, TRACE
766 CHARACTER*6 SNAME
768 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
769 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
770 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
771 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
772 $ YY( NMAX*INCMAX )
773 REAL G( NMAX )
774 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
776 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
777 REAL ERR, ERRMAX
778 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY,
779 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
780 $ N, NARGS, NC, NK, NS
781 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
782 CHARACTER*1 UPLO, UPLOS
783 CHARACTER*2 ICH
785 LOGICAL ISAME( 13 )
787 LOGICAL LCE, LCERES
794 INTEGER INFOT, NOUTC
795 LOGICAL LERR, OK
797 COMMON /INFOC/INFOT, NOUTC, OK, LERR
900 10 CONTINUE
904 20 CONTINUE
909 30 CONTINUE
1005 40 CONTINUE
1029 50 CONTINUE
1031 60 CONTINUE
1033 70 CONTINUE
1035 80 CONTINUE
1037 90 CONTINUE
1039 100 CONTINUE
1041 110 CONTINUE
1052 120 CONTINUE
1088 * End of CCHK2. argument