From 134847fbccb703a0fce4b2e0b94cd23ebfa657f9 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 7 Nov 2011 09:57:06 -0500 Subject: [PATCH] Replaced a few instances of msg with message. --- src/main.f90 | 3 +-- src/source.f90 | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/main.f90 b/src/main.f90 index d60083f862..2dfdcce773 100644 --- a/src/main.f90 +++ b/src/main.f90 @@ -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 diff --git a/src/source.f90 b/src/source.f90 index c448da0a1b..1da0ea2e68 100644 --- a/src/source.f90 +++ b/src/source.f90 @@ -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