VTM_END_XML Function

  function VTM_END_XML() result(E_IO)
  !---------------------------------------------------------------------------------------------------------------------------------
  !!This function is used to finalize the VTM file opened. The \LIBVTKIO manages the file unit without the user's action.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  implicit none
  integer(I4P):: E_IO      ! Input/Output inquiring flag: $0$ if IO is done, $> 0$ if IO is not done
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  vtm_indent = vtm_indent - 2
  write(unit=Unit_VTM,fmt='(A)',iostat=E_IO)repeat(' ',vtm_indent)//'</vtkMultiBlockDataSet>'
  write(unit=Unit_VTM,fmt='(A)',iostat=E_IO)'</VTKFile>'
  close(unit=Unit_VTM)
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction VTM_END_XML