diff --git a/src/eigenvalue.F90 b/src/eigenvalue.F90 index f52ccef810..e46d5c996b 100644 --- a/src/eigenvalue.F90 +++ b/src/eigenvalue.F90 @@ -127,7 +127,9 @@ contains tallies_on = .true. ! Add user tallies to active tallies list +!$omp parallel call setup_active_usertallies() +!$omp end parallel end if ! check CMFD initialize batch diff --git a/src/global.F90 b/src/global.F90 index dd436fefc2..9466589b1b 100644 --- a/src/global.F90 +++ b/src/global.F90 @@ -112,6 +112,8 @@ module global type(SetInt) :: active_tracklength_tallies type(SetInt) :: active_current_tallies type(SetInt) :: active_tallies +!$omp threadprivate(active_analog_tallies, active_tracklength_tallies, & +!$omp& active_current_tallies, active_tallies) ! Global tallies ! 1) collision estimate of k-eff