Passing a generic procedure to a function as actual argument

Question

I am attempting to pass a generic procedure as an actual argument to a function:

module mymod
implicit none

interface func
  module procedure :: func1
  mod         


        

Answer 1

No, this is not allowed. Actually, you cannot even pass generic INTRINSIC functions as dummy arguments.

A standard compliant way is to use the right specific functions directly. With INTRINSIC functions you sometimes must write a wrapper for the right kind, when the specific doesn't have a standard name.

For example:

  call integrate(derf,0.,1.)

  contains
    function derf(x)
      real(dbl) :: derf
      real(dbl), intent(in) :: x
      derf = erf(x)
    end function
  end

is necessary if you want to pass the double precision real (or any other) version of erf() because there is no specific function available.