Fortran 90/95 中的函数接口(interface)

Question

我有一个程序调用一个子程序，然后调用一个函数。 Fortran 对函数类型声明的要求让我有些困惑。我已经在函数中声明了类型(即真正的函数 foo(...))，无论我是否在子例程声明部分声明该函数，程序都可以运行。

我的具体问题是，不在子例程中声明函数是否会导致将来出现意外行为？我也看到了接口(interface) block ，想知道这是否也有必要。

更一般地说，我也对 Fortran 在“幕后”所做的事情以及为什么声明函数或使用接口(interface) block 或多或少很重要感兴趣。

编辑:一些示例代码:

program foo
  real :: a,b,c

  call bar(a,b,c)
end program foo

subroutine bar(a,b,c)
  real :: a,b,c

  c = baz(a,b)
end subroutine bar

real function baz(a,b)
  real :: a,b

  baz = a*b
end function baz

Answer 1

最好的方法是在函数中声明函数，然后将函数放在模块中。然后从调用该函数的任何主程序或过程(子例程或函数)中“使用”该函数。这样调用程序或过程将知道函数的接口(interface)并生成正确的代码。在 Fortran 术语中，接口(interface)是显式的。如果该函数是从同一模块中的过程调用的，则您不必“使用”它，因为模块中的过程相互了解。参见 Computing the cross product of two vectors in Fortran 90举个例子。通常不需要使用接口(interface)，除非您正在调用缺少源代码的过程，或者使用另一种语言(例如，通过 ISO C 绑定(bind)访问的 C)的过程。