Fortran中UBOUND

UBOUND是Fortran中的一个函数，用于返回一个数组的指定维度的上界。

语法：

UBOUND(array, dim)

参数说明：

array：要查询上界的数组。

dim：要查询的维度（整数类型）。

返回值：

一个整数，表示指定维度的上界。

示例：

下面的示例演示了如何使用UBOUND函数来获取一个数组的维度。

program ubound_example
integer, dimension(3, 4) :: a
integer :: i, j, n

a = reshape((/ (i+j, i=1,3), j=1,4 /), shape(a))

do i = 1, 2
n = ubound(a, i)
print *, "Dimension ", i, " has upper bound ", n
end do

end program ubound_example

输出：

Dimension 1 has upper bound 3
Dimension 2 has upper bound 4

在上面的示例中，我们创建了一个3x4的整数数组，并使用reshape函数将其初始化为一个按列优先的一维数组。然后，我们使用do循环遍历数组的前两个维度，并使用UBOUND函数获取它们的上界。最后，我们打印出每个维度的上界。