xref: /petsc/src/sys/utils/matheq.c (revision f97672e55eacc8688507b9471cd7ec2664d7f203)
1  #include <petscsys.h>
2 
3 /*@C
4     PetscEqualReal - Returns whether the two real values are equal.
5 
6     Input Parameters:
7 +     a - first real number
8 -     b - second real number
9 
10     Notes:
11     Equivalent to "a == b". Should be used to prevent compilers from
12     emitting floating point comparison warnings (e.g. GCC's -Wfloat-equal flag)
13     in PETSc header files or user code.
14 
15     Level: developer
16 @*/
17 PetscBool PetscEqualReal(PetscReal a, PetscReal b)
18 {
19   return (a == b) ? PETSC_TRUE : PETSC_FALSE;
20 }
21 
22 /*@C
23     PetscEqualScalar - Returns whether the two scalar values are equal.
24 
25     Input Parameters:
26 +     a - first scalar value
27 -     b - second scalar value
28 
29     Notes:
30     Equivalent to "a == b". Should be used to prevent compilers from
31     emitting floating point comparison warnings (e.g. GCC's -Wfloat-equal flag)
32     in PETSc header files or user code.
33 
34     Level: developer
35 @*/
36 PetscBool PetscEqualScalar(PetscScalar a, PetscScalar b)
37 {
38   return (a == b) ? PETSC_TRUE : PETSC_FALSE;
39 }
40