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 {
};
typedef struct Namelist Namelist;
#define abs(x) ((x) >= 0 ? (x) : -(x))
#define dabs(x) (doublereal)abs(x)
#define min(a,b) ((a) <= (b) ? (a) : (b))
#define max(a,b) ((a) >= (b) ? (a) : (b))
#define dmin(a,b) (doublereal)min(a,b)
#define dmax(a,b) (doublereal)max(a,b)
#define bit_test(a,b) ((a) >> (b) & 1)
#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
#define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
//#define abs(x) ((x) >= 0 ? (x) : -(x))
//#define dabs(x) (doublereal)abs(x)
//#define min(a,b) ((a) <= (b) ? (a) : (b))
//#define max(a,b) ((a) >= (b) ? (a) : (b))
//#define dmin(a,b) (doublereal)min(a,b)
//#define dmax(a,b) (doublereal)max(a,b)
//#define bit_test(a,b) ((a) >> (b) & 1)
//#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
//#define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
/* procedure parameter types for -A and -C++ */
......
......@@ -204,9 +204,9 @@ struct Angle {
{
std::stringstream s;
numl_t deg = valueRad * 180.0/M_PI;
if(abs(deg) > 3)
if(std::abs(deg) > 3)
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";
else
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