Diffpack Documentation

---

              Search  

---

genfc.h

Go to the documentation of this file.

inline float sign (float a) 
{
  return float( (a > 0.) ? 1. : ( (a < 0.) ? -1. : 0.) ); 
}

inline double sign (double a) 
{
  return ( (a > 0.) ? 1. : ( (a < 0) ? -1. : 0.) ); 
}

inline int sign (int a) 
{
  return ( (a > 0)  ? 1  : ( (a < 0) ? -1  : 0 ) ); 
}


#if !(defined(HP_ACC_Cplusplus) || defined(HP10x_ACC_Cplusplus) || defined(gpp2_Cplusplus) )
inline float  abs      (float  r)          { return ( (r >= 0.0) ? r : -r ); }
#endif

inline float  sqr      (float  a)          { return a*a; }

#if !(defined(IBM_Cplusplus) || defined(HP_Cplusplus) || defined (HP_ACC_Cplusplus) || defined (HP10x_ACC_Cplusplus) || defined(gpp2_Cplusplus) || defined(SPARC_Cplusplus) )
inline double abs      (double  r)         { return ( (r >= 0.0) ? r : -r ); }
#endif


#if !(defined(HP_Cplusplus) || defined(HP10x_ACC_Cplusplus))
inline int    sqr      (int  a)            { return a*a; }
inline double sqr      (double  a)         { return a*a; }
#endif

#if (defined(HP_ACC_Cplusplus))
inline real sqrt (int a) { return sqrt(real(a)); }
#endif


inline int    roundInt (double a)    { a += sign(a)*0.5; return ( int (a) ); }
inline int    roundInt (float  a)    { a += sign(a)*0.5; return ( int (a) ); }

inline real   getReal  (const real& a)     { return a; }
inline int    char2int (char c)            { return int(c) - int('0'); }
inline char   int2char (int i)             { return char(48+i) ; }





extern char* oform (const char* fmt, ...);


extern /*const*/ String aform (const char* fmt, ...);


extern char* eform (const char* fmt, ...);


inline char* oform2 (char* s, int i)       { return oform(s,i); }
inline char* oform2 (char* s, float i)     { return oform(s,i); }
inline char* oform2 (char* s, double i)    { return oform(s,i); }


extern bool okFilename (const String& s);



extern void stripString (char* s);





void trigCoreDump ();



real gammap (real a, real x);  
real gammaq (real a, real x);  
real gamm   (real x);          


extern double  pow_eff  (double  a, double b); 
extern int     pow_int  (int  a, int i);
extern float   pow_int  (float   a, int i);
extern double  pow_int  (double  a, int i);




inline int    pow3     (int  a)            { return a*a*a; }
inline int    pow4     (int  a)            { int b = a*a; return b*b; }
inline float  pow3     (float   a)         { return a*a*a; }
inline float  pow4     (float   a)         { float b = a*a; return b*b; }
inline double pow3     (double  a)         { return a*a*a; }
inline double pow4     (double  a)         { double b = a*a; return b*b; }

/* these are defined in Complex.h:
inline Complex pow3    (Complex a)         { return a*a*a; }
inline Complex pow4    (Complex a)         { Complex b = a*a; return b*b; }
*/


extern bool eq (const char* s1, const char* s2);
extern bool eq (const String& s1, const char* s2);

extern bool eq (float  a, float  b, real tol = comparison_tolerance);
extern bool eq (double a, double b, real tol = comparison_tolerance);


inline bool eq (int    a, int    b, real)      { return getbool(a==b); }
inline bool eq (char   a, char   b, real)      { return getbool(a==b); }

inline bool eq (int    a, int    b)            { return getbool(a==b); }
inline bool eq (char   a, char   b)            { return getbool(a==b); }


extern bool lt (float  a, float  b, real tol = comparison_tolerance);
extern bool lt (double a, double b, real tol = comparison_tolerance);


inline bool lt (int    a, int    b, real)      { return getbool(a<b); }
inline bool lt (char   a, char   b, real)      { return getbool(a<b); }

inline bool lt (int    a, int    b)            { return getbool(a<b); }
inline bool lt (char   a, char   b)            { return getbool(a<b); }


extern bool le (float  a, float  b, real tol = comparison_tolerance);
extern bool le (double a, double b, real tol = comparison_tolerance);

inline bool le (int    a, int    b, real)      { return getbool(a<=b); }
inline bool le (char   a, char   b, real)      { return getbool(a<=b); }

inline bool le (int    a, int    b)            { return getbool(a<=b); }
inline bool le (char   a, char   b)            { return getbool(a<=b); }




#ifdef WIN32
# ifdef min
#   pragma message("Replacing the MFC macro \"min\" with Diffpack functions") 
#   undef min
# endif
# ifdef max
#   pragma message("Replacing the MFC macro \"max\" with Diffpack functions") 
#   undef max
# endif
#endif

/* Maximum and minimum routines */

inline int max(int arg1, int arg2)  
{ return (arg1 > arg2) ? arg1 : arg2; }

inline float max(float arg1, float arg2)
{ return (arg1 > arg2) ? arg1 : arg2; }

inline double max(double arg1, double arg2)
{ return (arg1 > arg2) ? arg1 : arg2; }

inline int min(int arg1, int arg2)
{ return (arg1 < arg2) ? arg1 : arg2; }

inline float min(float arg1, float arg2)
{ return (arg1 < arg2) ? arg1 : arg2; }

inline double min(double arg1, double arg2)
{ return (arg1 < arg2) ? arg1 : arg2; }

/* in Complex.h:
inline Complex min(Complex arg1, Complex arg2)
{ return  (arg1 < arg2) ? arg1 : arg2; }

inline Complex max(Complex arg1, Complex arg2)
{ return  (arg1 > arg2) ? arg1 : arg2; }
*/


extern void externalpackmsg (void*,...);  


extern "C" void MAIN__ ();  

---