subroutine lagcou |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
nbpmax, |
|
|
integer |
nvp, |
|
|
integer |
nvp1, |
|
|
integer |
nvep, |
|
|
integer |
nivep, |
|
|
integer |
ntersl, |
|
|
integer |
nvlsta, |
|
|
integer |
nvisbr, |
|
|
integer, dimension(nbpmax,nivep) |
itepa, |
|
|
integer, dimension(nbpmax) |
indep, |
|
|
integer, dimension(nbpmax) |
ibord, |
|
|
double precision, dimension(ncelet,*) |
rtp, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(nbpmax,nvp) |
ettp, |
|
|
double precision, dimension(nbpmax,nvp) |
ettpa, |
|
|
double precision, dimension(nbpmax,nvep) |
tepa, |
|
|
double precision, dimension(nbpmax) |
taup, |
|
|
double precision, dimension(nbpmax,2) |
tempct, |
|
|
double precision, dimension(nbpmax) |
tsfext, |
|
|
double precision, dimension(ncelet,ntersl) |
tslagr, |
|
|
double precision, dimension(nbpmax) |
cpgd1, |
|
|
double precision, dimension(nbpmax) |
cpgd2, |
|
|
double precision, dimension(nbpmax) |
cpght, |
|
|
double precision, dimension(ncelet,ntersl) |
tslag, |
|
|
double precision, dimension(ncelet) |
volp, |
|
|
double precision, dimension(ncelet) |
volm, |
|
|
double precision, dimension(nbpmax) |
auxl1, |
|
|
double precision, dimension(nbpmax) |
auxl2, |
|
|
double precision, dimension(nbpmax) |
auxl3 |
|
) |
| |