dsrcom(3f) - [M_odepack] Save/restore ODEPACK COMMON blocks.
This routine saves or restores (depending on JOB) the contents of the internal types used to store the current state by one (or more) of the ODEPACK solvers.
real array of length 218 or more.
integer array of length 37 or more.
flag indicating to save or restore the COMMON blocks: JOB = 1 if COMMON is to be saved (written to RSAV/ISAV) JOB = 2 if COMMON is to be restored (read from RSAV/ISAV)
A call with JOB = 2 presumes a prior call with JOB = 1.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp) | :: | Rsav(*) | ||||
| integer | :: | Isav(*) | ||||
| integer, | intent(in) | :: | Job |