dsrcpk Subroutine

public subroutine dsrcpk(Rsav, Isav, Job)

This routine saves or restores (depending on JOB) the contents of the internal types used internally by the DLSODPK solver.

RSAV

real array of length 222 or more.

ISAV

integer array of length 50 or more.

JOB

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.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	Rsav(*)
integer				::	Isav(*)
integer,	intent(in)			::	Job