subroutine cs_gascomb |
( |
integer |
ncelet, |
|
|
integer |
ncel, |
|
|
integer |
icb1, |
|
|
integer |
icb2, |
|
|
integer, dimension(ncel) |
indpdf, |
|
|
double precision, dimension(ncel) |
f1m, |
|
|
double precision, dimension(ncel) |
f2m, |
|
|
double precision, dimension(ncel) |
f3m, |
|
|
double precision, dimension(ncel) |
f4m, |
|
|
double precision, dimension(ncel) |
f5m, |
|
|
double precision, dimension(ncel) |
f6m, |
|
|
double precision, dimension(ncel) |
f7m, |
|
|
double precision, dimension(ncel) |
f8m, |
|
|
double precision, dimension(ncel) |
f9m, |
|
|
double precision, dimension(ncel) |
pdfm1, |
|
|
double precision, dimension(ncel) |
pdfm2, |
|
|
double precision, dimension(ncel) |
doxyd, |
|
|
double precision, dimension(ncel) |
dfuel, |
|
|
double precision, dimension(ncel) |
hrec, |
|
|
double precision, dimension(ncel,ngazg) |
af1, |
|
|
double precision, dimension(ncel,ngazg) |
af2, |
|
|
double precision, dimension(ncel) |
cx1m, |
|
|
double precision, dimension(ncel) |
cx2m, |
|
|
double precision, dimension(ncel) |
wmf1, |
|
|
double precision, dimension(ncel) |
wmf2, |
|
|
double precision, dimension(ncel) |
fuel1, |
|
|
double precision, dimension(ncel) |
fuel2, |
|
|
double precision, dimension(ncel) |
fuel3, |
|
|
double precision, dimension(ncel) |
fuel4, |
|
|
double precision, dimension(ncel) |
fuel5, |
|
|
double precision, dimension(ncel) |
fuel6, |
|
|
double precision, dimension(ncel) |
fuel7, |
|
|
double precision, dimension(ncel) |
oxyd, |
|
|
double precision, dimension(ncel) |
prod1, |
|
|
double precision, dimension(ncel) |
prod2, |
|
|
double precision, dimension(ncel) |
prod3, |
|
|
double precision, dimension(ncel) |
xiner, |
|
|
double precision, dimension(ncel) |
fs3no, |
|
|
double precision, dimension(ncel) |
fs4no, |
|
|
double precision, dimension(ncel,ngazg) |
yfs4no |
|
) |
| |