added source code
[unres.git] / source / cluster / unres / src / COMMON.CLUSTER
1       logical tree,plot_tree,lgrp,min_var
2       double precision attalums,energy,rcutoff,phiall,thetall,alphall,
3      &  omall,ecut,allcart,totfree
4       integer ncut,ngr,licz,nconf,iass,icc,mult
5       common /clu/ attalums(maxdist),energy(0:maxconf),ecut,
6      &  totfree(0:maxconf),
7      &  rcutoff(max_cut+1),ncut,min_var,tree,plot_tree,lgrp
8       common /clu1/ ngr,licz(maxgr),nconf(maxgr,maxingr),iass(maxgr),
9      &  iass_tot(maxgr,max_cut)
10       common /alles/ phiall(maxres,maxconf),thetall(maxres,maxconf),
11      & alphall(maxres,maxconf),omall(maxres,maxconf),
12      & allcart(3,maxres2,maxconf),rmstab(maxconf),icc(maxconf),
13      & mult(maxres),nss_all(maxconf),ihpb_all(maxdim,maxconf),
14      & jhpb_all(maxdim,maxconf),iscore(maxconf),nprop