Fortran - Inquiry 函数
下表描述了 Inquiry 函数 −
| Sr.No | 函数 & 描述 |
|---|---|
| 1 | allocated(array) 这是一个逻辑函数，指示数组是否已分配。 |
| 2 | lbound(array, dim) 它返回数组的维数下限。 如果没有给出 dim （维度）作为参数，您将得到一个整数向量，如果包含 dim，您将获得具有您所要求的维度下限的整数值。 |
| 3 | shape(source) 它将数组源的形状返回为整数向量。 |
| 4 | size(array, dim) 它返回数组中元素的数量。 如果未给出dim，则包含dim时相关维度中的元素数量。 |
| 5 | ubound(array, dim) 返回维度上限。 |
示例
以下示例演示了这个概念 −
program arrayInquiry real, dimension(3,2) :: a a = reshape( (/5,9,6,10,8,12/), (/3,2/) ) Print *, lbound(a, dim = 1) Print *, ubound(a, dim = 1) Print *, shape(a) Print *, size(a,dim = 1) end program arrayInquiry
当上面的代码被编译并执行时，会产生以下结果 −
1 3 3 2 3
