! ! $Id: ener_mod.F90 2641 2016-09-29 21:26:46Z evignon $ ! 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