Set blank default for xs listing alias.

paulromano · paulromano · commit 5853d27505f4 · 2013-07-07T15:21:53.000-04:00
diff --git a/src/input_xml.F90 b/src/input_xml.F90
@@ -2552,7 +2552,9 @@ subroutine read_cross_sections_xml()
 
        ! create dictionary entry for both name and alias
        call xs_listing_dict % add_key(listing % name, i)
-       call xs_listing_dict % add_key(listing % alias, i)
+       if (listing % alias /= '') then
+         call xs_listing_dict % add_key(listing % alias, i)
+       end if
     end do
 
   end subroutine read_cross_sections_xml
diff --git a/src/templates/cross_sections_t.xml b/src/templates/cross_sections_t.xml
@@ -7,7 +7,7 @@
 
   <typedef name="ace_table_xml">
     <component name="name" type="word" length="15" />
-    <component name="alias" type="word" length="15" />
+    <component name="alias" type="word" length="15" default="''" />
     <component name="type" type="word" length="10" default="'neutron'" />
     <component name="zaid" type="integer" default="0" />
     <component name="metastable" type="integer" default="0" />
