Lines Matching defs:CCHK2
817 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
831 COMPLEX ZERO, HALF
833 REAL RZERO
836 REAL EPS, THRESH
837 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
838 $ NOUT, NTRA, IORDER
839 LOGICAL FATAL, REWI, TRACE
840 CHARACTER*12 SNAME
842 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
843 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
844 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
845 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
846 $ YY( NMAX*INCMAX )
847 REAL G( NMAX )
848 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
850 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
851 REAL ERR, ERRMAX
852 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY,
853 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
854 $ N, NARGS, NC, NK, NS
855 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
856 CHARACTER*1 UPLO, UPLOS
857 CHARACTER*14 CUPLO
858 CHARACTER*2 ICH
860 LOGICAL ISAME( 13 )
862 LOGICAL LCE, LCERES
869 INTEGER INFOT, NOUTC
870 LOGICAL OK
872 COMMON /INFOC/INFOT, NOUTC, OK
980 10 CONTINUE
984 20 CONTINUE
989 30 CONTINUE
1087 40 CONTINUE
1111 50 CONTINUE
1113 60 CONTINUE
1115 70 CONTINUE
1117 80 CONTINUE
1119 90 CONTINUE
1121 100 CONTINUE
1123 110 CONTINUE
1134 120 CONTINUE
1170 * End of CCHK2. argument