X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Funres.F;h=b8dd5ec07713d9856c96e1786aae910ab849b8c5;hp=722a3aa85d6fd006226249b70c6df70df4003622;hb=7eff63f792545f57fb86a8f2c0a2d37243d344a6;hpb=71c7e10e1cddf9d7ac708b6cd06807c772316296

diff --git a/source/unres/src_MD/unres.F b/source/unres/src_MD/unres.F
index 722a3aa..b8dd5ec 100644
--- a/source/unres/src_MD/unres.F
+++ b/source/unres/src_MD/unres.F
@@ -698,7 +698,7 @@ c---------------------------------------------------------------------------
       include 'COMMON.MD'
       include 'COMMON.SBRIDGE'
       common /srutu/ icall
-      double precision energy(0:max_ene)
+      double precision energy(0:n_ene)
 c      do i=2,nres
 c        vbld(i)=vbld(i)+ran_number(-0.1d0,0.1d0)
 c        if (itype(i).ne.10) 
@@ -775,7 +775,7 @@ c---------------------------------------------------------------------------
       include 'DIMENSIONS'
       include 'COMMON.IOUNITS'
       include 'COMMON.CONTROL'
-      double precision energy(0:max_ene)
+      double precision energy(0:n_ene)
       logical debug /.false./
       call chainbuild
       call etotal(energy(0))