X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2FCOMMON.CONTROL;h=209c22aa7a725affd28576e85239274be7aec1ae;hb=aa037b39c46474f358b050551261d7c5ac3d2357;hp=ed0f98bd5ddfdf51bda7367e7d2f993a46f32d0a;hpb=357148eb01c1ea7e5cfd362d34f1e1ab61c8f2a8;p=unres.git

diff --git a/source/wham/src/COMMON.CONTROL b/source/wham/src/COMMON.CONTROL
index ed0f98b..209c22a 100644
--- a/source/wham/src/COMMON.CONTROL
+++ b/source/wham/src/COMMON.CONTROL
@@ -1,6 +1,6 @@
       integer iscode,indpdb,outpdb,outmol2,icomparfunc,pdbint,
      & ensembles,constr_dist,constr_homology,homol_nset,
-     & iset
+     & iset,ihset
       real*8 waga_homology
       real*8 waga_dist, waga_angle, waga_theta, waga_d, dist_cut
       logical refstr,pdbref,punch_dist,print_rms,caonly,verbose,
@@ -11,5 +11,5 @@
      & merge_helices,bxfile,cxfile,histfile,entfile,zscfile,rmsrgymap,
      & ensembles,with_dihed_constr,check_conf,histout,constr_dist,
      & constr_homology,out1file,homol_nset
-      common /homol/  waga_homology(MaxProcs/20),
-     & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,iset
+      common /homol/  waga_homology(maxR),
+     & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,iset,ihset