From 44c282c20e6b469d61551e796735fd71fa4a750a Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 5 Jul 2015 01:18:51 +0000 Subject: [PATCH] Prevent naming conflict on OpenMC critical directive sections --- src/particle_restart_write.F90 | 4 ++-- src/track_output.F90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/particle_restart_write.F90 b/src/particle_restart_write.F90 index 5f905cb5e7..0ac55bd273 100644 --- a/src/particle_restart_write.F90 +++ b/src/particle_restart_write.F90 @@ -38,7 +38,7 @@ contains filename = trim(filename) // '.binary' #endif -!$omp critical (write_particle_restart) +!$omp critical (WriteParticleRestart) ! Create file call pr % file_create(filename) @@ -66,7 +66,7 @@ contains ! Close file call pr % file_close() -!$omp end critical (write_particle_restart) +!$omp end critical (WriteParticleRestart) end subroutine write_particle_restart diff --git a/src/track_output.F90 b/src/track_output.F90 index 60ab7e968d..2159003ce5 100644 --- a/src/track_output.F90 +++ b/src/track_output.F90 @@ -69,12 +69,12 @@ contains // '_' // trim(to_str(current_gen)) // '_' // trim(to_str(p % id)) & // '.binary' #endif -!$omp critical (finalize_particle_track) +!$omp critical (FinalizeParticleTrack) call binout % file_create(fname) length = [3, n_tracks] call binout % write_data(coords, 'coordinates', length=length) call binout % file_close() -!$omp end critical (finalize_particle_track) +!$omp end critical (FinalizeParticleTrack) deallocate(coords) end subroutine finalize_particle_track