Go to the source code of this file.
|
subroutine | dslvk (NEQ, Y, TN, YPRIME, SAVR, X, EWT, WM, IWM, RES, IRES, PSOL, IERSL, CJ, EPLIN, SQRTN, RSQRTN, RHOK, RPAR, IPAR) |
|
◆ dslvk()
subroutine dslvk |
( |
integer |
NEQ, |
|
|
double precision, dimension(*) |
Y, |
|
|
double precision |
TN, |
|
|
double precision, dimension(*) |
YPRIME, |
|
|
double precision, dimension(*) |
SAVR, |
|
|
double precision, dimension(*) |
X, |
|
|
double precision, dimension(*) |
EWT, |
|
|
double precision, dimension(*) |
WM, |
|
|
integer, dimension(*) |
IWM, |
|
|
external |
RES, |
|
|
integer |
IRES, |
|
|
external |
PSOL, |
|
|
integer |
IERSL, |
|
|
double precision |
CJ, |
|
|
double precision |
EPLIN, |
|
|
double precision |
SQRTN, |
|
|
double precision |
RSQRTN, |
|
|
double precision |
RHOK, |
|
|
double precision, dimension(*) |
RPAR, |
|
|
integer, dimension(*) |
IPAR |
|
) |
| |