subroutine cpteh1 |
( |
integer | ncelet, |
|
|
integer | ncel, |
|
|
integer | ntbmci, |
|
|
integer | ntbmcr, |
|
|
double precision, dimension(ncelet) | eh, |
|
|
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, |
|
|
double precision, dimension(ncelet) | tp, |
|
|
integer, dimension(ncelet,ntbmci) | tbmci, |
|
|
double precision, dimension(ncelet,ntbmcr) | tbmcr, |
|
|
double precision, dimension(ncelet) | eh0, |
|
|
double precision, dimension(ncelet) | eh1 ) |