Fortran模块

在Fortran语言中，模块（Module）是一种组织程序结构的工具。模块为程序员提供了一个将变量、常量、函数和子程序逻辑上分组的方式。每个模块可以看作程序的一个子部分，可以独立编译和链接。

创建Fortran模块

创建一个Fortran模块可以简单地创建一个扩展名为“.mod”的文件，并在其中定义变量和常量。例如，我们创建一个名为“my_module.mod”的文件，其中包含以下内容：

MODULE my_module
  IMPLICIT NONE
  INTEGER :: my_variable = 10
END MODULE my_module

上述代码定义了一个名为“my_module”的模块，其中包含一个类型为整数的变量“my_variable”，其值为“10”。

使用Fortran模块

要在程序中使用Fortran模块中定义的变量或常量，我们需要使用“USE”语句将模块包含进来。例如，在以下代码中，我们使用我们刚刚创建的“my_module”模块：

PROGRAM main
  USE my_module
  IMPLICIT NONE
  WRITE(*,*) my_variable
END PROGRAM main

当执行上述程序时，它将输出“10”。

定义函数和子程序

除了变量和常量之外，我们还可以在Fortran模块中定义函数和子程序。例如，以下代码演示了如何定义一个名为“my_function”的函数，该函数返回两个整数的和：

MODULE my_module
  IMPLICIT NONE
  INTEGER :: my_variable = 10

  CONTAINS

  FUNCTION my_function(a, b)
    INTEGER :: a, b
    INTEGER :: my_function
    my_function = a + b
  END FUNCTION my_function

END MODULE my_module

要在程序中使用此函数，我们需要在“USE”语句中指定该模块，并调用“my_function”。例如：

PROGRAM main
  USE my_module
  IMPLICIT NONE
  INTEGER :: x = 2, y = 3, z
  z = my_function(x, y)
  WRITE(*,*) z
END PROGRAM main

当执行上述程序时，它将输出“5”。

总结

Fortran模块是一种方便组织和管理程序结构的工具。模块可用于定义变量、常量、函数和子程序，并可单独编译和链接。在程序中使用模块时，我们使用“USE”语句包含模块，并调用其中定义的内容。