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 |
|
) |
| |