include_ne.f90 Source File

MIT
6 statements
Source File

Source Code

         IF (PRESENT(eps)) THEN
            eps2 = eps
         ELSE
            eps2 = EPSILON(x1)
         END IF
         res = ABS(x1 - x2) > eps2

include_ne.f90 Source File

Contents

Source Code

Contents

Source Code

Source Code