c begin include file cchsed.inc c + + + COMMON BLOCK DESCRIPTION + + + c + + + INSERT DESCRIPTION HERE + + + common /chsed/ ggs(mxpart,mxelem),conc(mxpart,mxelem),enrich, 1 enrch2 c + + + VARIABLE DECLARATIONS + + + real ggs,conc,enrich,enrch2 c + + + VARIABLE DEFINITIONS + + + c ggs(mxpart,mxelem) : c conc(mxpart,mxelem) : c enrich : c end include file cchsed.inc