crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 13:45:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change default location for tallies.out

Browse source
This commit is contained in:
Paul Romano 2012-08-29 22:20:00 -04:00
parent 71364ca160
commit 3fe4925776
1 changed files with 2 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/tally.F90
View file

@ -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