diff --git a/src/input_xml.F90 b/src/input_xml.F90 index a58cd3af8..a5c894d10 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -3769,14 +3769,14 @@ contains filt % n_bins = 4 * m % n_dimension allocate(filt % surfaces(4 * m % n_dimension)) if (m % n_dimension == 1) then - filt % surfaces = (/ OUT_LEFT, OUT_RIGHT, IN_LEFT, IN_RIGHT /) + filt % surfaces = (/ OUT_LEFT, IN_LEFT, OUT_RIGHT, IN_RIGHT /) elseif (m % n_dimension == 2) then - filt % surfaces = (/ OUT_LEFT, OUT_RIGHT, OUT_BACK, OUT_FRONT, & - IN_LEFT, IN_RIGHT, IN_BACK, IN_FRONT /) + filt % surfaces = (/ OUT_LEFT, IN_LEFT, OUT_RIGHT, IN_RIGHT, & + OUT_BACK, IN_BACK, OUT_FRONT, IN_FRONT /) elseif (m % n_dimension == 3) then - filt % surfaces = (/ OUT_LEFT, OUT_RIGHT, OUT_BACK, OUT_FRONT, & - OUT_BOTTOM, OUT_TOP, IN_LEFT, IN_RIGHT, IN_BACK, & - IN_FRONT, IN_BOTTOM, IN_TOP /) + filt % surfaces = (/ OUT_LEFT, IN_LEFT, OUT_RIGHT, IN_RIGHT, & + OUT_BACK, IN_BACK, OUT_FRONT, IN_FRONT, OUT_BOTTOM, & + IN_BOTTOM, OUT_TOP, IN_TOP /) end if end select t % find_filter(FILTER_SURFACE) = size(t % filters) diff --git a/src/output.F90 b/src/output.F90 index 9003225ac..f3ddddae5 100644 --- a/src/output.F90 +++ b/src/output.F90 @@ -1083,7 +1083,7 @@ contains filter_index = sum((matching_bins(1:size(t % filters)) - 1) & * t % stride) + 1 write(UNIT=unit_tally, FMT='(5X,A,T35,A,"+/- ",A)') & - "Net Current on Front", & + "Outgoing Current on Front", & to_str(t % results(RESULT_SUM,1,filter_index)), & trim(to_str(t % results(RESULT_SUM_SQ,1,filter_index))) @@ -1091,7 +1091,7 @@ contains filter_index = sum((matching_bins(1:size(t % filters)) - 1) & * t % stride) + 1 write(UNIT=unit_tally, FMT='(5X,A,T35,A,"+/- ",A)') & - "Net Current on Front", & + "Incoming Current on Front", & to_str(t % results(RESULT_SUM,1,filter_index)), & trim(to_str(t % results(RESULT_SUM_SQ,1,filter_index))) end if