summaryrefslogtreecommitdiff
path: root/demos/qcn.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2000-05-27 22:28:21 +0200
committerKevin Ryde <user42@zip.com.au>2000-05-27 22:28:21 +0200
commit7555cb0fc0b17d647562d5f506098ce79a16ed06 (patch)
treeed1fc3e832af2b107afac6ae14b7dbca920f81b6 /demos/qcn.c
parent8600856dcb8d5ceb70001a6fcd08f0176f8b4c55 (diff)
downloadgmp-7555cb0fc0b17d647562d5f506098ce79a16ed06.tar.gz
Rename kronecker functions.
Diffstat (limited to 'demos/qcn.c')
-rw-r--r--demos/qcn.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/qcn.c b/demos/qcn.c
index bf4ef7171..ede7e6a68 100644
--- a/demos/qcn.c
+++ b/demos/qcn.c
@@ -1,4 +1,4 @@
-/* Use mpz_kronecker_zi_ui() to calculate an estimate for the quadratic
+/* Use mpz_kronecker_ui() to calculate an estimate for the quadratic
class number h(d), for a given negative fundamental discriminant, using
Dirichlet's analytic formula. */
@@ -89,14 +89,14 @@ qcn_estimate (mpz_t d)
/* p=2 */
h = sqrt (-mpz_get_d (d)) / M_PI
- * 2.0 / (2.0 - mpz_kronecker_zi_ui (d, 2));
+ * 2.0 / (2.0 - mpz_kronecker_ui (d, 2));
if (mpz_cmp_si (d, -3) == 0) h *= 3;
else if (mpz_cmp_si (d, -4) == 0) h *= 2;
for (p = 3; p < P_LIMIT; p += 2)
if (prime_p (p))
- h *= (double) p / (double) (p - mpz_kronecker_zi_ui (d, p));
+ h *= (double) p / (double) (p - mpz_kronecker_ui (d, p));
return h;
}