1: #include <petscsys.h>

  3: /*@C
  4:   PetscEqualReal - Returns whether the two `PetscReal` variables are equal

  6:   Input Parameters:
  7: + a - first real number
  8: - b - second real number

 10:   Level: developer

 12:   Note:
 13:   Equivalent to "a == b". Should be used to prevent compilers from
 14:   emitting floating point comparison warnings (e.g. GCC's -Wfloat-equal flag)
 15:   in PETSc header files or user code.

 17: .seealso: `PetscIsCloseAtTol()`, `PetscEqualScalar()`
 18: @*/
 19: PetscBool PetscEqualReal(PetscReal a, PetscReal b)
 20: {
 21:   return (a == b) ? PETSC_TRUE : PETSC_FALSE;
 22: }

 24: /*@C
 25:   PetscEqualScalar - Returns whether the two `PetscScalar` values are equal.

 27:   Input Parameters:
 28: + a - first scalar value
 29: - b - second scalar value

 31:   Level: developer

 33:   Note:
 34:   Equivalent to "a == b". Should be used to prevent compilers from
 35:   emitting floating point comparison warnings (e.g. GCC's -Wfloat-equal flag)
 36:   in PETSc header files or user code.

 38: .seealso: `PetscIsCloseAtTol()`, `PetscEqualReal()`
 39: @*/
 40: PetscBool PetscEqualScalar(PetscScalar a, PetscScalar b)
 41: {
 42:   return (a == b) ? PETSC_TRUE : PETSC_FALSE;
 43: }