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