如何在Fortran中实现分段功能？

Question

如何在Fortran中实现分段功能？例如step函数：

f(x) = 1   x>0
f(x) = 0   x<0

Answer 1

如果x和f是数组，我发现WHERE构造对于构建阶跃函数非常可读。

where (x > 0)
    f = 1
else
    f = 0
end where