Merge branch 'prerelease-3.2.1'

[unres.git] / source / unres / src_MD / unres.F

diff --git a/source/unres/src_MD/unres.F b/source/unres/src_MD/unres.F
index a63047f..b8dd5ec 100644 (file)
--- a/source/unres/src_MD/unres.F
+++ b/source/unres/src_MD/unres.F
@@ -248,6 +248,7 @@ crc overlap test
           time1=tcpu()
 #endif
           call minim_dc(etot,iretcode,nfun)
+          if(iretcode.eq.8) call check_ecartint
         else
           if (indpdb.ne.0) then 
             call bond_regular
@@ -697,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) 
@@ -774,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))