destroy_simulated_annealing Subroutine

public subroutine destroy_simulated_annealing(iproblem) bind(C, name="destroy_simulated_annealing")

destroy a simulated_annealing_type from C

Arguments

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

Calls

proc~~destroy_simulated_annealing~~CallsGraph proc~destroy_simulated_annealing destroy_simulated_annealing proc~destroy_sa simulated_annealing_type%destroy_sa proc~destroy_simulated_annealing->proc~destroy_sa proc~int_pointer_to_f_pointer int_pointer_to_f_pointer proc~destroy_simulated_annealing->proc~int_pointer_to_f_pointer

Source Code

    subroutine destroy_simulated_annealing(iproblem) &
      bind(C, name="destroy_simulated_annealing")

        integer(c_intptr_t), intent(in), value :: iproblem

        type(c_sa_wrapper_type), pointer :: wrapper

        call int_pointer_to_f_pointer(iproblem, wrapper)

        if (associated(wrapper)) then
         call wrapper%destroy()
            deallocate (wrapper)
        end if

    end subroutine destroy_simulated_annealing