executeFun Function

function executeFun(myfun, x) result(y)

Arguments

Type IntentOptional AttributesName
procedure(fun_interf) :: myfun
real(kind=wp), intent(in), dimension(:):: x

Return Value real(kind=wp), dimension(size(x))

Called By

proc~~executefun~2~~CalledByGraph proc~executefun~2 executeFun proc~funwrapper~2 funWrapper proc~funwrapper~2->proc~executefun~2 program~main_ex main_ex program~main_ex->proc~funwrapper~2
Help

Source Code


Source Code

  function executeFun(myfun, x) result(y)
    real(wp), intent(in),   dimension(:)  :: x
    real(wp),             dimension(size(x))  :: y
    procedure(fun_interf)                 :: myfun

    y = myfun(x)

    return
  end function executeFun