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

when opening separate source file, read filetype first

Browse source
This commit is contained in:
Bryan Herman 2013-10-22 09:22:08 -04:00
parent ba9d5753db
commit b4122c7319
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/state_point.F90
View file

@ -783,6 +783,9 @@ contains
! Open source file
call sp % file_open(filename, 'r', serial = .false.)
! Read file type
call sp % read_data(int_array(1), "filetype")
end if
! Write out source