SIZE
copyright

green dotSIZE

書式 SIZE(ARRAY[,DIM])
機能 DIMを指定したときは指定した次元の寸法を求め、 省略したときは配列の要素の総数を求める。
引数
ARRAY:任意の型の配列
DIM :整数型スカラ(1≦DIM≦ARRAYの次元数)
戻り値 型、種別パラメタは基本整数型である。

green dotサンプルプログラム

配列の形状を返す。
    REAL,DIMENSION(4,3) :: a
    WRITE(*,*) SIZE(a)     ! 全体の要素数
    WRITE(*,*) SIZE(a,1)   ! 1次元の要素数 

実行例
12 4
line-end