Fortran - 查询函数

简述

下表描述了查询功能 -

序号	功能说明
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

编译并执行上述代码时，会产生以下结果 -