1c
2c $Id$
3c
4
5      integer natms,atmtype,typmol
6
7      real*8  ccc,vvv,fff
8      real*8  typmass,typchge
9
10      character typname*8
11
12      dimension atmtype(mxatms)
13      dimension ccc(mxatms,3),vvv(mxatms,3),fff(mxatms,3)
14      dimension typmass(mxtype),typchge(mxtype)
15      dimension typname(mxtype),typmol(mxtype)
16
17      common/cm_atom/atmtype,ccc,vvv,fff,natms
18      common/cm_type/typmass,typchge,typname,typmol
19