[tools/mbench] Replaced GMP_RNDx by MPFR_RNDx.

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@8988 280ebfd0-de03-0410-8827-d642c229c3f4

8 files changed, 90 insertions, 90 deletions

diff --git a/tools/mbench/generate.c b/tools/mbench/generate.c
index a81115dda..52ab67dc5 100644
--- a/tools/mbench/generate.c
+++ b/tools/mbench/generate.c
@@ -29,7 +29,7 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
 #endif
 
 #define fp_t mpfr_t
-#define fp_set_fr(dest,src) mpfr_set (dest, src, GMP_RNDN)
+#define fp_set_fr(dest,src) mpfr_set (dest, src, MPFR_RNDN)
 
 #define MAX_PREC 10000
 #define BASE 16
@@ -44,7 +44,7 @@ void gnumb_read (const char *filename, fp_t *dest, int n)
   mpfr_init2 (x, MAX_PREC);
   for (i = 0 ; i < n ; i++)
     {
-      if (mpfr_inp_str (x, f, 16, GMP_RNDN) == 0)
+      if (mpfr_inp_str (x, f, 16, MPFR_RNDN) == 0)
 	{
 	  printf ("Error reading entry %d/%d\n", i, n);
 	  mpfr_clear (x);
@@ -75,8 +75,8 @@ void gnumb_generate (const char *filename, int n, unsigned long seed)
       mpfr_urandomb (x, state);
       if ((i & 2) == 0)
         mpfr_mul_2si (x, x, (rand()%(2*GMP_NUMB_BITS))-GMP_NUMB_BITS,
-                      GMP_RNDN);
-      mpfr_out_str (f, 16, 0, x, GMP_RNDN);
+                      MPFR_RNDN);
+      mpfr_out_str (f, 16, 0, x, MPFR_RNDN);
       fputc ('\n', f);
     }
 
diff --git a/tools/mbench/mfv5-crlibm.cc b/tools/mbench/mfv5-crlibm.cc
index 1311177db..a52776d68 100644
--- a/tools/mbench/mfv5-crlibm.cc
+++ b/tools/mbench/mfv5-crlibm.cc
@@ -122,8 +122,8 @@ bool crlibm_test<T>::test (const vector<string> &base, const option_test &opt) {
     table = new double[size];
     mpfr_init2 (x, 530);
     for (i = 0 ; i < size ; i++) {
-      mpfr_set_str (x, base[i].c_str(), 10, GMP_RNDN);
-      table[i] = mpfr_get_d (x, GMP_RNDN);
+      mpfr_set_str (x, base[i].c_str(), 10, MPFR_RNDN);
+      table[i] = mpfr_get_d (x, MPFR_RNDN);
     }
     mpfr_clear (x);
   }
diff --git a/tools/mbench/mfv5-libc.cc b/tools/mbench/mfv5-libc.cc
index 469e72221..73435455b 100644
--- a/tools/mbench/mfv5-libc.cc
+++ b/tools/mbench/mfv5-libc.cc
@@ -175,8 +175,8 @@ bool libc_test<T>::test (const vector<string> &base, const option_test &opt) {
     table = new double[size];
     mpfr_init2 (x, 530);
     for (i = 0 ; i < size ; i++) {
-      mpfr_set_str (x, base[i].c_str(), 10, GMP_RNDN);
-      table[i] = mpfr_get_d (x, GMP_RNDN);
+      mpfr_set_str (x, base[i].c_str(), 10, MPFR_RNDN);
+      table[i] = mpfr_get_d (x, MPFR_RNDN);
     }
     mpfr_clear (x);
   }
diff --git a/tools/mbench/mfv5-mpfr.cc b/tools/mbench/mfv5-mpfr.cc
index add4cb582..ac90e9a7b 100644
--- a/tools/mbench/mfv5-mpfr.cc
+++ b/tools/mbench/mfv5-mpfr.cc
@@ -236,17 +236,17 @@ bool mpfr_test<T>::test (const vector<string> &base, const option_test &opt) {
     table = new mpfr_t[size];
     for (i = 0 ; i < size ; i++) {
       mpfr_init2 (table[i], opt.prec);
-      mpfr_set_str (table[i], base[i].c_str(), 10, GMP_RNDN);
+      mpfr_set_str (table[i], base[i].c_str(), 10, MPFR_RNDN);
     }
     mpfr_inits2 (opt.prec, a, b, c, NULL);
   }
 
   /* Do Measure */
   for(i = 0 ; i < (size-1) ; i++) {
-    mpfr_set (b, table[i], GMP_RNDN);
-    mpfr_set (c, table[i+1], GMP_RNDN);
+    mpfr_set (b, table[i], MPFR_RNDN);
+    mpfr_set (c, table[i+1], MPFR_RNDN);
     TIMP_OVERHEAD ();
-    m = TIMP_MEASURE (f.func (a, b, c, GMP_RNDN) ); 
+    m = TIMP_MEASURE (f.func (a, b, c, MPFR_RNDN) ); 
     cont = tim->update (i, m) || cont;
   }
 
