X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD-5D%2FCOMMON.HOMRESTR;h=0e558f1d1c9fa93da876eaa843bdd9a25f116252;hb=270f9a972298eaee94cae5721f4bb7994ce57a07;hp=95ea93237fe0a0b3507098685e541326e7f0128e;hpb=820f293760806cf45f8368b0e23dfcdc3e7b992e;p=unres.git

diff --git a/source/cluster/wham/src-HCD-5D/COMMON.HOMRESTR b/source/cluster/wham/src-HCD-5D/COMMON.HOMRESTR
index 95ea932..0e558f1 100644
--- a/source/cluster/wham/src-HCD-5D/COMMON.HOMRESTR
+++ b/source/cluster/wham/src-HCD-5D/COMMON.HOMRESTR
@@ -1,6 +1,7 @@
-       real*8 odl(max_template,maxdim),sigma_odl(max_template,maxdim),
+       real*8 odl(max_template,maxdim_cont),
+     &   sigma_odl(max_template,maxdim_cont),
      &    dih(max_template,maxres),sigma_dih(max_template,maxres),
-     &    sigma_odlir(max_template,maxdim)
+     &    sigma_odlir(max_template,maxdim_cont)
 c
 c    Specification of new variables used in  subroutine e_modeller
 c    modified by FP (Nov.,2014)
@@ -10,7 +11,7 @@ c    modified by FP (Nov.,2014)
      &        sigma_d(max_template,maxres)
 c
 
-       integer ires_homo(maxdim),jres_homo(maxdim)
+       integer ires_homo(maxdim_cont),jres_homo(maxdim_cont)
 
        double precision 
      & Ucdfrag,Ucdpair,dUdconst(3,0:MAXRES),Uconst,