subroutine lages2 |
( |
double precision, dimension(ncelet,*) |
propce, |
|
|
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(nbpart,*) |
vagaus, |
|
|
double precision, dimension(3,ncelet) |
gradpr, |
|
|
double precision, dimension(nbpart) |
romp, |
|
|
double precision, dimension(nbpart,*) |
brgaus, |
|
|
double precision, dimension(nbpart) |
terbru, |
|
|
double precision, dimension(nbpart,3) |
fextla |
|
) |
| |