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