& 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)
& 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)