corrections

[unres.git] / source / cluster / wham / src-HCD / COMMON.HOMRESTR

diff --git a/source/cluster/wham/src-HCD/COMMON.HOMRESTR b/source/cluster/wham/src-HCD/COMMON.HOMRESTR
index 95ea932..0e558f1 100644 (file)
--- a/source/cluster/wham/src-HCD/COMMON.HOMRESTR
+++ b/source/cluster/wham/src-HCD/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,