VTM_BLK_XML Function

  1. mod_vtk.f90
  2. VTK
  3. VTM_BLK_XML

public function VTM_BLK_XML(block_action) result(E_IO)

The VTM_BLK_XML function is used for opening or closing a block level of a VTM file.

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: block_action

Return Value integer(kind=I4P)


Calls

proc~~vtm_blk_xml~~CallsGraph proc~vtm_blk_xml VTM_BLK_XML proc~upper_case Upper_Case proc~vtm_blk_xml->proc~upper_case

Contents

Source Code

VTM_BLK_XML

Source Code

  function VTM_BLK_XML(block_action) result(E_IO)
  !---------------------------------------------------------------------------------------------------------------------------------
  !!The VTM_BLK_XML function is used for opening or closing a block level of a VTM file.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  implicit none
  character(*), intent(IN):: block_action ! block action: OPEN or CLOSE block
  integer(I4P)::             E_IO         ! Input/Output inquiring flag: $0$ if IO is done, $> 0$ if IO is not done
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  select case(trim(Upper_Case(block_action)))
  case('OPEN')
    blk = blk + 1
    write(unit=Unit_VTM,fmt='(A,I4.4,A)',iostat=E_IO)repeat(' ',vtm_indent)//'<Block index="',blk,'">'
    vtm_indent = vtm_indent + 2
  case('CLOSE')
    vtm_indent = vtm_indent - 2
    write(unit=Unit_VTM,fmt='(A)',iostat=E_IO)repeat(' ',vtm_indent)//'</Block>'
  endselect
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction VTM_BLK_XML