cleaned up xmlreader.f90