subroutine cpphy1 |
( |
integer |
ncelet, |
|
|
integer |
ncel, |
|
|
integer |
nitbcp, |
|
|
integer |
nrtbcp, |
|
|
integer |
nitbmc, |
|
|
integer |
nrtbmc, |
|
|
integer |
nitbwo, |
|
|
integer |
nrtbwo, |
|
|
double precision, dimension(ncelet) |
f1m, |
|
|
double precision, dimension(ncelet) |
f2m, |
|
|
double precision, dimension(ncelet) |
f3m, |
|
|
double precision, dimension(ncelet) |
f4m, |
|
|
double precision, dimension(ncelet) |
f5m, |
|
|
double precision, dimension(ncelet) |
f6m, |
|
|
double precision, dimension(ncelet) |
f7m, |
|
|
double precision, dimension(ncelet) |
f4p2m, |
|
|
double precision, dimension(ncelet) |
f3max, |
|
|
double precision, dimension(ncelet) |
enth, |
|
|
double precision, dimension(ncelet,*) |
rtp, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(ncelet) |
rom1 |
|
) |
| |