src/module/equal [ 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 ]
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