hvs_vtk_close Subroutine

public subroutine hvs_vtk_close(vtk_file, proc)

This routine finalizes the vtu file i.e closing cellData xml and creating pvtu file to combile all parallel vtu files

Arguments

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

The file descriptor to close again.
type(tem_comm_env_type), intent(in) :: proc

Communicator for the parallel environment.

Calls

proc~~hvs_vtk_close~~CallsGraph proc~hvs_vtk_close hvs_vtk_close proc~tem_abort tem_abort proc~hvs_vtk_close->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~hvs_vtk_close~~CalledByGraph proc~hvs_vtk_close hvs_vtk_close proc~hvs_output_close hvs_output_close proc~hvs_output_close->proc~hvs_vtk_close proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_close

Contents

Source Code

hvs_vtk_close

Source Code

  subroutine hvs_vtk_close( vtk_file, proc )
    !> The file descriptor to close again.
    type(hvs_vtk_file_type), intent(in) :: vtk_file
    !> Communicator for the parallel environment.
    type(tem_comm_env_type), intent(in) :: proc
    ! ----------------------------------------------------------------------!
    write(logUnit(0),*) 'Using dummy hvs_vtk_close because'
    write(logUnit(0),*) 'executable is configured with --no_vtk'
    call tem_abort()
  end subroutine hvs_vtk_close