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

Fix for source_file test, oops

Browse source
This commit is contained in:
Paul Romano 2018-04-25 16:12:23 -05:00
parent 9e29b8e202
commit f528cbca97
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/state_point.F90
View file

@ -493,7 +493,7 @@ contains
! Create separate source file
if (master .or. parallel) then
file_id = file_open(filename, 'w', parallel=.true.)
call write_dataset(file_id, "filetype", 'source')
call write_attribute(file_id, "filetype", 'source')
end if
else
filename = trim(path_output) // 'statepoint.' // &