重载Fortran中的子例程和函数

Question

是否可以使用接口块重载子例程和功能？ 因此，可以通过函数或子例程调用过程。 例如：

...
interface TestRoutine
      module procedure TestRoutine_fun
      module procedure TestRoutine_sub
end interface TestRoutine

Contains

function TestRoutine_fun(....) result(...)
...
end function TestRoutine_fun

subroutine TestRoutine_sub(...)
...
end subroutine TestRoutine_sub
...

当我尝试编译与此类似的代码时，出现错误：错误：在（1）的通用接口'TestRoutine'中，过程必须是全部SUBROUTINES或所有FUNCTION。 提前致谢！

Answer 1

不，不是标准语言。 该错误信息正确地解释了这种情况。

Answer 2

您不能使用子例程重载函数。 但是，您可以做的是编写一个调用该函数的包装程序（或者反过来）。 这样，您至少可以保存一些代码。