Lines Matching defs:CCHK2
782 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
796 COMPLEX ZERO, HALF
798 REAL RZERO
801 REAL EPS, THRESH
802 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
803 $ NOUT, NTRA
804 LOGICAL FATAL, REWI, TRACE
805 CHARACTER*6 SNAME
807 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
808 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
809 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
810 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
811 $ YY( NMAX*INCMAX )
812 REAL G( NMAX )
813 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
815 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
816 REAL ERR, ERRMAX
817 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY,
818 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
819 $ N, NARGS, NC, NK, NS
820 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
821 CHARACTER*1 UPLO, UPLOS
822 CHARACTER*2 ICH
824 LOGICAL ISAME( 13 )
826 LOGICAL LCE, LCERES
833 INTEGER INFOT, NOUTC
834 LOGICAL LERR, OK
836 COMMON /INFOC/INFOT, NOUTC, OK, LERR
939 10 CONTINUE
943 20 CONTINUE
948 30 CONTINUE
1044 40 CONTINUE
1068 50 CONTINUE
1070 60 CONTINUE
1072 70 CONTINUE
1074 80 CONTINUE
1076 90 CONTINUE
1078 100 CONTINUE
1080 110 CONTINUE
1091 120 CONTINUE
1127 * End of CCHK2. argument