1 integer epoint,elist 2 3 dimension epoint(mxatms),elist(mxatms*mxelist) 4 5 common/cm_elst/epoint,elist 6