Go to the source code of this file.
|
subroutine | drchek (job, g, ng, neq, tn, tout, y, yp, phi, psi, kold, g0, g1, gx, jroot, irt, uround, info3, rwork, iwork, rpar, ipar) |
|
◆ drchek()
subroutine drchek |
( |
integer |
job, |
|
|
external |
g, |
|
|
integer |
ng, |
|
|
integer |
neq, |
|
|
double precision |
tn, |
|
|
double precision |
tout, |
|
|
double precision, dimension(*) |
y, |
|
|
double precision, dimension(*) |
yp, |
|
|
double precision, dimension(neq,*) |
phi, |
|
|
double precision, dimension(*) |
psi, |
|
|
integer |
kold, |
|
|
double precision, dimension(*) |
g0, |
|
|
double precision, dimension(*) |
g1, |
|
|
double precision, dimension(*) |
gx, |
|
|
integer, dimension(*) |
jroot, |
|
|
integer |
irt, |
|
|
double precision |
uround, |
|
|
integer |
info3, |
|
|
double precision, dimension(*) |
rwork, |
|
|
integer, dimension(*) |
iwork, |
|
|
double precision |
rpar, |
|
|
integer |
ipar |
|
) |
| |