Fortran是否支持类似Python的函数作为参数传递的语法？

Fortran确实支持直接传递函数标识符作为参数，不过语法和你设想的有所不同，需要通过接口声明来指定传入函数的签名。下面是具体的实现方法：

1. 基础方式：在子程序内部定义接口块 #

你设想的loop_funcs子程序可以修改为以下正确写法，核心是在子程序内部添加接口块来描述传入函数的参数和返回值类型：

subroutine loop_funcs(func, max_iter)
    implicit none
    integer, intent(in) :: max_iter
    integer :: i
    ! 声明传入函数的接口：接受一个integer输入，返回real值
    interface
        real function func(x)
            integer, intent(in) :: x
        end function func
    end interface

    do i = 1, max_iter
        print *, func(i)  ! 示例：调用函数并打印结果
    end do
end subroutine loop_funcs

接下来定义两个符合该接口的函数：

real function f(x)
    integer, intent(in) :: x
    f = real(x) * 2.0  ! 示例逻辑：输入整数乘以2
end function f

real function g(x)
    integer, intent(in) :: x
    g = real(x) ** 2  ! 示例逻辑：输入整数的平方
end function g

主程序调用时，需要用external声明函数为外部函数：

program main
    implicit none
    real :: f, g
    external :: f, g  ! 声明f、g为外部函数

    call loop_funcs(f, 5)  ! 传递函数f，循环5次
    call loop_funcs(g, 5)  ! 传递函数g，循环5次
end program main

运行这段代码会输出：

2.00000000    
  4.00000000    
  6.00000000    
  8.00000000    
  10.0000000    
  1.00000000    
  4.00000000    
  9.00000000    
  16.0000000    
  25.0000000    

2. 更简洁的方式：使用抽象接口（Fortran 2003+） #

如果需要在多个子程序中复用相同的函数接口，可以使用抽象接口来定义通用的函数签名，避免重复编写接口块：

! 定义抽象接口：描述接受integer输入、返回real值的函数
abstract interface
    real function RealIntegerFunc(x)
        integer, intent(in) :: x
    end function RealIntegerFunc
end interface

! 子程序使用抽象接口声明函数参数
subroutine loop_funcs(func, max_iter)
    implicit none
    procedure(RealIntegerFunc), intent(in) :: func  ! 指定参数符合抽象接口
    integer, intent(in) :: max_iter
    integer :: i

    do i = 1, max_iter
        print *, func(i)
    end do
end subroutine loop_funcs

主程序调用时，直接传递函数名即可（无需external声明，只要函数符合抽象接口）：

program main
    implicit none
    ! 引用抽象接口
    abstract interface
        real function RealIntegerFunc(x)
            integer, intent(in) :: x
        end function RealIntegerFunc
    end interface
    procedure(RealIntegerFunc) :: f, g  ! 声明f、g符合该抽象接口

    call loop_funcs(f, 5)
    call loop_funcs(g, 5)
end program main

! 函数定义和之前一致
real function f(x)
    integer, intent(in) :: x
    f = real(x) * 2.0
end function f

real function g(x)
    integer, intent(in) :: x
    g = real(x) ** 2
end function g

关键注意事项 #

• 传入的函数必须和声明的接口完全匹配：参数类型、个数、intent属性，以及返回值类型都要一致，否则会编译报错。
• 你设想的real, intent(in) :: function func写法不符合Fortran语法，必须通过接口块或抽象接口来声明函数参数的签名。

内容的提问来源于stack exchange，提问作者ethanmorton