crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Move calculation of number of threads outside of .omp parallel.

Browse source
This commit is contained in:
Paul Romano 2014-01-14 21:26:40 -05:00
parent c439c3dc5d
commit b142ff6458
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/initialize.F90
View file

@ -836,8 +836,9 @@ contains
! generation, there is also a 'master_fission_bank' that is used to collect
! the sites from each thread.
n_threads = omp_get_max_threads()
!$omp parallel
n_threads = omp_get_num_threads()
thread_id = omp_get_thread_num()
if (thread_id == 0) then