包含声明

我不明白的重要性CONTAINSFortran 90 中的声明

例如

PROGRAM BLABLA

IMPLICIT NONE

INTEGER :: i,j,k

i = 1; j = 1;k =1

PRINT *, i,j,k

CALL ABC(i,j,k)

PRINT *, i,j,k

CONTAINS

    SUBROUTINE ABC(r,s,t)

    IMPLICIT NONE

    INTEGER, INTENT(IN) :: r,s
    INTEGER, INTENT(OUT) :: t

    t = r + s

   END SUBROUTINE ABC
END PROGRAM BLABLA

一种是在主程序之外定义子例程。据我所知，对于函数，需要指定函数的类型，但对于子例程则不需要。我有兴趣了解这样做是否有任何其他注意事项？

PROGRAM BLABLA

IMPLICIT NONE

INTEGER :: i,j,k

i = 1; j = 1;k =1

PRINT *, i,j,k

CALL ABC(i,j,k)

PRINT *, i,j,k

END PROGRAM BLABLA

SUBROUTINE ABC(r,s,t)

IMPLICIT NONE

INTEGER, INTENT(IN) :: r,s
INTEGER, INTENT(OUT) :: t

t = r + s

END SUBROUTINE ABC

在您的第一个和第二个版本中尝试更改行

CALL ABC(i,j,k)

to

CALL ABC(i,j)

看看会发生什么，首先是在编译时，其次是在运行时。

当您完成此操作并报告您的发现后，我可以将其转变为正确的答案。

好的，这就是答案，其中大部分您已经找到了：

在过去，在 Fortran 90 之前，FORTRAN（当时每个人都喊这个名字）程序在单独的“单元”中编译是很常见的（现在仍然如此）。在您的第二个版本中，程序和子例程位于单独的单元中并单独编译。编译器没有可用的信息来检查对子例程的调用是否与子例程签名匹配——这留给程序员来检查。错误地调用子例程，几乎任何事情都可能发生——如果你幸运的话，程序崩溃或产生明显错误的结果，如果你不幸，它会产生不是明显错误但仍然错误的结果。

如果将子程序的源代码包含在程序单元的范围内，并使用contains部分，与程序的第一个版本一样，编译器将为子例程创建一个接口，并可以检查对子例程的任何调用在形式上是否正确。因此您发现编译失败。

让编译器生成子例程接口的另一种方法是将它们放入模块中，并且这些方法也适用于函数use程序中的模块。您会在其他 Q 和 As 中找到许多如何执行此操作的示例。

将子例程放入模块中与将其包含在模块中并不完全相同contains部分。在里面contains子例程可以使用在程序中声明的变量，而无需将其传递到子例程的参数列表。这被认为是糟糕的编程实践，但你确实会在野外遇到它。