From 6f8d9d7279356743f99f77ad800ac520d685fe34 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 18 Nov 2012 13:46:30 -0500 Subject: [PATCH] Fix tally labels. --- src/cmfd_input.F90 | 9 +++++++++ src/tally_header.F90 | 10 +++++----- 2 files changed, 14 insertions(+), 5 deletions(-) diff --git a/src/cmfd_input.F90 b/src/cmfd_input.F90 index ad4e077091..d602eac9fc 100644 --- a/src/cmfd_input.F90 +++ b/src/cmfd_input.F90 @@ -351,6 +351,9 @@ contains if (i == n_user_tallies + 1) then + ! set label + t % label = "CMFD flux, total, scatter-1, diffusion" + ! set tally estimator to analog t % estimator = ESTIMATOR_ANALOG @@ -377,6 +380,9 @@ contains else if (i == n_user_tallies + 2) then + ! set label + t % label = "CMFD neutron production" + ! set tally estimator to analog t % estimator = ESTIMATOR_ANALOG @@ -416,6 +422,9 @@ contains else if (i == n_user_tallies + 3) then + ! set label + t % label = "CMFD surface currents" + ! set tally estimator to analog t % estimator = ESTIMATOR_ANALOG diff --git a/src/tally_header.F90 b/src/tally_header.F90 index 81ad908808..155771ff1f 100644 --- a/src/tally_header.F90 +++ b/src/tally_header.F90 @@ -63,11 +63,11 @@ module tally_header type TallyObject ! Basic data - integer :: id ! user-defined identifier - character(len=52) :: label ! user-defined label - integer :: type ! volume, surface current - integer :: estimator ! collision, track-length - real(8) :: volume ! volume of region + integer :: id ! user-defined identifier + character(len=52) :: label = "" ! user-defined label + integer :: type ! volume, surface current + integer :: estimator ! collision, track-length + real(8) :: volume ! volume of region ! Information about what filters should be used