crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Added zero padded filenames for source files

Browse source 
Also correcteted statepoint filenames in write_source_point
This commit is contained in:
Sterling Harper 2014-07-11 16:09:16 +02:00
parent d1f863b2be
commit 244e9970e2
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/state_point.F90
View file

@ -304,7 +304,7 @@ contains
if (source_separate) then
! Set filename
filename = trim(path_output) // 'source.' // trim(to_str(current_batch))
filename = trim(path_output) // 'source.' // zero_padded_batch()
#ifdef HDF5
filename = trim(filename) // '.h5'
#else
@ -324,8 +324,7 @@ contains
else
! Set filename for state point
filename = trim(path_output) // 'statepoint.' // &
trim(to_str(current_batch))
filename = trim(path_output) // 'statepoint.' // zero_padded_batch()
#ifdef HDF5
filename = trim(filename) // '.h5'
#else