VTK_GEO_XML_CLOSEP Function

  1. mod_vtk.f90
  2. VTK
  3. VTK_GEO_XML_CLOSEP

private function VTK_GEO_XML_CLOSEP() result(E_IO)

Function for closing mesh block data.

Arguments

None

Return Value integer(kind=I4P)


Called by

proc~~vtk_geo_xml_closep~~CalledByGraph proc~vtk_geo_xml_closep VTK_GEO_XML_CLOSEP interface~vtk_geo_xml VTK_GEO_XML interface~vtk_geo_xml->proc~vtk_geo_xml_closep

Contents

Source Code

VTK_GEO_XML_CLOSEP

Source Code

  function VTK_GEO_XML_CLOSEP() result(E_IO)
  !---------------------------------------------------------------------------------------------------------------------------------
  !! Function for closing mesh block data.
  !---------------------------------------------------------------------------------------------------------------------------------

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

  !---------------------------------------------------------------------------------------------------------------------------------
  indent = indent - 2
  select case(f_out)
  case(f_out_ascii)
    write(unit=Unit_VTK,fmt='(A)',iostat=E_IO)repeat(' ',indent)//'</Piece>'
  case(f_out_binary)
    write(unit=Unit_VTK,iostat=E_IO)repeat(' ',indent)//'</Piece>'//end_rec
  endselect
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction VTK_GEO_XML_CLOSEP