subroutine cou1do |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
ncp, |
|
|
integer |
nfpt1d, |
|
|
integer |
ientha, |
|
|
integer, dimension(nfpt1d) |
ifpt1d, |
|
|
integer, dimension(nfpt1d) |
iclt1d, |
|
|
double precision, dimension(nfpt1d) |
tppt1d, |
|
|
double precision, dimension(nfpt1d) |
tept1d, |
|
|
double precision, dimension(nfpt1d) |
hept1d, |
|
|
double precision, dimension(nfpt1d) |
fept1d, |
|
|
double precision, dimension(nfpt1d) |
xlmbt1, |
|
|
double precision, dimension(nfpt1d) |
rcpt1d, |
|
|
double precision, dimension(nfpt1d) |
dtpt1d, |
|
|
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(nfabor,*) |
coefa, |
|
|
double precision, dimension(nfabor,*) |
coefb, |
|
|
double precision |
cpcst, |
|
|
double precision, dimension(ncp) |
cp, |
|
|
double precision, dimension(nfabor) |
hbord, |
|
|
double precision, dimension(nfabor) |
tbord |
|
) |
| |