＜WHERE Example Program＞
Program where_statement_example
Real a(2,2)
a = Reshape( (/-1.,2.,3.,4./), (/2,2/))
Where (a<0.) a = 0.0
Print *, a(1,:)
Print *, a(2,:)
End Program
■ Execution Results
0.0000000 3.0000000 2.0000000 4.0000000
Program where_statement_example
Real a(2,2)
a = Reshape( (/-1.,2.,3.,4./), (/2,2/))
Where (a<0.) a = 0.0
Print *, a(1,:)
Print *, a(2,:)
End Program
0.0000000 3.0000000 2.0000000 4.0000000