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