| 1 | // This may look like C code, but it is really -*- C++ -*-
 | 
|---|
| 2 | // g++ (up to 2.95.1) doesn't handle these inline template
 | 
|---|
| 3 | // functions correctly - with math functions defined in math.h
 | 
|---|
| 4 | //                     R. Ansari, C.Magneville   04/2000
 | 
|---|
| 5 | 
 | 
|---|
| 6 | // --- This file should not be included directly -----
 | 
|---|
| 7 | //   conditional include only in matharr.h
 | 
|---|
| 8 | 
 | 
|---|
| 9 | #ifndef GCCARRMATHPB_SEEN
 | 
|---|
| 10 | #define GCCARRMATHPB_SEEN
 | 
|---|
| 11 | 
 | 
|---|
| 12 | inline double _Sqrt_(double x) { return(sqrt(x)) ; } 
 | 
|---|
| 13 | inline double _Fabs_(double x) { return(fabs(x)) ; } 
 | 
|---|
| 14 | inline double _Sin_(double x) { return(sin(x)) ; } 
 | 
|---|
| 15 | inline double _Cos_(double x) { return(cos(x)) ; } 
 | 
|---|
| 16 | inline double _Tan_(double x) { return(tan(x)) ; } 
 | 
|---|
| 17 | inline double _aSin_(double x) { return(asin(x)) ; } 
 | 
|---|
| 18 | inline double _aCos_(double x) { return(acos(x)) ; } 
 | 
|---|
| 19 | inline double _aTan_(double x) { return(atan(x)) ; } 
 | 
|---|
| 20 | inline double _Exp_(double x) { return(exp(x)) ; } 
 | 
|---|
| 21 | inline double _Log_(double x) { return(log(x)) ; } 
 | 
|---|
| 22 | inline double _Log10_(double x) { return(log10(x)) ; } 
 | 
|---|
| 23 | 
 | 
|---|
| 24 | // ----- Instantiation pour r_8
 | 
|---|
| 25 | inline TArray<r_8> fabs(const TArray<r_8>& a)
 | 
|---|
| 26 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Fabs_) ); }
 | 
|---|
| 27 | 
 | 
|---|
| 28 | inline TArray<r_8> sqrt(const TArray<r_8>& a)
 | 
|---|
| 29 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Sqrt_) ); }
 | 
|---|
| 30 | 
 | 
|---|
| 31 | inline TArray<r_8> sin(const TArray<r_8>& a)
 | 
|---|
| 32 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Sin_) ); }
 | 
|---|
| 33 | 
 | 
|---|
| 34 | inline TArray<r_8> cos(const TArray<r_8>& a)
 | 
|---|
| 35 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Cos_) ); }
 | 
|---|
| 36 | 
 | 
|---|
| 37 | inline TArray<r_8> tan(const TArray<r_8>& a)
 | 
|---|
| 38 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Tan_) ); }
 | 
|---|
| 39 | 
 | 
|---|
| 40 | inline TArray<r_8> asin(const TArray<r_8>& a)
 | 
|---|
| 41 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _aSin_) ); }
 | 
|---|
| 42 | 
 | 
|---|
| 43 | inline TArray<r_8> acos(const TArray<r_8>& a)
 | 
|---|
| 44 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _aCos_) ); }
 | 
|---|
| 45 | 
 | 
|---|
| 46 | inline TArray<r_8> atan(const TArray<r_8>& a)
 | 
|---|
| 47 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _aTan_) ); }
 | 
|---|
| 48 | 
 | 
|---|
| 49 | inline TArray<r_8> exp(const TArray<r_8>& a)
 | 
|---|
| 50 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Exp_) ); }
 | 
|---|
| 51 | 
 | 
|---|
| 52 | inline TArray<r_8> log(const TArray<r_8>& a)
 | 
|---|
| 53 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Log_) ); }
 | 
|---|
| 54 | 
 | 
|---|
| 55 | inline TArray<r_8> log10(const TArray<r_8>& a)
 | 
|---|
| 56 |   { MathArray<r_8> ma;   return( ma.ApplyFunction(a, _Log10_) ); }
 | 
|---|
| 57 | 
 | 
|---|
| 58 | 
 | 
|---|
| 59 | // ----- Instantiation pour r_4
 | 
|---|
| 60 | inline TArray<r_4> fabs(const TArray<r_4>& a)
 | 
|---|
| 61 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Fabs_) ); }
 | 
|---|
| 62 | 
 | 
|---|
| 63 | inline TArray<r_4> sqrt(const TArray<r_4>& a)
 | 
|---|
| 64 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Sqrt_) ); }
 | 
|---|
| 65 | 
 | 
|---|
| 66 | inline TArray<r_4> sin(const TArray<r_4>& a)
 | 
|---|
| 67 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Sin_) ); }
 | 
|---|
| 68 | 
 | 
|---|
| 69 | inline TArray<r_4> cos(const TArray<r_4>& a)
 | 
|---|
| 70 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Cos_) ); }
 | 
|---|
| 71 | 
 | 
|---|
| 72 | inline TArray<r_4> tan(const TArray<r_4>& a)
 | 
|---|
| 73 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Tan_) ); }
 | 
|---|
| 74 | 
 | 
|---|
| 75 | inline TArray<r_4> asin(const TArray<r_4>& a)
 | 
|---|
| 76 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _aSin_) ); }
 | 
|---|
| 77 | 
 | 
|---|
| 78 | inline TArray<r_4> acos(const TArray<r_4>& a)
 | 
|---|
| 79 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _aCos_) ); }
 | 
|---|
| 80 | 
 | 
|---|
| 81 | inline TArray<r_4> atan(const TArray<r_4>& a)
 | 
|---|
| 82 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _aTan_) ); }
 | 
|---|
| 83 | 
 | 
|---|
| 84 | inline TArray<r_4> exp(const TArray<r_4>& a)
 | 
|---|
| 85 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Exp_) ); }
 | 
|---|
| 86 | 
 | 
|---|
| 87 | inline TArray<r_4> log(const TArray<r_4>& a)
 | 
|---|
| 88 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Log_) ); }
 | 
|---|
| 89 | 
 | 
|---|
| 90 | inline TArray<r_4> log10(const TArray<r_4>& a)
 | 
|---|
| 91 |   { MathArray<r_4> ma;   return( ma.ApplyFunction(a, _Log10_) ); }
 | 
|---|
| 92 | 
 | 
|---|
| 93 | #endif
 | 
|---|