destroy_c Subroutine

public subroutine destroy_c(ipointer) bind(C, name="destroy_c")

destroy a radbelt_type from C

Arguments

Type IntentOptional Attributes Name
integer(kind=c_intptr_t), intent(in) :: ipointer

Calls

proc~~destroy_c~~CallsGraph proc~destroy_c radbelt_c_module::destroy_c proc~int_pointer_to_f_pointer radbelt_c_module::int_pointer_to_f_pointer proc~destroy_c->proc~int_pointer_to_f_pointer

Source Code

    subroutine destroy_c(ipointer) bind(C, name="destroy_c")

        integer(c_intptr_t), intent(in) :: ipointer
        type(radbelt_type), pointer :: p

        call int_pointer_to_f_pointer(ipointer, p)
        if (associated(p)) deallocate (p)

    end subroutine destroy_c