Removed unused variables in write_xml_primitives.f90.

This commit is contained in:
Paul Romano 2011-10-05 10:00:26 -04:00
parent 41ae4b77d8
commit 56b2c1c667

View file

@ -471,7 +471,7 @@ subroutine write_to_xml_line_array( info, tag, indent, array )
logical, dimension(:), intent(in) :: array
character(len=100) :: indentation
integer :: i, i2, j
integer :: i
indentation = ' '