source/cluster/wham/src-M/COMMON.CLUSTER

   1       logical tree,plot_tree,lgrp,min_var
   2       real*8 rcutoff,ecut
   3       double precision totfree_gr
   4       real*4 diss,allcart
   5       double precision enetb,entfac,totfree,energy,rmstb
   6       integer ncut,ngr,licz,nconf,iass,icc,mult,list_conf,
   7      &  nss_all,ihpb_all,jhpb_all,iass_tot,iscore,nprop,nclust
   8       common /clu/ diss(maxdist),energy(0:maxconf),
   9      &  enetb(max_ene,maxconf),ecut,
  10      &  entfac(maxconf),totfree(0:maxconf),totfree_gr(maxgr),
  11      &  rcutoff(max_cut+1),ncut,nclust,min_var,tree,plot_tree,lgrp
  12       common /clu1/ ngr,licz(maxgr),nconf(maxgr,maxingr),iass(maxgr),
  13      &  iass_tot(maxgr,max_cut),list_conf(maxconf)
  14       common /alles/ allcart(3,maxres2,maxconf),rmstb(maxconf),
  15      & icc(maxconf),
  16      & mult(maxres),nss_all(maxconf),ihpb_all(maxss,maxconf),
  17      & jhpb_all(maxss,maxconf),iscore(maxconf),nprop