hvs_vtk_write_cd_Header Subroutine

public subroutine hvs_vtk_write_cd_Header(vtk_file, celldata_str)

Write the cell data description into the VTK files.

This will write the celldata string into the VTK files.

Arguments

Type IntentOptional Attributes Name
type(hvs_vtk_file_type), intent(in) :: vtk_file

Handles for the VTK files to write the celldata to.
character(len=*), intent(in) :: celldata_str

Actual string to put into the XML to describe the celldata.

Called by

proc~~hvs_vtk_write_cd_header~~CalledByGraph proc~hvs_vtk_write_cd_header hvs_vtk_write_cd_Header proc~hvs_vtk_write_varsys hvs_vtk_write_varSys proc~hvs_vtk_write_varsys->proc~hvs_vtk_write_cd_header proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~hvs_vtk_write_varsys proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_open

Source Code

  subroutine hvs_vtk_write_cd_Header(vtk_file, celldata_str)
    !> Handles for the VTK files to write the celldata to.
    type(hvs_vtk_file_type), intent(in) :: vtk_file

    !> Actual string to put into the XML to describe the celldata.
    character(len=*), intent(in) :: celldata_str
    ! ----------------------------------------------------------------------!
    character :: linebreak
    character(len=PathLen) :: headerline
    ! ----------------------------------------------------------------------!

    linebreak = new_line('x')

    ! cell based vtk output
    write(headerline,'(a)') '   <CellData'//trim(celldata_str)//'>'
    write(vtk_file%outunit) trim(headerline)//linebreak
    if (vtk_file%write_pvtu) then
      write(headerline,'(a)') '  <PCellData'//trim(celldata_str)//'>'
      write(vtk_file%punit) trim(headerline)//linebreak
    end if

  end subroutine hvs_vtk_write_cd_Header