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