ALLOCATED |
書式 | ALLOCATED(ARRAY) |
機能 |
割付け配列が現在割り付けられているかどうかを論理型変数に返す。 ARRAYには、割付け配列を指定し、現在割り付けられているとき真の値を返す。 配列が割り付けられていないとき偽の値を返す。 配列の割り付け状態が不定であるときの結果は、規定しない。 |
引数 | ARRAY:任意の型で割付け配列 |
戻り値 | 型、種別型パラメタは、基本論理型で、形状はスカラである。 |
INTEGER,DIMENSION(:),ALLOCATABLE :: a LOGICAL :: flag flag=ALLOCATED(a); ! 配列は割り付けられているか? WRITE(*,*) flag ! 割付けられていない ALLOCATE(a(10)) ! 配列の割り付け flag=ALLOCATED(a); ! 割り付けられている WRITE(*,*) flag
実行例 |