crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed source code standard issues that travis called me out on

Browse source
This commit is contained in:
Adam Nelson 2015-09-26 14:16:04 -04:00
parent 5658cb0e66
commit a3b87ad372
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/tally.F90
View file

@ -176,7 +176,7 @@ contains
! weight times the multiplicity as the estimate for the number of
! neutrons exiting a reaction with neutrons in the exit channel
if (p % event_MT == ELASTIC .or. p % event_MT == N_LEVEL .or. &
(p % event_MT >= N_N1 .and. p % event_MT <= N_NC)) then
(p % event_MT >= N_N1 .and. p % event_MT <= N_NC)) then
multiplicity = ONE
else
do m = 1, nuclides(p % event_nuclide) % n_reaction
@ -211,7 +211,7 @@ contains
! weight times the multiplicity as the estimate for the number of
! neutrons exiting a reaction with neutrons in the exit channel
if (p % event_MT == ELASTIC .or. p % event_MT == N_LEVEL .or. &
(p % event_MT >= N_N1 .and. p % event_MT <= N_NC)) then
(p % event_MT >= N_N1 .and. p % event_MT <= N_NC)) then
multiplicity = ONE
else
do m = 1, nuclides(p % event_nuclide) % n_reaction
@ -246,7 +246,7 @@ contains
! weight times the multiplicity as the estimate for the number of
! neutrons exiting a reaction with neutrons in the exit channel
if (p % event_MT == ELASTIC .or. p % event_MT == N_LEVEL .or. &
(p % event_MT >= N_N1 .and. p % event_MT <= N_NC)) then
(p % event_MT >= N_N1 .and. p % event_MT <= N_NC)) then
multiplicity = ONE
else
do m = 1, nuclides(p % event_nuclide) % n_reaction