public subroutine diprep(Neq, Y, Rwork, Ia, Ja, Ipflag, f, jac)
This routine serves as an interface between the driver and
Subroutine DPREP. It is called only if MITER is 1 or 2.
Tasks performed here are:
call DPREP,
reset the required WM segment length LENWK,
move YH back to its final location (following WM in RWORK),
reset pointers for YH, SAVF, EWT, and ACOR, and
move EWT to its new position if ISTATE = 1.
IPFLAG is an output error indication flag. IPFLAG = 0 if there was
no trouble, and IPFLAG is the value of the DPREP error flag IPPER
if there was trouble in Subroutine DPREP.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.