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

Replaced a few instances of msg with message.

Browse source
This commit is contained in:
Paul Romano 2011-11-07 09:57:06 -05:00
parent e01a3be606
commit 134847fbcc
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/main.f90
View file

@ -54,7 +54,6 @@ contains
integer :: i_cycle ! cycle index
integer(8) :: i_particle ! history index
character(MAX_LINE_LEN) :: msg ! output/error message
type(Particle), pointer :: p => null()
if (master) call header("BEGIN SIMULATION", 1)
@ -69,7 +68,7 @@ contains
! Start timer for computation
call timer_start(time_compute)
msg = "Simulating cycle " // trim(int_to_str(i_cycle)) // "..."
message = "Simulating cycle " // trim(int_to_str(i_cycle)) // "..."
call write_message(8)
! Set all tallies to zero

3
src/source.f90
View file

@ -30,9 +30,8 @@ contains
real(8) :: E ! outgoing energy
real(8) :: p_min(3) ! minimum coordinates of source
real(8) :: p_max(3) ! maximum coordinates of source
character(MAX_LINE_LEN) :: msg ! error message
msg = 'Initializing source particles...'
message = "Initializing source particles..."
call write_message(6)
! Determine maximum amount of particles to simulate on each processor