subroutine DATV |
( |
INTEGER |
NEQ, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
Y, |
|
|
DOUBLE PRECISION |
TN, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
YPRIME, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
SAVR, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
V, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
WGHT, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
YPTEM, |
|
|
RES |
, |
|
|
* |
IRES, |
|
|
PSOL |
, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
Z, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
VTEM, |
|
|
DOUBLE PRECISION,dimension(*),dimension |
WP, |
|
|
INTEGER,dimension(*),dimension |
IWP, |
|
|
DOUBLE PRECISION |
CJ, |
|
|
DOUBLE PRECISION |
EPLIN, |
|
|
INTEGER |
IER, |
|
|
INTEGER |
NRE, |
|
|
INTEGER |
NPSL, |
|
|
*,dimension(*),dimension |
RPAR, |
|
|
INTEGER,dimension(*),dimension |
IPAR | |
|
) |
| | |