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