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

message written when reading in source

Browse source
This commit is contained in:
Bryan Herman 2014-01-31 11:34:07 -05:00
parent 854c86aa42
commit cbe6560ba1
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/source.F90
View file

@ -40,6 +40,9 @@ contains
! Read the source from a binary file instead of sampling from some
! assumed source distribution
message = 'Reading source file from ' // trim(path_source) // '...'
call write_message(6)
! Open the binary file
call sp % file_open(path_source, 'r', serial = .false.)