Commit ba05af59 authored by Peter Bruin's avatar Peter Bruin

remove (partially incorrect) uses of cgiv

parent 31be314f
......@@ -298,8 +298,7 @@ full_space_IGS (GEN V, GEN V_2,
IGS = matsmall_random_subspace(V, h, 0, p, T);
IGS_V_2 = multiply_subspaces (IGS, V_2, multiplication_method, p, T);
} while (lg (IGS_V_2) - 1 < dim_V_3);
cgiv (IGS_V_2);
return IGS;
return gerepileupto(av, IGS);
}
......
......@@ -95,8 +95,7 @@ curve_divisor_IGS (GEN X, GEN W_D, unsigned long i) {
IGS = matsmall_random_subspace(W_D, h, 0, p, T);
IGS_V = curve_multiply_subspaces(X, IGS, V);
} while (lg (IGS_V) - 1 < expected_dim);
cgiv (IGS_V);
return IGS;
return gerepileupto(av, IGS);
}
/*
......
......@@ -94,7 +94,6 @@ count_elliptic_points_2_Gamma_0(long n) {
r = 1;
for(i = 1; i < lg(gel(f, 1)); i++)
r *= (1 + kross(-4, coeff(f, i, 1)));
cgiv(f);
return r;
}
......@@ -108,7 +107,6 @@ count_elliptic_points_3_Gamma_0(long n) {
r = 1;
for(i = 1; i < lg(gel(f, 1)); i++)
r *= (1 + kross(-3, coeff(f, i, 1)));
cgiv(f);
return r;
}
......@@ -139,7 +137,6 @@ count_representatives_Gamma_0(long n) {
e = coeff(f, i, 2);
nrep *= ((p + 1) * upowuu(p, e - 1));
}
cgiv(f);
return nrep;
}
......@@ -166,7 +163,6 @@ count_representatives_pmGamma_1(long n) {
d = div_n[i];
nrep += upowuu(d, 2) * moebiusu(n/d);
}
cgiv(div_n);
return nrep / 2;
}
}
......@@ -192,7 +188,6 @@ count_representatives_Gamma_1(long n) {
d = div_n[i];
nrep += upowuu(d, 2) * moebiusu(n/d);
}
cgiv(div_n);
return nrep;
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment