subroutine usvpst |
( |
integer |
ipart, |
|
|
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
nvlsta, |
|
|
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(nfabor,*) |
propfb, |
|
|
double precision, dimension(nfabor,*) |
coefa, |
|
|
double precision, dimension(nfabor,*) |
coefb, |
|
|
double precision, dimension(ncelet,nvlsta) |
statis, |
|
|
double precision, dimension(ncelps*3) |
tracel, |
|
|
double precision, dimension(nfacps*3) |
trafac, |
|
|
double precision, dimension(nfbrps*3) |
trafbr |
|
) |
| |