WHERE文 ELSEWHERE文 END WHERE文 |
WHERE (論理配列式)配列変数 = 配列式 |
[例] |
WHERE (a /= 0) a=a/10.0
WHERE (論理配列式) 配列代入文1 ELSEWHERE 配列代入文2 END WHERE |
[例] |
REAL,DIMENSION(5) :: x=(/1.0,-1.5,2.0,3.0,-5.0/) REAL,DIMENSION(5) :: y INTRINSIC SQRT,COS WHERE (x <= 0) y=SQRT(x) ELSEWHERE y=COS(x) END WHERE