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

capitalized num_natural_elements in input_xml.F90

Browse source
This commit is contained in:
Sam Shaner 2016-10-17 17:34:16 -04:00
parent 7142a2c303
commit ed36d06fdb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/input_xml.F90
View file

@ -4594,7 +4594,7 @@ contains
! Find location of element name in natural_elements
i = -1
do i = 1, num_natural_elements
do i = 1, NUM_NATURAL_ELEMENTS
if (natural_elements(i) == element_name) then
natural_elements_loc = i
end if
@ -4678,7 +4678,7 @@ contains
! Find location of element name in natural_elements
i = -1
do i = 1, num_natural_elements
do i = 1, NUM_NATURAL_ELEMENTS
if (natural_elements(i) == element_name) then
natural_elements_loc = i
end if