--- trunk/libf/dyn3d/ener.f90	2011/05/16 14:52:30	46
+++ trunk/libf/dyn3d/ener.f90	2011/07/01 15:00:48	47
@@ -9,7 +9,7 @@
   private llm
 
   REAL ang0, etot0, ptot0, ztot0, stot0, ang, etot, ptot, ztot, stot, rmsdpdt
-  real rmsv, gtot(llm - 1)
+  real rmsv
 
   save