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 /EnergaSA/ energy(maxconf),totfree(maxconf),
     & entfac(maxconf),enetb(max_ene,maxconf),rmstb(maxconf)
       common /alles/ allcart(3,maxres2,maxstr_proc),
     & nss_all(maxstr_proc),ihpb_all(maxss,maxstr_proc),
     & jhpb_all(maxss,maxstr_proc),iscore(maxconf),nprop