diff --git a/tools/mbench/mfv5.cc b/tools/mbench/mfv5.cc
index f687463ba..834b08f73 100644
--- a/tools/mbench/mfv5.cc
+++ b/tools/mbench/mfv5.cc
@@ -81,8 +81,8 @@ build_base (vector<string> &base, const option_test &opt)
 
   for (i = 0 ; i < n ; i++) {
     mpfr_urandomb (x, state);
-    mpfr_mul_2si  (x, x, (rand()%GMP_NUMB_BITS)-(GMP_NUMB_BITS/2), GMP_RNDN);
-    str = mpfr_get_str (NULL, &e, 10, 0, x, GMP_RNDN);
+    mpfr_mul_2si  (x, x, (rand()%GMP_NUMB_BITS)-(GMP_NUMB_BITS/2), MPFR_RNDN);
+    str = mpfr_get_str (NULL, &e, 10, 0, x, MPFR_RNDN);
     if (str == 0)
       abort ();
     buffer = (char *) malloc (strlen(str)+50);
diff --git a/tools/mbench/mpfr-gfx.c b/tools/mbench/mpfr-gfx.c
index 2440fc6c7..9ddfdec22 100644
--- a/tools/mbench/mpfr-gfx.c
+++ b/tools/mbench/mpfr-gfx.c
@@ -53,23 +53,23 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
 
 #undef EXTRA_TEST_LIST
 # define EXTRA_TEST_LIST \
-  BENCH("mpfr_exp", mpfr_exp(a,b,GMP_RNDN)); \
-  BENCH("mpfr_log", mpfr_log(a,b,GMP_RNDN)); \
-  BENCH("mpfr_sin", mpfr_sin(a,b,GMP_RNDN)); \
-  BENCH("mpfr_cos", mpfr_cos(a,b,GMP_RNDN)); \
-  BENCH("mpfr_tan", mpfr_tan(a,b,GMP_RNDN)); \
-  BENCH("mpfr_asin", mpfr_asin(a,b,GMP_RNDN)); \
-  BENCH("mpfr_acos", mpfr_acos(a,b,GMP_RNDN)); \
-  BENCH("mpfr_atan", mpfr_atan(a,b,GMP_RNDN)); \
-  BENCH("mpfr_agm", mpfr_agm(a,b,c,GMP_RNDN)); \
-  BENCH("mpfr_const_log2", (mpfr_const_log2) (a, GMP_RNDN)); \
-  BENCH("mpfr_const_pi", (mpfr_const_pi)(a, GMP_RNDN)); \
-  BENCH("mpfr_sinh", mpfr_sinh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_cosh", mpfr_cosh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_tanh", mpfr_tanh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_asinh", mpfr_asinh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_acosh", mpfr_acosh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_atanh", mpfr_atanh(a,b,GMP_RNDN)); 
+  BENCH("mpfr_exp", mpfr_exp(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_log", mpfr_log(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_sin", mpfr_sin(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_cos", mpfr_cos(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_tan", mpfr_tan(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_asin", mpfr_asin(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_acos", mpfr_acos(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_atan", mpfr_atan(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_agm", mpfr_agm(a,b,c,MPFR_RNDN)); \
+  BENCH("mpfr_const_log2", (mpfr_const_log2) (a, MPFR_RNDN)); \
+  BENCH("mpfr_const_pi", (mpfr_const_pi)(a, MPFR_RNDN)); \
+  BENCH("mpfr_sinh", mpfr_sinh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_cosh", mpfr_cosh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_tanh", mpfr_tanh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_asinh", mpfr_asinh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_acosh", mpfr_acosh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_atanh", mpfr_atanh(a,b,MPFR_RNDN)); 
 
 
 
@@ -89,16 +89,16 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
  */
 #define TEST_LIST \
   BENCH("MPFR::::::::::", ; ); \
-  BENCH("mpfr_add", mpfr_add(a,b,c,GMP_RNDN)); \
-  BENCH("mpfr_sub", mpfr_sub(a,b,c,GMP_RNDN)); \
-  BENCH("mpfr_mul", mpfr_mul(a,b,c,GMP_RNDN)); \
-  BENCH("mpfr_div", mpfr_div(a,b,c,GMP_RNDN)); \
-  BENCH("mpfr_sqrt", mpfr_sqrt(a,b,GMP_RNDN)); \
+  BENCH("mpfr_add", mpfr_add(a,b,c,MPFR_RNDN)); \
+  BENCH("mpfr_sub", mpfr_sub(a,b,c,MPFR_RNDN)); \
+  BENCH("mpfr_mul", mpfr_mul(a,b,c,MPFR_RNDN)); \
+  BENCH("mpfr_div", mpfr_div(a,b,c,MPFR_RNDN)); \
+  BENCH("mpfr_sqrt", mpfr_sqrt(a,b,MPFR_RNDN)); \
   BENCH("mpfr_cmp", mpfr_cmp(b,c)); \
   BENCH("mpfr_sgn", mpfr_sgn(b)); \
-  BENCH("mpfr_set", mpfr_set(a,b, GMP_RNDN)); \
-  BENCH("mpfr_set0", mpfr_set_si(a,0,GMP_RNDN)); \
-  BENCH("mpfr_set1", mpfr_set_si(a,1,GMP_RNDN)); \
+  BENCH("mpfr_set", mpfr_set(a,b, MPFR_RNDN)); \
+  BENCH("mpfr_set0", mpfr_set_si(a,0,MPFR_RNDN)); \
+  BENCH("mpfr_set1", mpfr_set_si(a,1,MPFR_RNDN)); \
   BENCH("mpfr_swap", mpfr_swap(b,c)); \
   BENCH("MPF:::::::::::", ; ); \
   BENCH("mpf_add", mpf_add(x,y,z)); \
@@ -198,8 +198,8 @@ double get_speed(mpfr_prec_t p, int select)
 	  /* Set var for tests */
 	  mpf_set(y, yt[i]);
 	  mpf_set(z, zt[i]);
-	  mpfr_set_f(b, yt[i], GMP_RNDN);
-	  mpfr_set_f(c, zt[i], GMP_RNDN);
+	  mpfr_set_f(b, yt[i], MPFR_RNDN);
+	  mpfr_set_f(c, zt[i], MPFR_RNDN);
 	  SCS(( scs_set_mpfr(sc2, b), scs_set_mpfr(sc3, c) ));
 	  /* if the measured time m is smaller than the smallest one
 	     observed so far mc[i] for the i-th random number, we start
diff --git a/tools/mbench/mpfr-v4.c b/tools/mbench/mpfr-v4.c
index 681ffb194..92386ac77 100644
--- a/tools/mbench/mpfr-v4.c
+++ b/tools/mbench/mpfr-v4.c
@@ -49,16 +49,16 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
  */
 #define TEST_LIST \
   BENCH("MPFR::::::::::", ; ); \
-  BENCH("add", mpfr_add(a,b,c,GMP_RNDN)); \
-  BENCH("sub", mpfr_sub(a,b,c,GMP_RNDN)); \
-  BENCH("mul", mpfr_mul(a,b,c,GMP_RNDN)); \
-  BENCH("div", mpfr_div(a,b,c,GMP_RNDN)); \
-  BENCH("sqrt", mpfr_sqrt(a,b,GMP_RNDN)); \
+  BENCH("add", mpfr_add(a,b,c,MPFR_RNDN)); \
+  BENCH("sub", mpfr_sub(a,b,c,MPFR_RNDN)); \
+  BENCH("mul", mpfr_mul(a,b,c,MPFR_RNDN)); \
+  BENCH("div", mpfr_div(a,b,c,MPFR_RNDN)); \
+  BENCH("sqrt", mpfr_sqrt(a,b,MPFR_RNDN)); \
   BENCH("cmp", mpfr_cmp(b,c)); \
-  BENCH("set", mpfr_set(a,b, GMP_RNDN)); \
-  BENCH("set0", mpfr_set_ui(a,0,GMP_RNDN)); \
-  BENCH("set1", mpfr_set_ui(a,1,GMP_RNDN)); \
-  BENCH("setz", mpfr_set_z(a,zz,GMP_RNDN)); \
+  BENCH("set", mpfr_set(a,b, MPFR_RNDN)); \
+  BENCH("set0", mpfr_set_ui(a,0,MPFR_RNDN)); \
+  BENCH("set1", mpfr_set_ui(a,1,MPFR_RNDN)); \
+  BENCH("setz", mpfr_set_z(a,zz,MPFR_RNDN)); \
   BENCH("swap", mpfr_swap(b,c)); \
   BENCH("MPF:::::::::::", ; ); \
   BENCH("add", mpf_add(x,y,z)); \
@@ -108,15 +108,15 @@ void mpfr_bench(mpfr_prec_t prec_a, mpfr_prec_t prec_b, mpfr_prec_t prec_c,
     mpf_set_str(z, c_str, 10);
   else
     mpf_urandomb(z, state, prec_c);
-  mpfr_set_f(b, y, GMP_RNDN);
-  mpfr_set_f(c, z, GMP_RNDN);
+  mpfr_set_f(b, y, MPFR_RNDN);
+  mpfr_set_f(c, z, MPFR_RNDN);
   mpz_init (zz);
   mpz_urandomb (zz, state, 2*prec_b);
 
   if (verbose)
     {
-      printf("B="); mpfr_out_str(stdout, 10, 0, b, GMP_RNDD);
-      printf("\nC="); mpfr_out_str(stdout, 10, 0, c, GMP_RNDD);
+      printf("B="); mpfr_out_str(stdout, 10, 0, b, MPFR_RNDD);
+      printf("\nC="); mpfr_out_str(stdout, 10, 0, c, MPFR_RNDD);
       putchar('\n');
     }
   TIMP_OVERHEAD ();
@@ -185,8 +185,8 @@ void mpfr_stats (unsigned long num, mpfr_prec_t prec_a, mpfr_prec_t prec_b,
 	  op = 0;
 	  mpf_set(y,yt[i]);
 	  mpf_set(z,zt[i]);
-	  mpfr_set_f(b, yt[i], GMP_RNDN);
-	  mpfr_set_f(c, zt[i], GMP_RNDN);
+	  mpfr_set_f(b, yt[i], MPFR_RNDN);
+	  mpfr_set_f(c, zt[i], MPFR_RNDN);
 #undef BENCH
 #define BENCH(TEST_STR, TEST)                                           \
  m = TIMP_MEASURE(TEST); if (m < mc[i][op]) {mc[i][op] = m; cont = 4;} op++;
diff --git a/tools/mbench/mpfr-v6.c b/tools/mbench/mpfr-v6.c
index 8b146dc3f..784240cf3 100644
--- a/tools/mbench/mpfr-v6.c
+++ b/tools/mbench/mpfr-v6.c
@@ -62,16 +62,16 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
  */
 #define TEST_LIST1 \
   BENCH("MPFR::::::::::", ; ); \
-  BENCH("add", mpfr_add(a,b,c,GMP_RNDN)); \
-  BENCH("sub", mpfr_sub(a,b,c,GMP_RNDN)); \
-  BENCH("mul", mpfr_mul(a,b,c,GMP_RNDN)); \
-  BENCH("div", mpfr_div(a,b,c,GMP_RNDN)); \
-  BENCH("sqrt", mpfr_sqrt(a,b,GMP_RNDN)); \
+  BENCH("add", mpfr_add(a,b,c,MPFR_RNDN)); \
+  BENCH("sub", mpfr_sub(a,b,c,MPFR_RNDN)); \
+  BENCH("mul", mpfr_mul(a,b,c,MPFR_RNDN)); \
+  BENCH("div", mpfr_div(a,b,c,MPFR_RNDN)); \
+  BENCH("sqrt", mpfr_sqrt(a,b,MPFR_RNDN)); \
   BENCH("cmp", mpfr_cmp(b,c)); \
   BENCH("sgn", (mpfr_sgn)(b)); \
-  BENCH("set", mpfr_set(a,b, GMP_RNDN)); \
-  BENCH("set0", mpfr_set_si(a,0,GMP_RNDN)); \
-  BENCH("set1", mpfr_set_si(a,1,GMP_RNDN)); \
+  BENCH("set", mpfr_set(a,b, MPFR_RNDN)); \
+  BENCH("set0", mpfr_set_si(a,0,MPFR_RNDN)); \
+  BENCH("set1", mpfr_set_si(a,1,MPFR_RNDN)); \
   BENCH("swap", mpfr_swap(b,c)); \
   BENCH("MPF:::::::::::", ; ); \
   BENCH("add", mpf_add(x,y,z)); \
@@ -87,23 +87,23 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
   EXTRA_TEST_LIST
 
 #define TEST_LIST2 \
-  BENCH("mpfr_exp", mpfr_exp(a,b,GMP_RNDN)); \
-  BENCH("mpfr_log", mpfr_log(a,b,GMP_RNDN)); \
-  BENCH("mpfr_sin", mpfr_sin(a,b,GMP_RNDN)); \
-  BENCH("mpfr_cos", mpfr_cos(a,b,GMP_RNDN)); \
-  BENCH("mpfr_tan", mpfr_tan(a,b,GMP_RNDN)); \
-  BENCH("mpfr_asin", mpfr_asin(a,b,GMP_RNDN)); \
-  BENCH("mpfr_acos", mpfr_acos(a,b,GMP_RNDN)); \
-  BENCH("mpfr_atan", mpfr_atan(a,b,GMP_RNDN)); \
-  BENCH("mpfr_agm", mpfr_agm(a,b,c,GMP_RNDN)); \
-  BENCH("mpfr_const_log2", (mpfr_const_log2) (a, GMP_RNDN)); \
-  BENCH("mpfr_const_pi", (mpfr_const_pi)(a, GMP_RNDN)); \
-  BENCH("mpfr_sinh", mpfr_sinh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_cosh", mpfr_cosh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_tanh", mpfr_tanh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_asinh", mpfr_asinh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_acosh", mpfr_acosh(a,b,GMP_RNDN)); \
-  BENCH("mpfr_atanh", mpfr_atanh(a,b,GMP_RNDN)); \
+  BENCH("mpfr_exp", mpfr_exp(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_log", mpfr_log(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_sin", mpfr_sin(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_cos", mpfr_cos(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_tan", mpfr_tan(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_asin", mpfr_asin(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_acos", mpfr_acos(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_atan", mpfr_atan(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_agm", mpfr_agm(a,b,c,MPFR_RNDN)); \
+  BENCH("mpfr_const_log2", (mpfr_const_log2) (a, MPFR_RNDN)); \
+  BENCH("mpfr_const_pi", (mpfr_const_pi)(a, MPFR_RNDN)); \
+  BENCH("mpfr_sinh", mpfr_sinh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_cosh", mpfr_cosh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_tanh", mpfr_tanh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_asinh", mpfr_asinh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_acosh", mpfr_acosh(a,b,MPFR_RNDN)); \
+  BENCH("mpfr_atanh", mpfr_atanh(a,b,MPFR_RNDN)); \
   BENCH("exp", d1 = exp(d2)); \
   BENCH("log", d1 = log(d2)); \
   BENCH("sin", d1 = sin(d2)); \
@@ -114,12 +114,12 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
   BENCH("atan", d1 = atan(d2)); 
 
 #define TEST_LIST3 \
-  BENCH("mpfr_cos", mpfr_cos(a,b,GMP_RNDN)); 
+  BENCH("mpfr_cos", mpfr_cos(a,b,MPFR_RNDN)); 
 
 #define TEST_LIST4 \
-  BENCH("get_d", d1 = mpfr_get_d (b, GMP_RNDN)); \
-  BENCH("set_d", mpfr_set_d (b, d2, GMP_RNDN));  \
-  BENCH("mul_ui", mpfr_mul_si (b, b, 123, GMP_RNDN));
+  BENCH("get_d", d1 = mpfr_get_d (b, MPFR_RNDN)); \
+  BENCH("set_d", mpfr_set_d (b, d2, MPFR_RNDN));  \
+  BENCH("mul_ui", mpfr_mul_si (b, b, 123, MPFR_RNDN));
 
 #ifndef TEST_LIST
 # define TEST_LIST TEST_LIST2
@@ -191,10 +191,10 @@ void make_stats(const char *filename, int num, mpfr_prec_t prec, int select_op,
       printf("Pass %d...\n", j+1);
       for(i = 0 ; i < num ; i++)
 	{
-	  mpfr_set (b, tab[i+0], GMP_RNDN);
-	  mpfr_set (c, tab[i+1], GMP_RNDN);
-	  mpf_set_fr (y, b, GMP_RNDN);
-	  mpf_set_fr (z, c, GMP_RNDN);
+	  mpfr_set (b, tab[i+0], MPFR_RNDN);
+	  mpfr_set (c, tab[i+1], MPFR_RNDN);
+	  mpf_set_fr (y, b, MPFR_RNDN);
+	  mpf_set_fr (z, c, MPFR_RNDN);
 	  SCS(( scs_set_mpfr(sc2, b), scs_set_mpfr(sc3, c) ));
 	  d1 = d2 = mpfr_get_d1 (b);
 	  d3 = mpfr_get_d1 (c);
@@ -227,7 +227,7 @@ void make_stats(const char *filename, int num, mpfr_prec_t prec, int select_op,
 
   if (verbose && select_op != 0) {
     for (i = 0 ; i < num ; i++) {
-      printf ("Tab[%02d]=", i); mpfr_out_str (stdout, 2, 10, tab[i], GMP_RNDN);
+      printf ("Tab[%02d]=", i); mpfr_out_str (stdout, 2, 10, tab[i], MPFR_RNDN);
       printf ("\tt=%Lu\n", mc[i][select_op]);
     }
   }