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