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

diff --git a/source/unres/src-HCD-5D/COMMON.HOMOLOGY b/source/unres/src-HCD-5D/COMMON.HOMOLOGY
index f19f0c6..e9b6320 100644
--- 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,