From 1642b9fb156bcce044f05948eae14befd17a306e Mon Sep 17 00:00:00 2001
From: Patrick Shriwise <pshriwise@gmail.com>
Date: Mon, 10 Dec 2018 10:36:25 -0600
Subject: [PATCH] Fixing fortran style.

---
 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 496f42f76..780547c37 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -522,7 +522,7 @@ contains
 
 #ifdef DAGMC
     if (dagmc) then
-       doc % ptr = read_uwuw_materials()
+      doc % ptr = read_uwuw_materials()
     end if
 
     if (.not. c_associated(doc % ptr)) then
@@ -534,7 +534,7 @@ contains
     if (.not. file_exists) then
       call fatal_error("Material XML file '" // trim(filename) // "' does not &
            &exist!")
-   end if
+    end if
 
     ! Parse materials.xml file
     call doc % load_file(filename)