integer nthread,nexcl,iexam,ipatt
      double precision ener0,ener,max_time_for_thread,
     &  ave_time_for_thread
      common /thread/ nthread,nexcl,iexam(2,maxthread),
     &  ipatt(2,maxthread)
      common /thread1/ ener0(n_ene+2,maxthread),ener(n_ene+2,maxthread),
     &  max_time_for_thread,ave_time_for_thread