Adjust Karatsuba parameters.

diff --git a/mpmont.c b/mpmont.c
index a5b5e66..cabb2cb 100644 (file)
--- a/mpmont.c
+++ b/mpmont.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: mpmont.c,v 1.7 1999/12/11 01:51:14 mdw Exp $
+ * $Id: mpmont.c,v 1.8 1999/12/22 15:55:00 mdw Exp $
  *
  * Montgomery reduction
  *
@@ -30,6 +30,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: mpmont.c,v $
+ * Revision 1.8  1999/12/22 15:55:00  mdw
+ * Adjust Karatsuba parameters.
+ *
  * Revision 1.7  1999/12/11 01:51:14  mdw
  * Use a Karatsuba-based reduction for large moduli.
  *
@@ -182,7 +185,7 @@ mp *mpmont_reduce(mpmont *mm, mp *d, mp *a)
 
   /* --- Check for serious Karatsuba reduction --- */
 
-  if (n > KARATSUBA_CUTOFF * 2) {
+  if (n > KARATSUBA_CUTOFF * 3) {
     mp al;
     mpw *vl;
     mp *u;
@@ -265,7 +268,7 @@ mp *mpmont_mul(mpmont *mm, mp *d, mp *a, mp *b)
 
 mp *mpmont_mul(mpmont *mm, mp *d, mp *a, mp *b)
 {
-  if (mm->n > KARATSUBA_CUTOFF * 2) {
+  if (mm->n > KARATSUBA_CUTOFF * 3) {
     d = mp_mul(d, a, b);
     d = mpmont_reduce(mm, d, d);
   } else {