c-----------------------------------------------------------------------
c INCLUDE 'ener.h'

      COMMON/ener/ang0,etot0,ptot0,ztot0,stot0,
     *            ang,etot,ptot,ztot,stot,rmsdpdt ,
     *            rmsv,gtot(llmm1)

      REAL ang0,etot0,ptot0,ztot0,stot0,
     s     ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot

c-----------------------------------------------------------------------