foo_wrap Function

private function foo_wrap(x) result(y)

Wrapper function to use the objective function with the Nelder-Mead algorithm

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	x(:)

Return Value real(kind=pr)