From 1bb4eef41632edb015faf7975bb73d9334c1112b Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sat, 16 Sep 2017 15:15:10 -0500 Subject: [PATCH] Fix MPI/OpenMP-related compile issues --- src/initialize.F90 | 2 ++ src/simulation.F90 | 1 + src/source_header.F90 | 2 -- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/initialize.F90 b/src/initialize.F90 index c3fc6b0e84..1720f2adf9 100644 --- a/src/initialize.F90 +++ b/src/initialize.F90 @@ -23,7 +23,9 @@ module initialize use output, only: print_version, write_message, print_usage use random_lcg, only: initialize_prng use settings +#ifdef _OPENMP use simulation_header, only: n_threads +#endif use string, only: to_str, starts_with, ends_with, str_to_int use tally_header, only: TallyObject use tally_filter diff --git a/src/simulation.F90 b/src/simulation.F90 index 4eada2d68e..a240f55b06 100644 --- a/src/simulation.F90 +++ b/src/simulation.F90 @@ -17,6 +17,7 @@ module simulation use eigenvalue, only: join_bank_from_threads #endif use error, only: fatal_error + use geometry_header, only: n_cells use message_passing use mgxs_header, only: energy_bins, energy_bin_avg use nuclide_header, only: micro_xs, n_nuclides diff --git a/src/source_header.F90 b/src/source_header.F90 index 76723212ca..fa489853e9 100644 --- a/src/source_header.F90 +++ b/src/source_header.F90 @@ -216,7 +216,6 @@ contains class(SourceDistribution), intent(in) :: this type(Bank) :: site - real(8) :: r(3) ! sampled coordinates logical :: found ! Does the source particle exist within geometry? type(Particle) :: p ! Temporary particle for using find_cell @@ -305,7 +304,6 @@ contains integer(C_INT32_T), optional, intent(out) :: index_end integer(C_INT) :: err - integer :: i type(SourceDistribution), allocatable :: temp(:) ! temporary array if (n_sources == 0) then