c     begin include file cerode.inc

c     + + + COMMON BLOCK DESCRIPTION + + +
c     + + + INSERT DESCRIPTION HERE  + + +

      common /cerode/  ggs(mxpart,mxelem),conc(mxpart,mxelem),enrich

c     + + + VARIABLE DECLARATIONS + + +

      real             ggs,conc,enrich

c     + + + VARIABLE DEFINITIONS + + +

c     ggs(mxpart,mxelem)  :
c     conc(mxpart,mxelem) :
c     enrich              :

c     end include file cerode.inc