X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD-5D%2FCOMMON.HOMOLOGY;fp=source%2Fcluster%2Fwham%2Fsrc-HCD-5D%2FCOMMON.HOMOLOGY;h=e0cb0cf7d50115c7e4dcac9687029070eab0cc8e;hb=8bb1cdb2042196e72a125024b254c96a72d7c7ef;hp=d149f8d8efcd78b26748a151e6e805052637f537;hpb=bb1fe0fdf449bf1d1ece624674543a9edb9f345c;p=unres.git

diff --git a/source/cluster/wham/src-HCD-5D/COMMON.HOMOLOGY b/source/cluster/wham/src-HCD-5D/COMMON.HOMOLOGY
index d149f8d..e0cb0cf 100644
--- a/source/cluster/wham/src-HCD-5D/COMMON.HOMOLOGY
+++ b/source/cluster/wham/src-HCD-5D/COMMON.HOMOLOGY
@@ -1,8 +1,8 @@
-      logical l_homo
+      logical l_homo,dist1cut
       integer iset,ihset
       real*8 waga_homology
       real*8 waga_dist, waga_angle, waga_theta, waga_d, dist_cut,
      &  dist2_cut
       common /homol/  waga_homology(10),
      & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,dist2_cut,
-     & iset,ihset,l_homo(max_template,maxdim_cont)
+     & iset,ihset,l_homo(max_template,maxdim_cont),dist1cut