multithreading - Fortran 基本函数与基本子例程

Question

Fortan 允许基本子程序具有intent(inout) 和intent(out) 参数，但基本函数只允许intent(in)。

这是为什么？它只是一种风格约定，还是在调用函数和调用子例程方面有一些普遍的不同？

换句话说，

Elemental Integer Function FOO(i)
  Integer, intent(in) :: i
    ...
  FOO=something
End Function

和

Elemental Subroutine FOO(i, v)
  Integer, intent(in)  :: i
  Integer, intent(out) :: v
    ...
  v=something
End Subroutine

——这些 FOO 的实现是否同样有效？

Answer 1

没有至少一个标记为 intent(out) 的参数的基本子例程是没有意义的。或 intent(inout) ，因为您必须以某种方式传递结果。一个函数有它的返回值，一个子程序必须使用它的参数。在 Fortran 2008 AFAIK 中，基本程序不一定是纯的，但很难想象一个有用的基本子程序仅通过其副作用。