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