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