From ed36d06fdb6cf53ce7593914fd41fe369cf75b31 Mon Sep 17 00:00:00 2001 From: Sam Shaner Date: Mon, 17 Oct 2016 17:34:16 -0400 Subject: [PATCH] capitalized num_natural_elements in input_xml.F90 --- src/input_xml.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 9e309899e6..5f9a909ff6 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -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