From 0bbf63e0a87c336bfd64dd7f8f35a56368f43e39 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 21 Nov 2011 06:56:09 -0800 Subject: [PATCH] Removed several recursive I/O calls in output module to get PGI compiler to work. --- src/output.f90 | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/src/output.f90 b/src/output.f90 index 4e7f0ccb0e..06bb12fb5e 100644 --- a/src/output.f90 +++ b/src/output.f90 @@ -69,21 +69,22 @@ contains call header("PROBLEM SUMMARY") if (problem_type == PROB_CRITICALITY) then write(ou,100) 'Problem type:', 'Criticality' - write(ou,100) 'Number of Cycles:', int_to_str(n_cycles) - write(ou,100) 'Number of Inactive Cycles:', int_to_str(n_inactive) + write(ou,101) 'Number of Cycles:', n_cycles + write(ou,101) 'Number of Inactive Cycles:', n_inactive elseif (problem_type == PROB_SOURCE) then write(ou,100) 'Problem type:', 'External Source' end if - write(ou,100) 'Number of Particles:', int_to_str(n_particles) + write(ou,101) 'Number of Particles:', n_particles ! Display geometry summary call header("GEOMETRY SUMMARY") - write(ou,100) 'Number of Cells:', int_to_str(n_cells) - write(ou,100) 'Number of Surfaces:', int_to_str(n_surfaces) - write(ou,100) 'Number of Materials:', int_to_str(n_materials) + write(ou,101) 'Number of Cells:', n_cells + write(ou,101) 'Number of Surfaces:', n_surfaces + write(ou,101) 'Number of Materials:', n_materials ! Format descriptor for columns 100 format (1X,A,T35,A) +101 format (1X,A,T35,I11) end subroutine echo_input @@ -654,6 +655,7 @@ contains type(Lattice), pointer :: l => null() type(Material), pointer :: m => null() type(TallyObject), pointer :: t => null() + character(15) :: string integer :: i ! print summary of cells @@ -709,8 +711,10 @@ contains else write(ou,100) "Survival Biasing:", "off" end if - write(ou,100) "Weight Cutoff:", trim(real_to_str(weight_cutoff)) - write(ou,100) "Survival weight:", trim(real_to_str(weight_survive)) + string = real_to_str(weight_cutoff) + write(ou,100) "Weight Cutoff:", trim(string) + string = real_to_str(weight_survive) + write(ou,100) "Survival weight:", trim(string) write(ou,*) ! Format descriptor for columns