subroutine cpcym2 |
( |
integer |
ncelet, |
|
|
integer |
ncel, |
|
|
integer |
nrtbmc, |
|
|
integer, dimension(ncelet) |
indpdf, |
|
|
double precision, dimension(ncelet,*) |
rtp, |
|
|
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) |
f3max, |
|
|
double precision, dimension(ncelet) |
f1cl, |
|
|
double precision, dimension(ncelet) |
f2cl, |
|
|
double precision, dimension(ncelet) |
f3cl, |
|
|
double precision, dimension(ncelet) |
f4cl, |
|
|
double precision, dimension(ncelet) |
f5cl, |
|
|
double precision, dimension(ncelet) |
f6cl, |
|
|
double precision, dimension(ncelet) |
f7cl, |
|
|
double precision, dimension(ncelet) |
f4m1, |
|
|
double precision, dimension(ncelet) |
f4m2, |
|
|
double precision, dimension(ncelet) |
d4cl, |
|
|
double precision, dimension(ncelet) |
d4f4, |
|
|
double precision, dimension(ncelet) |
hrec, |
|
|
double precision, dimension(ncelet,nrtbmc) |
rtbmc, |
|
|
double precision, dimension(ncelet) |
w1, |
|
|
double precision, dimension(ncelet) |
fuel1, |
|
|
double precision, dimension(ncelet) |
fuel2, |
|
|
double precision, dimension(ncelet) |
fuel3, |
|
|
double precision, dimension(ncelet) |
oxyd, |
|
|
double precision, dimension(ncelet) |
prod1, |
|
|
double precision, dimension(ncelet) |
prod2, |
|
|
double precision, dimension(ncelet) |
xiner |
|
) |
| |