dist1cut

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

diff --git a/source/cluster/wham/src-HCD-5D/COMMON.HOMOLOGY b/source/cluster/wham/src-HCD-5D/COMMON.HOMOLOGY
index d149f8d..e0cb0cf 100644 (file)
--- 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