MODULE ener_mod IMPLICIT NONE include "dimensions.h" include "paramet.h" REAL ang0,etot0,ptot0,ztot0,stot0, & ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot(llmm1) END MODULE ener_mod