Lines Matching defs:DCHK3
946 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
961 DOUBLE PRECISION ZERO, ONE
964 DOUBLE PRECISION EPS, THRESH
965 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
966 LOGICAL FATAL, REWI, TRACE
967 CHARACTER*6 SNAME
969 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
970 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
971 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
972 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
973 INTEGER IDIM( NIDIM )
975 DOUBLE PRECISION ALPHA, ALS, ERR, ERRMAX
976 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,
977 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
978 $ NS
979 LOGICAL LEFT, NULL, RESET, SAME
980 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
981 $ UPLOS
982 CHARACTER*2 ICHD, ICHS, ICHU
983 CHARACTER*3 ICHT
985 LOGICAL ISAME( 13 )
987 LOGICAL LDE, LDERES
994 INTEGER INFOT, NOUTC
995 LOGICAL LERR, OK
997 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1010 10 CONTINUE
1011 20 CONTINUE
1081 30 CONTINUE
1085 40 CONTINUE
1145 50 CONTINUE
1180 60 CONTINUE
1181 70 CONTINUE
1204 80 CONTINUE
1206 90 CONTINUE
1208 100 CONTINUE
1210 110 CONTINUE
1212 120 CONTINUE
1214 130 CONTINUE
1216 140 CONTINUE
1248 * End of DCHK3. argument