From 56b2c1c667bc136a7946df5c30f7d7cbc94ca506 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 5 Oct 2011 10:00:26 -0400 Subject: [PATCH] Removed unused variables in write_xml_primitives.f90. --- src/xml-fortran/write_xml_primitives.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xml-fortran/write_xml_primitives.f90 b/src/xml-fortran/write_xml_primitives.f90 index 94609593af..7d2cf90ba7 100644 --- a/src/xml-fortran/write_xml_primitives.f90 +++ b/src/xml-fortran/write_xml_primitives.f90 @@ -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 = ' '