dainvg Subroutine

public subroutine dainvg(res, adda, Neq, T, Y, Ydot, Miter, Ml, Mu, Pw, Ipvt, Ier)

This subroutine computes the initial value of the vector YDOT satisfying

 A * YDOT = g(t,y)

when A is nonsingular. It is called by DLSODI for initialization only, when ISTATE = 0 . DAINVG returns an error flag IER:

IER  =  0  means DAINVG was successful.
IER .ge. 2 means RES returned an error flag IRES = IER.
IER .lt. 0 means the a-matrix was found to be singular.

Arguments

Type IntentOptional Attributes Name
real :: res
real :: adda
integer, intent(inout) :: Neq
real(kind=dp) :: T
real(kind=dp) :: Y(*)
real(kind=dp) :: Ydot(*)
integer, intent(inout) :: Miter
integer, intent(inout) :: Ml
integer, intent(inout) :: Mu
real(kind=dp) :: Pw(*)
integer :: Ipvt(*)
integer, intent(inout) :: Ier

Calls

proc~~dainvg~2~~CallsGraph proc~dainvg~2 M_odepack::dainvg proc~daxpy~2 M_odepack::daxpy proc~dainvg~2->proc~daxpy~2 proc~dgefa~2 M_odepack::dgefa proc~dainvg~2->proc~dgefa~2 proc~dgesl M_odepack::dgesl proc~dainvg~2->proc~dgesl proc~dscal M_odepack::dscal proc~dainvg~2->proc~dscal proc~dgefa~2->proc~daxpy~2 proc~dgefa~2->proc~dscal proc~dgesl->proc~daxpy~2

Called by

proc~~dainvg~2~~CalledByGraph proc~dainvg~2 M_odepack::dainvg proc~dlsodi~2 M_odepack::dlsodi proc~dlsodi~2->proc~dainvg~2