ANY
copyright

green dotANY

書式 ANY(MASK[,DIM])
機能 論理型配列MASKの第DIM次元の要素の値が一つでも真であるかどうかを判定する。
ANY(MASK)の結果の値は、MASKのどれかの要素が真であるとき真とし、 どの要素も真でないときまたはMASKの大きさが0であるとき偽とする。
(1)MASKの次元数が1であるとき、ANY(MASK,DIM)の 値はANY(MASK)の値と同じとする。
(2)MASKの次元数が2以上であるとき、ANY(MASK,DIM) の要素(s1,s2,…, sDIM-1,sDIM+1,…,sn)の値は、 ANY(MASK(s1,s2,…, sDIM-1,:,sDIM+1,…,sn))と同じとする。
nはMASKの次元数とする。
引数
MASK :論理型配列
DIM
(省略可能)
:整数型スカラ(1≦DIM≦n)
戻り値 型、種別型パラメタは引数MASKと同じである。
DIMが省略されているかまたはMASKの次元数が1であるとき戻り値はスカラである。
それ以外は、n-1次元の配列で、その形状は(d1,d2, …,dDIM-1,dDIM+1,…,dn)である。
ここで(d1,d2,…,dn)は、MASKの形状とする。

green dotサンプルプログラム

2行3列の配列要素x,yから、xが対応する要素yより小さい要素が1つでも あるとき真を返す。
そうでないとき偽を返す。
    REAL,DIMENSION(2,3) :: x,y
    LOGICAL,DIMENSION(2,3) :: mask
    x(1,:)=(/1, 2, 4/); y(1,:)=(/2, 1, 3/) 
    x(2,:)=(/4, 5, 6/); y(2,:)=(/5, 3, 7/) 
    mask=(x

実行例
ANY
ANY(mask)は、1つでもTがあるときTである。
ANY(mask,1)は、各列を調べてT F Tになる。
    T    
    T F T
line-end