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