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