Go to the source code of this file.
|
subroutine | ddajac (NEQ, X, Y, YPRIME, DELTA, CJ, H, IER, WT, E, WM, IWM, RES, IRES, UROUND, JAC, RPAR, IPAR, NTEMP) |
|
◆ ddajac()
subroutine ddajac |
( |
integer |
NEQ, |
|
|
double precision |
X, |
|
|
double precision, dimension(*) |
Y, |
|
|
double precision, dimension(*) |
YPRIME, |
|
|
double precision, dimension(*) |
DELTA, |
|
|
double precision |
CJ, |
|
|
double precision |
H, |
|
|
integer |
IER, |
|
|
double precision, dimension(*) |
WT, |
|
|
double precision, dimension(*) |
E, |
|
|
double precision, dimension(*) |
WM, |
|
|
integer, dimension(*) |
IWM, |
|
|
external |
RES, |
|
|
integer |
IRES, |
|
|
double precision |
UROUND, |
|
|
external |
JAC, |
|
|
double precision, dimension(*) |
RPAR, |
|
|
integer, dimension(*) |
IPAR, |
|
|
integer |
NTEMP |
|
) |
| |