From b35d37c4fbea2d3ac0b5976dc512eae268414f53 Mon Sep 17 00:00:00 2001
From: Adam Nelson <nelsonag@umich.edu>
Date: Sun, 1 May 2016 20:02:42 -0400
Subject: [PATCH] Read in AWR data for MGXS Library if available

---
 src/mgxs_header.F90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/mgxs_header.F90 b/src/mgxs_header.F90
index 56c538a5d1..b6f8a2b49a 100644
--- a/src/mgxs_header.F90
+++ b/src/mgxs_header.F90
@@ -221,6 +221,11 @@ module mgxs_header
       else
         this % zaid = 0
       end if
+      if (check_for_node(node_xsdata, "awr")) then
+        call get_node_value(node_xsdata, "awr", this % awr)
+      else
+        this % awr = -ONE
+      end if
       if (check_for_node(node_xsdata, "scatt_type")) then
         call get_node_value(node_xsdata, "scatt_type", temp_str)
         temp_str = trim(to_lower(temp_str))