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

Prettied up the comments.

Browse source
This commit is contained in:
Adam Nelson 2013-12-05 20:13:25 -05:00
parent 740b60e72e
commit c3cd394f7a
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

@ -75,7 +75,7 @@ contains
real(8) :: a ! Arbitrary parameter 'a'
real(8) :: b ! Arbitrary parameter 'b'
logical :: found ! Does the source particle exist within geometry?
type(Particle) :: p ! Temporary particle for using find_cell
type(Particle) :: p ! Temporary particle for using find_cell
! Set weight to one by default
site % wgt = ONE