fortran中arr = [1, 2, 3]，用函数计算维度

Fortran 中没有内置的数组数据类型，因此需要使用数组库（如 `ISO_FORTRAN_ENV` 或 `Fortran 90`）来处理数组。以下是使用 `ISO_FORTRAN_ENV` 库计算一个一维数组的维度的示例代码：

use ISO_FORTRAN_ENV

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

dim = size(arr)

print *, dim  ! 输出 3 

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

相关问题

Fortran中UBOUND

UBOUND是Fortran中的一个内置函数，用于返回一个数组在指定维度上的上限索引。

语法：

UBOUND(array, dim)

参数说明：

- array：要查询上限索引的数组。
- dim：要查询的维度。

返回值：指定维度上的上限索引。

示例：

REAL :: arr(3,4)
PRINT *, UBOUND(arr, 1) ! 输出：3
PRINT *, UBOUND(arr, 2) ! 输出：4

上例中，数组arr有3行4列，使用UBOUND函数查询第1维度（即行数）的上限索引为3，查询第2维度（即列数）的上限索引为4。

Fortran中的size

在Fortran中，size函数用于获取数组的大小。它可以用于一维、二维或多维数组。size函数的语法如下：

size(array, [dim])

其中，array是要获取大小的数组，dim是可选参数，用于指定要获取的维度。如果省略dim，则返回整个数组的元素个数。

例如，下面的代码演示了如何使用size函数获取数组的大小：

program size_demo
  implicit none
  integer :: arr(3,4)
  print *, "数组元素个数：", size(arr) ! 返回12，即3*4
  print *, "第1维大小：", size(arr, 1) ! 返回3
  print *, "第2维大小：", size(arr, 2) ! 返回4
end program size_demo

注意，size函数返回的大小是整数类型。如果数组的大小超过了整数能表示的范围，则会出现错误。另外，在一些Fortran实现中，size函数的参数顺序可能与上面的例子不同，需要根据具体实现来确定。