Fortran95如何连接主程序和子程序？

Question

如何将外部子程序链接到 Fortran 中的主程序？ 虽然，我从题为《Fortran 90 for science and Engineers》的书中得到了答案 如下：

还要注意，由于外部子程序位于单独的 来自主程序的文件，必须单独编译。在下面 FTN90 一种中间类型的机器码，称为可重定位二进制 在扩展名为 .OBJ 的文件中生成。这反过来必须是 通过称为 a 的特殊程序与调用程序链接 链接器，最终生成主程序的 .EXE 版本。您的 编译器手册将详细说明如何执行此操作。一旦是 最后调试，外部子程序永远不需要重新编译， 只链接。这可以防止您浪费时间编译它 和以上，如果它是一个内部子程序就是这种情况。

无论如何，我没有找到任何关于如何链接主程序和子程序的手册。我使用 Silverfrost (Plato) 来调试和运行程序。另外，我在系统上安装了“Intel Parallel Studio XE 2011”。

Answer 1

暂时我将假设外部子程序（函数或子程序）与主程序位于同一目录中。在 fortran77 或更早的时代，您只需从主程序调用子例程，并将它们与主程序和子程序中都存在的 COMMON 语句链接。然而，现在首选的方法是将外部子程序写入模块并使用 USE 语句链接模块。例如，让我们组成一个虚构的子程序，它读入一个值“x”并对其进行处理，以将“y”和“z”的值反馈给主程序。程序和模块可能类似于下面的示例。本质上，Fortran 尝试变得有点面向对象的模块，因为它确保数据被封装到程序中并且不能全局访问，除非程序员希望它是全局的。如果子程序仅由模块中的其他程序调用，程序员将子程序声明为 PRIVATE 很重要，如果它由主程序调用，则声明为 PUBLIC。此外，为了确保正确使用数据，如果变量仅被送入例程、例程之外或将被调用，则应将其声明为 INTENT(IN)、INTENT(OUT) 或 INTENT(INOUT)他例行公事，工作并反馈到主程序。我希望这会有所帮助，如果不能随意提出任何其他问题。此外，当用外部子程序编译主程序时，按子程序的顺序调用它们。这意味着不要使用 ifort main.f90 module.f90，而是必须输入 fort module.f90 main.f90 假设您使用的是 intel 编译器，如果没有，则将 fort 替换为编译器使用的任何命令。

   PROGRAM MAIN
   USE Test
   IMPLICIT NONE
   REAL :: X,Y,Z
   X = 5.0
   WRITE(*,*) X,Y,Z
   END PROGRAM MAIN

   MODULE Test
   PUBLIC :: Subroutine_Example
   CONTAINS 

   SUBROUTINE Subroutine_Example(X,Y,Z)
   REAL, INTENT(IN) :: X
   REAL, INTENT(OUT :: Y,Z
   Y = X + 34.6
   Z = X - 1.4
   END Subroutine_Example
   END MODULE Test