SHAPE
copyright

green dotSHAPE

書式 SHAPE(SOURCE)
機能 配列またはスカラの形状を返す。
引数
SOURCE:任意の型の配列またはスカラとする。
空状態のポインタ,割り付けられていない割付け配列または 大きさ引き継ぎ配列であってはならない。
戻り値 型、種別パラメタは基本整数型で形状はSOURCEの 次元数に等しい1次元配列である。

green dotサンプルプログラム

配列a,bの形状を返す。
    REAL,DIMENSION(4,3)  :: a
    REAL,DIMENSION(-2:2) :: b
    INTEGER,DIMENSION(1) :: s
    INTEGER,DIMENSION(2) :: t
    s=SHAPE(a)               ! 配列aは(4,3)
    WRITE(*,*) s             ! s(1)=4,s(2)=3
    t=SHAPE(b)               ! 配列aは(-2:2)
    WRITE(*,*) t             ! t(1)=5  

実行例
4 3 5
line-end