外部程序

外部过程是在另一个程序单元外部定义的过程,或者由 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