X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2FCOMMON.CLUSTER;h=4fedc520d624d1546c0d7352c57e58835aa5ab77;hb=24d71016d39facb439708acae299529762f51e81;hp=4477d19a86c71f5de3da9efe328b4970a6dab70f;hpb=bbeeae96ba3edb7acbb8e7e41c0e1cb8a969e025;p=unres.git

diff --git a/source/cluster/wham/src-M/COMMON.CLUSTER b/source/cluster/wham/src-M/COMMON.CLUSTER
index 4477d19..4fedc52 100644
--- a/source/cluster/wham/src-M/COMMON.CLUSTER
+++ b/source/cluster/wham/src-M/COMMON.CLUSTER
@@ -6,12 +6,12 @@
       integer ncut,ngr,licz,nconf,iass,icc,mult,list_conf,
      &  nss_all,ihpb_all,jhpb_all,iass_tot,iscore,nprop
       common /clu/ diss(maxdist),energy(0:maxconf),
-     &  enetb(max_ene,maxstr_proc),ecut,
+     &  enetb(max_ene,maxconf),ecut,
      &  entfac(maxconf),totfree(0:maxconf),totfree_gr(maxgr),
      &  rcutoff(max_cut+1),ncut,min_var,tree,plot_tree,lgrp
       common /clu1/ ngr,licz(maxgr),nconf(maxgr,maxingr),iass(maxgr),
      &  iass_tot(maxgr,max_cut),list_conf(maxconf)
-      common /alles/ allcart(3,maxres2,maxstr_proc),rmstb(maxconf),
+      common /alles/ allcart(3,maxres2,maxconf),rmstb(maxconf),
      & icc(maxconf),
-     & mult(maxres),nss_all(maxstr_proc),ihpb_all(maxss,maxstr_proc),
-     & jhpb_all(maxss,maxstr_proc),iscore(maxconf),nprop
+     & mult(maxres),nss_all(maxconf),ihpb_all(maxss,maxconf),
+     & jhpb_all(maxss,maxconf),iscore(maxconf),nprop