changed floating point equality comparison inout.f90: RMB, EFFY