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
    
    编译并执行上述代码时,会产生以下结果 -
    
    1
    3
    3 2
    3