fcn_parallel_output_wrapper Subroutine

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

Arguments

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

Calls

proc~~fcn_parallel_output_wrapper~~CallsGraph proc~fcn_parallel_output_wrapper fcn_parallel_output_wrapper c_fcn_parallel_output_ptr c_fcn_parallel_output_ptr proc~fcn_parallel_output_wrapper->c_fcn_parallel_output_ptr

Source Code

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

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

    end subroutine fcn_parallel_output_wrapper