Fortran - 查询函数

下表描述了查询功能 -

先生编号	功能说明
1	分配（数组）它是一个逻辑函数，指示数组是否已分配。
2	lbound（数组，暗淡）它返回数组的维数下限。如果没有给出 dim （维度）作为参数，您将得到一个整数向量，如果包含 dim，您将获得具有您所要求的维度下限的整数值。
3	形状（来源）它将数组源的形状返回为整数向量。
4	大小（数组，暗淡）它返回数组中的元素数量。如果未给出dim，则包含dim时相关维度中的元素数量。
5	ubound（数组，暗淡）它返回尺寸上限。

例子

下面的例子演示了这个概念 -

现场演示

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

当上面的代码被编译并执行时，它会产生以下结果 -

fortran_arrays.htm