dodanie czytania wagi wsccor do clustrowania-M

[unres.git] / source / cluster / unres / src / COMMON.THREAD

      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,maxthread),ener(n_ene,maxthread),
     &  max_time_for_thread,ave_time_for_thread