1c
2c $Id$
3c
4
5      integer shllist
6
7      real*8  shelfrce
8
9      dimension shllist(mxshel2,3),shelfrce(mxshel)
10
11      common/cm_shel/shllist,shelfrce
12