finalize_vtk_object Subroutine

private subroutine finalize_vtk_object(self)

Arguments

Type IntentOptional Attributes Name
type(type_vtk), intent(inout) :: self

Calls

proc~~finalize_vtk_object~~CallsGraph proc~finalize_vtk_object finalize_vtk_object interface~vtk_finalize vtk_finalize proc~finalize_vtk_object->interface~vtk_finalize interface~vtu_finalize vtu_finalize proc~finalize_vtk_object->interface~vtu_finalize

Source Code

    subroutine finalize_vtk_object(self)
        type(type_vtk), intent(inout) :: self

        if (c_associated(self%handle)) then

            select case (trim(adjustl(self%reader_type)))
            case ("vtk")
                call vtk_finalize(self%handle)
            case ("vtu")
                call vtu_finalize(self%handle)
            case default
                ! 知らないリーダータイプの場合は何もしない
            end select

            self%handle = c_null_ptr

        end if
    end subroutine finalize_vtk_object