From 3fe4925776f75e68f10de8938d4ec544ff359ad2 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 29 Aug 2012 22:20:00 -0400 Subject: [PATCH] Change default location for tallies.out --- src/tally.F90 | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/src/tally.F90 b/src/tally.F90 index f7ac74bee..3bdc12b00 100644 --- a/src/tally.F90 +++ b/src/tally.F90 @@ -1801,7 +1801,6 @@ contains integer :: i_listing ! index in xs_listings array real(8) :: t_value ! t-values for confidence intervals real(8) :: alpha ! significance level for CI - logical :: file_exists ! does tallies.out file already exists? logical :: has_filter(N_FILTER_TYPES) ! does tally have this filter? logical :: no_filters ! does tally have no filters at all? character(MAX_FILE_LEN) :: filename ! name of output file @@ -1845,16 +1844,9 @@ contains ! Create filename for tally output if (run_mode == MODE_TALLIES) then - filename = trim(path_input) // "tallies." // & - trim(to_str(restart_batch)) // ".out" + filename = "tallies." // trim(to_str(restart_batch)) // ".out" else - filename = trim(path_input) // "tallies.out" - end if - - ! Check if tally file already exists - inquire(FILE=filename, EXIST=file_exists) - if (file_exists) then - ! Possibly make backup of old tally file + filename = "tallies.out" end if ! Open tally file for writing