hvs_output_finalize Subroutine

  subroutine hvs_output_finalize( out_file )
    ! --------------------------------------------------------------------------!
    type(hvs_output_file_type), intent(inout) :: out_file
    ! --------------------------------------------------------------------------!
    select case(out_file%vis_kind)
    case(hvs_AsciiTransient)
      call hvs_ascii_close( ascii = out_file%ascii)
    case(hvs_VTK)
      call hvs_vtk_closePVD(vtk_file = out_file%vtk)
      call tem_vrtx_finalize(out_file%vrtx)
    case(hvs_Internal)
      call tem_restart_finalize( me = out_file%restart )
    end select
  end subroutine hvs_output_finalize