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