Actual source code: matheq.c

      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: }