--- /dev/null
+ 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