report_wrapper Subroutine

public subroutine report_wrapper(me, x, f, istat)

Arguments

Type IntentOptional Attributes Name
class(simulated_annealing_type), intent(inout) :: me
real(kind=wp), intent(in), dimension(:) :: x
real(kind=wp), intent(in) :: f
integer, intent(in) :: istat

Calls

proc~~report_wrapper~~CallsGraph proc~report_wrapper report_wrapper c_report_ptr c_report_ptr proc~report_wrapper->c_report_ptr

Source Code

    subroutine report_wrapper(me, x, f, istat)
        class(simulated_annealing_type), intent(inout) :: me
        real(wp), dimension(:), intent(in) :: x
        real(wp), intent(in) :: f
        integer, intent(in) :: istat

        select type (me)
         type is (c_sa_wrapper_type)
            call me%c_report_ptr(me%iproblem, x, size(x), f, istat)
        end select

    end subroutine report_wrapper