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