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 ) |