Skip to content
Snippets Groups Projects
Commit 639905f6 authored by Andre Offringa's avatar Andre Offringa
Browse files

Bug 1491: fixing issues with std::abs vs. abs macro defined in Fortran

parent 53794a2a
No related branches found
No related tags found
No related merge requests found
...@@ -154,15 +154,15 @@ struct Namelist { ...@@ -154,15 +154,15 @@ struct Namelist {
}; };
typedef struct Namelist Namelist; typedef struct Namelist Namelist;
#define abs(x) ((x) >= 0 ? (x) : -(x)) //#define abs(x) ((x) >= 0 ? (x) : -(x))
#define dabs(x) (doublereal)abs(x) //#define dabs(x) (doublereal)abs(x)
#define min(a,b) ((a) <= (b) ? (a) : (b)) //#define min(a,b) ((a) <= (b) ? (a) : (b))
#define max(a,b) ((a) >= (b) ? (a) : (b)) //#define max(a,b) ((a) >= (b) ? (a) : (b))
#define dmin(a,b) (doublereal)min(a,b) //#define dmin(a,b) (doublereal)min(a,b)
#define dmax(a,b) (doublereal)max(a,b) //#define dmax(a,b) (doublereal)max(a,b)
#define bit_test(a,b) ((a) >> (b) & 1) //#define bit_test(a,b) ((a) >> (b) & 1)
#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) //#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) //#define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
/* procedure parameter types for -A and -C++ */ /* procedure parameter types for -A and -C++ */
......
...@@ -204,9 +204,9 @@ struct Angle { ...@@ -204,9 +204,9 @@ struct Angle {
{ {
std::stringstream s; std::stringstream s;
numl_t deg = valueRad * 180.0/M_PI; numl_t deg = valueRad * 180.0/M_PI;
if(abs(deg) > 3) if(std::abs(deg) > 3)
s << deg << " deg"; s << deg << " deg";
else if(abs(deg) > 3.0/60.0) else if(std::abs(deg) > 3.0/60.0)
s << (deg / 60.0) << " arcmin"; s << (deg / 60.0) << " arcmin";
else else
s << (deg / 3600.0) << " arcsec"; s << (deg / 3600.0) << " arcsec";
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment