Как я могу реализовать кусочную функцию в Fortran?

Question

Как я могу реализовать кусочную функцию в Фортране?Например, функция шага:

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