外部程序
外部过程是在另一个程序单元外部定义的过程,或者由 Fortran 之外的其他过程定义的过程。
包含在文件中的函数
integer function f()
implicit none
end function f
是一个外部功能。
对于外部过程,可以使用接口块声明它们的存在(给定一个显式接口)
program prog
implicit none
interface
integer function f()
end interface
end program prog
或者通过声明语句来提供隐式接口
program prog
implicit none
integer, external::f
end program prog
甚至
program prog
implicit none
integer f
external f
end program prog
external
属性不是必需的:
program prog
implicit none
integer i
integer f
i = f() ! f is now an external function
end program prog