位置:首页 > 高级语言 > Fortran在线教程 > Fortran查询函数

Fortran查询函数

下表描述了查询功能:

函数 描述
allocated(array) 它是一个逻辑功能,它指示该阵列被分配。
lbound(array, dim) 它返回的数组的维数较低的限制。如果dim(尺寸)不给出一个参数,会得到一个整数向量,如果dim计算在内,得到的整数值正好具有较低维数的限制。
shape(source) 它返回一个阵列源为一个整数向量的形状。
size(array, dim) 它返回在数组元素的数目。如果dim没有给出,并在相关维数的元素个数,如果dim也包括在内。
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