--- trunk/libf/dyn3d/ener.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/ener.f90	2011/05/16 14:52:30	46
@@ -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, gtot(llm - 1)
 
   save