Inquiry

优质

小牛编辑

138浏览

2023-12-01

下表描述了查询功能 -

Sr.No	功能说明
1	allocated(array) 它是一个逻辑函数，指示是否分配了数组。
2	lbound(array, dim) 它返回数组的较低维度限制。如果没有将dim（维度）作为参数给出，则会得到一个整数向量，如果包含dim，则会得到具有该维度的较低维度的整数值。
3	shape(source) 它将数组源的形状作为整数向量返回。
4	size(array, dim) 它返回数组中的元素数。如果没有给出暗淡，则包括相关维度中的元素数量（如果暗淡）。
5	ubound(array, dim) 它返回上限尺寸。

例子 (Example)

以下示例演示了该概念 -

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

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