＜ELSEWHERE Example Program＞

Program elsewhere_example
  Real a(2,2)
  a = Reshape( (/-1.,2.,3.,4./), (/2,2/) )
  Where (a<0.)
    a = 0.0
  ElseWhere (a>3.)
    a = 1.0
  Elsewhere
    a = 10*a
  End Where
  Print 1, a(1,1),a(1,2)
  Print 1, a(2,1),a(2,2)
1 Format(2F10.4)
End Program

■ Execution Results

    0.0000   30.0000
   20.0000    1.0000