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

上一篇: Fortran還原功能 下一篇: Fortran構造函數