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

Prevent naming conflict on OpenMC critical directive sections

Browse source
This commit is contained in:
Paul Romano 2015-07-05 01:18:51 +00:00
parent 32a120f596
commit 44c282c20e
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/particle_restart_write.F90
View file

@ -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

4
src/track_output.F90
View file

@ -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