subroutine uslaen |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
nvlsta, |
|
|
integer |
ivarl, |
|
|
integer |
ivarl1, |
|
|
integer |
ivarlm, |
|
|
integer |
iflu, |
|
|
integer |
ilpd1, |
|
|
integer |
icla, |
|
|
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(ncelet,nvlsta-1) |
stativ, |
|
|
double precision, dimension(ncelet) |
tracel |
|
) |
| |