funWrapper Subroutine

subroutine funWrapper(myfun, x, y)

Arguments

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

Calls

proc~~funwrapper~2~~CallsGraph proc~funwrapper~2 funWrapper proc~executefun~2 executeFun proc~funwrapper~2->proc~executefun~2
Help

Called By

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

Source Code


Source Code

  subroutine funWrapper(myfun, x, y)
    real(wp), intent(in),   dimension(:)  :: x
    real(wp), intent(out),  dimension(:)  :: y
    procedure(fun_interf)                 :: myfun

    y = executeFun(myfun, x)

    return
  end subroutine funWrapper