位置:首頁 > 高級語言 > Fortran教學 > Fortran查詢函數

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