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