Lines Matching defs:CCHK3
930 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
945 COMPLEX ZERO, ONE
947 REAL RZERO
950 REAL EPS, THRESH
951 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
952 LOGICAL FATAL, REWI, TRACE
953 CHARACTER*6 SNAME
955 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
956 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
957 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
958 $ C( NMAX, NMAX ), CT( NMAX )
959 REAL G( NMAX )
960 INTEGER IDIM( NIDIM )
962 COMPLEX ALPHA, ALS
963 REAL ERR, ERRMAX
964 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,
965 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
966 $ NS
967 LOGICAL LEFT, NULL, RESET, SAME
968 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
969 $ UPLOS
970 CHARACTER*2 ICHD, ICHS, ICHU
971 CHARACTER*3 ICHT
973 LOGICAL ISAME( 13 )
975 LOGICAL LCE, LCERES
982 INTEGER INFOT, NOUTC
983 LOGICAL LERR, OK
985 COMMON /INFOC/INFOT, NOUTC, OK, LERR
998 10 CONTINUE
999 20 CONTINUE
1069 30 CONTINUE
1073 40 CONTINUE
1133 50 CONTINUE
1168 60 CONTINUE
1169 70 CONTINUE
1192 80 CONTINUE
1194 90 CONTINUE
1196 100 CONTINUE
1198 110 CONTINUE
1200 120 CONTINUE
1202 130 CONTINUE
1204 140 CONTINUE
1237 * End of CCHK3. argument