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

當上述程式碼被編譯和執行時，它產生了以下結果：