src/module/equal [ Modules ]

[ Top ] [ Modules ]

NAME

  Module equal

USAGE

  use equal

DESCRIPTION

  This module is used to compare two objects

OUTPUT

  This module exports one function:
  * equal_real -- to compare two reals

USES

  * precision (src/module/preci_double.f90)

src/module/equal/equal_real [ Functions ]

[ Top ] [ Functions ]

NAME

  Function equal_real

USAGE

  logical = equal_real(xa,xb)

DESCRIPTION

  This function compares two real (of same kind) by computing their 
  difference and compares it to epsilon (of the same kind)
  true if | xa - xb | <= epsilon, false otherwise

INPUTS

  * xa -- a real of type ki
  * xb -- a real of type ki

SIDE EFFECTS

  No side effect

RETURN VALUE

  It returns a logical

EXAMPLE