subroutine lagdep |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
lndnod, |
|
|
integer, dimension(lndnod) |
icocel, |
|
|
integer, dimension(ncelet+1) |
itycel, |
|
|
integer, dimension(nfabor) |
ifrlag, |
|
|
integer |
nbpmax, |
|
|
integer |
nvp, |
|
|
integer |
nvp1, |
|
|
integer |
nvep, |
|
|
integer |
nivep, |
|
|
integer |
ntersl, |
|
|
integer |
nvlsta, |
|
|
integer |
nvisbr, |
|
|
integer, dimension(nbpmax,nivep) |
itepa, |
|
|
double precision, dimension(nfabor,ngeol) |
dlgeo, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
rtpa, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(nfac,*) |
propfa, |
|
|
double precision, dimension(nfabor,*) |
propfb, |
|
|
double precision, dimension(nbpmax,nvp) |
ettp, |
|
|
double precision, dimension(nbpmax,nvp) |
ettpa, |
|
|
double precision, dimension(nbpmax,nvep) |
tepa, |
|
|
double precision, dimension(ncelet,*) |
statis, |
|
|
double precision, dimension(nbpmax) |
taup, |
|
|
double precision, dimension(nbpmax,3) |
tlag, |
|
|
double precision, dimension(nbpmax,3) |
piil, |
|
|
double precision, dimension(nbpmax,3,2) |
bx, |
|
|
double precision, dimension(nbpmax,*) |
vagaus, |
|
|
double precision, dimension(ncelet,3) |
gradpr, |
|
|
double precision, dimension(ncelet,9) |
gradvf, |
|
|
double precision, dimension(nbpmax) |
romp, |
|
|
double precision, dimension(nbpmax,*) |
brgaus, |
|
|
double precision, dimension(nbpmax) |
terbru, |
|
|
double precision, dimension(nbpmax,3) |
fextla, |
|
|
double precision, dimension(nfabor) |
vislen |
|
) |
| |