Don't use static const with log10

texnokrates · Apr 10, 2020 · 19e7ae8 · 19e7ae8
1 parent 16bb81e
commit 19e7ae8
Show file tree

Hide file tree

Showing 8 changed files with 40 additions and 8 deletions.
diff --git a/zbessel/zairy.x b/zbessel/zairy.x
@@ -8,7 +8,11 @@
 
 int camos_zairy(double zr, double zi, int id, int kode, double *restrict air, double *restrict aii,
           int *restrict nz) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Initialized data */
 

diff --git a/zbessel/zbesh.x b/zbessel/zbesh.x
@@ -7,7 +7,11 @@
 
 int camos_zbesh(double zr, double zi, double fnu, int kode, int m,
           int n, double *restrict cyr, double *restrict cyi, int *restrict nz) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Initialized data */
 

diff --git a/zbessel/zbesi.x b/zbessel/zbesi.x
@@ -8,7 +8,11 @@
 
 int camos_zbesi(double zr, double zi, double fnu, int kode, int n, double *restrict cyr,
           double *restrict cyi, int *restrict nz) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Initialized data */
 

diff --git a/zbessel/zbesj.x b/zbessel/zbesj.x
@@ -8,7 +8,11 @@
 
 int camos_zbesj(double zr, double zi, double fnu, int kode, int n, double *restrict cyr,
           double *restrict cyi, int *restrict nz) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Initialized data */
 

diff --git a/zbessel/zbesk.x b/zbessel/zbesk.x
@@ -8,7 +8,11 @@
 
 int camos_zbesk(double zr, double zi, double fnu, int kode, int n, double *restrict cyr,
           double *restrict cyi, int *restrict nz) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Local variables */
   int ierr;

diff --git a/zbessel/zbesy.x b/zbessel/zbesy.x
@@ -7,7 +7,11 @@
 
 int camos_zbesy(double zr, double zi, double fnu, int kode, int n, double *restrict cyr,
           double *restrict cyi, int *restrict nz, double *restrict cwrkr, double *restrict cwrki) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Local variables */
   int ierr;

diff --git a/zbessel/zbiry.x b/zbessel/zbiry.x
@@ -7,7 +7,11 @@
 
 
 int camos_zbiry(double zr, double zi, int id, int kode, double *restrict bir, double *restrict bii) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Initialized data */
 

diff --git a/zbessel/zbknu.x b/zbessel/zbknu.x
@@ -9,7 +9,11 @@
 
 static void zbknu(double zr, double zi, double fnu, int kode, int n, double *restrict yr,
            double *restrict yi, int *restrict nz, double tol, double elim, double alim) {
-  static const double r1m5 = log10(FLT_RADIX);
+#if (FLT_RADIX == 2)
+  static const double r1m5 = 0.301029995663981195213738894724493026768189L;
+#else
+  const double r1m5 = log10(FLT_RADIX);
+#endif
 
   /* Initialized data */