5 SUBROUTINE dslvd(NEQ,DELTA,WM,IWM)
30 IMPLICIT DOUBLE PRECISION(a-h,o-z)
33 parameter(lml=1, lmu=2, lmtype=4, llciwp=30)
37 go to(100,100,300,400,400),mtype
41 100 CALL dgetrs(
'N', neq, 1, wm, neq, iwm(lipvt), delta, neq, inlpck)
51 400 meband=2*iwm(lml)+iwm(lmu)+1
52 CALL dgbtrs(
'N', neq, iwm(lml), iwm(lmu), 1, wm, meband,
53 * iwm(lipvt), delta, neq, inlpck)
std::string dimension(void) const
subroutine dslvd(NEQ, DELTA, WM, IWM)