subroutine cs_gascomb |
( |
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 ) |