fcn_parallel_input_wrapper Subroutine

public subroutine fcn_parallel_input_wrapper(me, x)

Arguments

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

Calls

proc~~fcn_parallel_input_wrapper~~CallsGraph proc~fcn_parallel_input_wrapper fcn_parallel_input_wrapper c_fcn_parallel_input_ptr c_fcn_parallel_input_ptr proc~fcn_parallel_input_wrapper->c_fcn_parallel_input_ptr

Source Code

    subroutine fcn_parallel_input_wrapper(me, x)
        class(simulated_annealing_type), intent(inout) :: me
        real(wp), dimension(:, :), intent(in) :: x

        select type (me)
         type is (c_sa_wrapper_type)
            ! Pass dimensions matching Fortran x(n, n_inputs) so C interprets as x[n_inputs][n]
            call me%c_fcn_parallel_input_ptr(me%iproblem, x, size(x, 1), size(x, 2))
        end select

    end subroutine fcn_parallel_input_wrapper