src/foam/primitives/Scalar/longDoubleScalar/longDoubleScalar.H

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | foam-extend: Open Source CFD
   4    \\    /   O peration     | Version:     3.2
   5     \\  /    A nd           | Web:         http://www.foam-extend.org
   6      \\/     M anipulation  | For copyright notice see file Copyright
   7 -------------------------------------------------------------------------------
   8 License
   9     This file is part of foam-extend.
  10
  11     foam-extend is free software: you can redistribute it and/or modify it
  12     under the terms of the GNU General Public License as published by the
  13     Free Software Foundation, either version 3 of the License, or (at your
  14     option) any later version.
  15
  16     foam-extend is distributed in the hope that it will be useful, but
  17     WITHOUT ANY WARRANTY; without even the implied warranty of
  18     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19     General Public License for more details.
  20
  21     You should have received a copy of the GNU General Public License
  22     along with foam-extend.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 Typedef
  25     Foam::doubleScalar
  26
  27 Description
  28     Long double precision floating point scalar type.
  29
  30 SourceFiles
  31     longDoubleScalar.C
  32
  33 \*---------------------------------------------------------------------------*/
  34
  35 #ifndef longDoubleScalar_H
  36 #define longDoubleScalar_H
  37
  38 #include "doubleFloat.H"
  39 #include "direction.H"
  40 #include "word.H"
  41
  42 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  43
  44 namespace Foam
  45 {
  46
  47 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  48
  49 typedef long double longDoubleScalar;
  50
  51 // Largest and smallest scalar values allowed in certain parts of the code.
  52 // (15 is the number of significant figures in an
  53 //  IEEE double precision number.  See limits.h or float.h)
  54 static const longDoubleScalar longDoubleScalarGREAT = 1.0e+15;
  55 static const longDoubleScalar longDoubleScalarVGREAT = 1.0e+300;
  56 static const longDoubleScalar longDoubleScalarROOTVGREAT = 1.0e+150;
  57 static const longDoubleScalar longDoubleScalarSMALL = 1.0e-15;
  58 static const longDoubleScalar longDoubleScalarVSMALL = 1.0e-300;
  59 static const longDoubleScalar longDoubleScalarROOTVSMALL = 1.0e-150;
  60
  61
  62 #define Scalar longDoubleScalar
  63 #define ScalarVGREAT longDoubleScalarVGREAT
  64 #define ScalarVSMALL longDoubleScalarVSMALL
  65 #define readScalar readLongDoubleScalar
  66
  67 inline Scalar mag(const Scalar s)
  68 {
  69     return ::fabsl(s);
  70 }
  71
  72 #define transFunc(func)            \
  73 inline Scalar func(const Scalar s) \
  74 {                                  \
  75     return ::func(s);              \
  76 }
  77
  78 #include "ScalarTemplate.H"
  79
  80 inline Scalar hypot(const Scalar x, const Scalar y)
  81 {
  82     return ::hypot(x, y);
  83 }
  84
  85 inline Scalar atan2(const Scalar y, const Scalar x)
  86 {
  87     return ::atan2(y, x);
  88 }
  89
  90 inline Scalar jn(const int n, const Scalar s)
  91 {
  92     return ::jn(n, s);
  93 }
  94
  95 inline Scalar yn(const int n, const Scalar s)
  96 {
  97     return ::yn(n, s);
  98 }
  99
 100 #undef Scalar
 101 #undef ScalarVGREAT
 102 #undef ScalarVSMALL
 103 #undef readScalar
 104 #undef transFunc
 105
 106
 107 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
 108
 109 } // End namespace Foam
 110
 111 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
 112
 113 #endif
 114
 115 // ************************************************************************* //