如何在独立文件编写Fortran 90函数并实现正确调用？

拆分后程序无法运行，核心原因是编译链接时未包含函数文件，或者缺少显式接口声明导致类型匹配问题，以下是具体解决方法：

方法1：正确编译链接两个文件 #

你拆分后的代码本身语法没问题，但单独编译test.f90时，编译器找不到myfunc的实现，链接阶段会报"未定义引用"错误。需要将两个文件一起编译：

使用gfortran的编译命令： #

# 直接编译并链接两个文件生成可执行程序
gfortran test.f90 myfunc.f90 -o test

# 或者分步编译（适合大型项目）
gfortran -c myfunc.f90  # 生成myfunc.o目标文件
gfortran test.f90 myfunc.o -o test  # 链接目标文件和主程序

执行./test即可得到正确输出。

方法2：使用模块（推荐的现代Fortran写法） #

模块是Fortran中管理子程序、函数的标准方式，能自动导出函数接口，避免类型不匹配的隐式错误，代码更健壮：

修改myfunc.f90为模块形式： #

module myfunctions
    implicit none
contains
    function myfunc(x)
        implicit none
        real :: myfunc, x
        myfunc = x**2
    end function myfunc
end module myfunctions

修改test.f90引用模块： #

program test
    use myfunctions  ! 导入模块中的函数
    implicit none
    real :: x
    x = 5
    write(*,*) myfunc(x)
end program test

编译命令和方法1一致，将两个文件一起编译即可。

方法3：添加显式接口块（兼容旧写法） #

如果坚持使用external声明，建议添加显式接口块让编译器检查函数的参数和返回值类型，避免隐式接口导致的潜在错误：

修改test.f90： #

program test
    implicit none
    real :: x, myfunc
    
    ! 显式声明myfunc的接口
    interface
        function myfunc(x)
            real :: myfunc, x
        end function myfunc
    end interface
    
    x = 5
    write(*,*) myfunc(x)
end program test

编译时同样需要将test.f90和myfunc.f90一起编译。

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