Go to the source code of this file.
|
subroutine | sprepj (neq, y, yh, nyh, ewt, ftem, savf, wm, iwm, f, jac) |
|
◆ sprepj()
subroutine sprepj |
( |
integer, dimension(*) |
neq, |
|
|
real, dimension(*) |
y, |
|
|
real, dimension(nyh,*) |
yh, |
|
|
integer |
nyh, |
|
|
real, dimension(*) |
ewt, |
|
|
real, dimension(*) |
ftem, |
|
|
real, dimension(*) |
savf, |
|
|
real, dimension(*) |
wm, |
|
|
integer, dimension(*) |
iwm, |
|
|
external |
f, |
|
|
external |
jac |
|
) |
| |