Well if x and z are floating point (real) numbers then you *do not*
want to compare them using .EQ. (OR ==).
Let eps be a real constant set to some small tolerance.
if abs(z-x)<eps then
y=1
else
y=0
end if
You may wish to express this as an indicator function which returns 0
or 1.
* Yes there are other fancy ways to do this but they remind me of "C".
*
-- Elliot
or, in Fortran,
if (abs(z-x)<epsilon(x)) then
y=1
else
y=0
end if
Regards,
Mike Metcalf