fortran中size怎么用

在 Fortran 中，`size` 函数用于获取一个数组的大小（即元素个数）。`size` 函数有两种用法：

1. 获取一维数组的大小：

   use ISO_FORTRAN_ENV

   integer, dimension(3) :: arr = [1, 2, 3]
   integer :: arr_size

   arr_size = size(arr)

   print *, arr_size  ! 输出 3 

在上面的示例代码中，我们首先使用 `use ISO_FORTRAN_ENV` 语句导入了 `ISO_FORTRAN_ENV` 库。然后，我们声明了一个名为 `arr` 的一维整数数组，包含元素 `[1, 2, 3]`。接下来，我们使用 `size` 函数获取 `arr` 数组的大小（即元素个数），并将其存储在变量 `arr_size` 中。最后，我们将 `arr_size` 的值打印到控制台上，输出为 3，表示 `arr` 数组中有 3 个元素。

2. 获取多维数组的大小：

   use ISO_FORTRAN_ENV

   integer, dimension(2, 3) :: arr = reshape([1, 2, 3, 4, 5, 6], [2, 3])
   integer :: num_rows, num_cols

   num_rows = size(arr, 1)
   num_cols = size(arr, 2)

   print *, num_rows, num_cols  ! 输出 2 3 

在上面的示例代码中，我们首先使用 `use ISO_FORTRAN_ENV` 语句导入了 `ISO_FORTRAN_ENV` 库。然后，我们声明了一个名为 `arr` 的二维整数数组，包含元素 `[1, 2, 3, 4, 5, 6]`，通过 `reshape` 函数将其变形成 2 行 3 列的数组。接下来，我们使用 `size` 函数分别获取 `arr` 数组的行数和列数，并将其存储在变量 `num_rows` 和 `num_cols` 中。最后，我们将 `num_rows` 和 `num_cols` 的值打印到控制台上，输出为 2 和 3，表示 `arr` 数组有 2 行 3 列。