子程序能作为参数传递吗？

vvt

方法1（假设 fcn 返回 real 类型）：

[Fortran] 纯文本查看 复制代码

Subroutine Imder( fcn , ... )
Real , external :: fcn
y = fcn(x)

方法2：

[Fortran] 纯文本查看 复制代码

Subroutine Imder( fcn , ... )
Interface
  real function fcn( x )
    real :: x
  end function fcn
End Interface
y = fcn(x)