X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fminim_jlee.F;fp=source%2Funres%2Fsrc-HCD-5D%2Fminim_jlee.F;h=555164083f3f51ec130a9ab1f084f4c41fe001e5;hb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;hp=7162afb55de51e29644614c74ebc6aa9958bf112;hpb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;p=unres.git

diff --git a/source/unres/src-HCD-5D/minim_jlee.F b/source/unres/src-HCD-5D/minim_jlee.F
index 7162afb..5551640 100644
--- a/source/unres/src-HCD-5D/minim_jlee.F
+++ b/source/unres/src-HCD-5D/minim_jlee.F
@@ -37,11 +37,11 @@ c  controls minimization and sorting routines
       include 'COMMON.GEO'
       include 'COMMON.FFIELD'
       include 'COMMON.SBRIDGE'
-      include 'COMMON.DISTFIT'
+c      include 'COMMON.DISTFIT'
       include 'COMMON.CHAIN'
       dimension var(maxvar),erg(mxch*(mxch+1)/2+1)
       dimension var2(maxvar)
-      integer iffr(maxres),ihpbt(maxdim),jhpbt(maxdim)
+      integer iffr(maxres),ihpbt(maxdim_cont),jhpbt(maxdim_cont)
       double precision d(maxvar),garbage(maxvar),g(maxvar)
       double precision energia(0:n_ene),time0s,time1s
       dimension indx(9),info(12)