创建、使用和销毁二维数组 - Fortran

在Fortran语言中，可以使用二维数组来表示一个表格或矩阵。在本文中，我们将介绍创建、使用和销毁二维数组的方法。

创建二维数组

要创建一个二维数组，您可以使用以下语法：

DIMENSION array_name(n,m)

其中，array_name 是数组的名称，n 和 m 是数组的大小。例如，以下代码创建了一个3行4列的数组：

INTEGER, DIMENSION(3,4) :: my_array

您还可以在定义和分配数组的同时进行初始化。例如，以下代码将创建一个初始化为1的3行4列的数组：

INTEGER, DIMENSION(3,4) :: my_array = 1

使用二维数组

要访问二维数组中的元素，您可以使用以下语法：

array_name(i,j)

其中，i 和 j 是元素的索引。例如，以下代码将输出数组 my_array 的第2行第3列的元素：

WRITE(*,*) my_array(2,3)

您还可以使用循环来遍历二维数组中的所有元素。例如，以下代码将遍历并输出数组 my_array 中的所有元素：

DO i = 1, 3
   DO j = 1, 4
      WRITE(*,*) my_array(i,j)
   END DO
END DO

销毁二维数组

在Fortran中，数组的内存是自动管理的，因此在使用完毕后无需手动销毁数组。

结论

通过本文，您应该已经了解了如何创建、使用和销毁二维数组。希望这些知识能够帮助您编写更好的Fortran代码。