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