Adasko's dir

[unres.git] / source / cluster / wham / src-NEWSC / COMMON.CLUSTER

diff --git a/source/cluster/wham/src-NEWSC/COMMON.CLUSTER b/source/cluster/wham/src-NEWSC/COMMON.CLUSTER
new file mode 100644 (file)
index 0000000..4477d19
--- /dev/null
+++ b/source/cluster/wham/src-NEWSC/COMMON.CLUSTER
@@ -0,0 +1,17 @@
+      logical tree,plot_tree,lgrp,min_var
+      real*8 rcutoff,ecut
+      double precision totfree_gr
+      real*4 diss,allcart
+      double precision enetb,entfac,totfree,energy,rmstb
+      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,
+     &  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),
+     & icc(maxconf),
+     & mult(maxres),nss_all(maxstr_proc),ihpb_all(maxss,maxstr_proc),
+     & jhpb_all(maxss,maxstr_proc),iscore(maxconf),nprop