corrections

[unres.git] / source / unres / src-HCD-5D / COMMON.HOMOLOGY

diff --git a/source/unres/src-HCD-5D/COMMON.HOMOLOGY b/source/unres/src-HCD-5D/COMMON.HOMOLOGY
index f19f0c6..e9b6320 100644 (file)
--- a/source/unres/src-HCD-5D/COMMON.HOMOLOGY
+++ b/source/unres/src-HCD-5D/COMMON.HOMOLOGY
@@ -4,9 +4,10 @@
       common /homol/ waga_homology(maxprocs/20),
      & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,dist2_cut
 ! Restraint parameters
-      double precision odl(max_template,maxdim),
-     & sigma_odl(max_template,maxdim),dih(max_template,maxres),
-     & sigma_dih(max_template,maxres),sigma_odlir(max_template,maxdim)
+      double precision 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_cont)
 !
 !    Specification of new variables used in  subroutine e_modeller
 !    modified by FP (Nov.,2014)
@@ -15,10 +16,10 @@
      & thetatpl(max_template,maxres),sigma_theta(max_template,maxres),
      & sigma_d(max_template,maxres)
 !
-      integer ires_homo(maxdim),jres_homo(maxdim),
+      integer ires_homo(maxdim_cont),jres_homo(maxdim_cont),
      & idomain(max_template,maxres),lim_odl,lim_dih,link_start_homo,
      & link_end_homo,idihconstr_start_homo,idihconstr_end_homo
-      logical l_homo(max_template,maxdim)
+      logical l_homo(max_template,maxdim_cont)
 !
       common /homrestr/ odl,dih,sigma_dih,sigma_odl,
      & lim_odl,lim_dih,ires_homo,jres_homo,link_start_homo,