subroutine lagesp |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
ntersl, |
|
|
integer |
nvlsta, |
|
|
integer |
nvisbr, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(ncelet,*) |
statis, |
|
|
double precision, dimension(ncelet,*) |
stativ, |
|
|
double precision, dimension(nbpart) |
taup, |
|
|
double precision, dimension(nbpart,3) |
tlag, |
|
|
double precision, dimension(nbpart,3) |
piil, |
|
|
double precision, dimension(nbpart,3,2) |
bx, |
|
|
double precision, dimension(nbpart) |
tsfext, |
|
|
double precision, dimension(3,ncelet) |
gradpr, |
|
|
double precision, dimension(3,3,ncelet) |
gradvf, |
|
|
double precision, dimension(nbpart) |
terbru, |
|
|
double precision, dimension(nfabor) |
vislen |
|
) |
| |