subroutine dvvpst |
( |
integer |
nummai, |
|
|
integer |
numtyp, |
|
|
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
nvlsta, |
|
|
integer |
nvisbr, |
|
|
integer |
ncelps, |
|
|
integer |
nfacps, |
|
|
integer |
nfbrps, |
|
|
integer, dimension(3) |
itypps, |
|
|
integer, dimension(ncelps) |
lstcel, |
|
|
integer, dimension(nfacps) |
lstfac, |
|
|
integer, dimension(nfbrps) |
lstfbr, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
rtpa, |
|
|
double precision, dimension(ncelet,*) |
rtp, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(nfac,*) |
propfa, |
|
|
double precision, dimension(ndimfb,*) |
propfb, |
|
|
double precision, dimension(ndimfb,*) |
coefa, |
|
|
double precision, dimension(ndimfb,*) |
coefb, |
|
|
double precision, dimension(ncelet,nvlsta) |
statce, |
|
|
double precision, dimension(ncelet,nvlsta) |
stativ, |
|
|
double precision, dimension(nfabor,nvisbr) |
statfb, |
|
|
double precision, dimension(ncelps*3) |
tracel, |
|
|
double precision, dimension(nfacps*3) |
trafac, |
|
|
double precision, dimension(nfbrps*3) |
trafbr |
|
) |
| |