subroutine cplym1 |
( |
integer |
ncelet, |
|
|
integer |
ncel, |
|
|
integer |
nitbmc, |
|
|
integer |
nrtbmc, |
|
|
double precision, dimension(ncelet) |
f1m, |
|
|
double precision, dimension(ncelet) |
f2m, |
|
|
double precision, dimension(ncelet) |
f3m, |
|
|
double precision, dimension(ncelet) |
f4m, |
|
|
integer, dimension(ncelet) |
indpdf, |
|
|
double precision, dimension(ncelet) |
si7, |
|
|
double precision, dimension(ncelet) |
si8, |
|
|
double precision, dimension(ncelet) |
sp2m, |
|
|
double precision, dimension(ncelet) |
f4i7, |
|
|
double precision, dimension(ncelet) |
dsi7, |
|
|
double precision, dimension(ncelet) |
dsi8, |
|
|
double precision, dimension(ncelet) |
sdeb, |
|
|
double precision, dimension(ncelet) |
sfin, |
|
|
double precision, dimension(ncelet) |
haut, |
|
|
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, |
|
|
integer, dimension(ncelet,nitbmc) |
itbmc, |
|
|
double precision, dimension(ncelet,nrtbmc) |
rtbmc, |
|
|
integer, dimension(ncelet) |
ipi7i8, |
|
|
double precision, dimension(ncelet) |
sp, |
|
|
double precision, dimension(ncelet) |
si, |
|
|
double precision, dimension(ncelet) |
sr, |
|
|
double precision, dimension(ncelet) |
w1 |
|
) |
| |