crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-26 21:25:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

FTW, removing trail white-spaces in line 985 and 995 from

Browse source 
nuclide-header.f90
This commit is contained in:
Jose Salcedo Perez 2018-06-15 03:55:35 +00:00
parent 10bba7d5f9
commit 3e7aa0705f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/nuclide_header.F90
View file

@ -982,7 +982,7 @@ contains
if (need_depletion_rx) then
!Initialize entire array to zero in case we skip
!any threshold reaction.
micro_xs % reaction(:) = ZERO
micro_xs % reaction(:) = ZERO
!there shouldn't be a threshold check for (n,gamma).
i_rxn = this % reaction_index(DEPLETION_RX(1))
if (i_rxn > 0) then
@ -992,7 +992,7 @@ contains
f * xs % value(i_grid - xs % threshold + 2)
end associate
end if
!looping from element 2 to element 6.
!looping from element 2 to element 6.
do j = 2, 6
!If reaction is present and energy is greater than threshold, set
!the reaction xs appropriately