initialized list

This commit is contained in:
Bryan Herman 2014-05-08 14:22:12 -04:00
parent 70cc7ed06c
commit af6b4eaffa

View file

@ -41,6 +41,8 @@ module openmc_fox
logical :: doneChildren, doneAttributes, allElements
integer :: i, i_tree
list => null()
if (.not.associated(doc)) then
if (getFoX_checks().or.FoX_NODE_IS_NULL<200) then
call throw_exception(FoX_NODE_IS_NULL, "getElementsByTagName", ex)