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

fixed integer type for filetype during read source

Browse source
This commit is contained in:
Bryan Herman 2014-02-22 15:14:26 -05:00
parent cbe6560ba1
commit 1c8eb1920d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/source.F90
View file

@ -29,7 +29,7 @@ contains
integer(8) :: i ! loop index over bank sites
integer(8) :: id ! particle id
integer(8) :: itmp ! temporary integer
integer(4) :: itmp ! temporary integer
type(Bank), pointer :: src => null() ! source bank site
type(BinaryOutput) :: sp ! statepoint/source binary file