/[escript]/trunk/escript/src/UnaryFuncs.h
ViewVC logotype

Diff of /trunk/escript/src/UnaryFuncs.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1031 by phornby, Wed Mar 14 06:03:21 2007 UTC revision 1032 by phornby, Wed Mar 14 06:32:09 2007 UTC
# Line 55  double IEEE_Infy() Line 55  double IEEE_Infy()
55    
56    
57  double  double
58  acosh (const double x)  acosh_substitute (const double x)
59  {  {
60    if (x > 1.0 / SQRT_DBL_EPSILON)    if (x > 1.0 / SQRT_DBL_EPSILON)
61      {      {
# Line 84  acosh (const double x) Line 84  acosh (const double x)
84  //======================================================================  //======================================================================
85    
86  double  double
87  asinh (const double x)  asinh_substitute (const double x)
88  {  {
89    double a = fabs (x);    double a = fabs (x);
90    double s = (x < 0) ? -1 : 1;    double s = (x < 0) ? -1 : 1;
# Line 112  asinh (const double x) Line 112  asinh (const double x)
112  //======================================================================  //======================================================================
113    
114  double  double
115  atanh (const double x)  atanh_substitute (const double x)
116  {  {
117    double a = fabs (x);    double a = fabs (x);
118    double s = (x < 0) ? -1 : 1;    double s = (x < 0) ? -1 : 1;
# Line 150  fsign(double x) Line 150  fsign(double x)
150    }    }
151  }  }
152    
 /* substitute functions for _WIN32 */  
 inline  
 double  
 asinh_substitute(double x)  
 {  
     return 0;  
153  }  }
154    
 inline  
 double  
 acosh_substitute(double x)  
 {  
     return 0;  
 }  
   
 inline  
 double  
 atanh_substitute(double x)  
 {  
     return 0;  
 }  
   
   
 } // end of namespace  
155  #endif  #endif

Legend:
Removed from v.1031  
changed lines
  Added in v.1032

  ViewVC Help
Powered by ViewVC 1.1.26