changed floating point equality comparison inout.f90: RMFR, BPT