1969 chk_vdir(GEN nf, GEN vdir)  in chk_vdir()  argument
1973   if (!vdir || gcmp0(vdir)) return NULL;  in chk_vdir()
1974   l = lg(vdir);  in chk_vdir()
1976   t = typ(vdir);  in chk_vdir()
1977   if (t == t_VECSMALL) return vdir;  in chk_vdir()
1980   for (i=1; i<l; i++) v[i] = itos(gceil(gel(vdir,i)));  in chk_vdir()
1985 computeGtwist(GEN nf, GEN vdir)  in computeGtwist()  argument
1990   vdir = chk_vdir(nf, vdir);  in computeGtwist()
1991   if (!vdir) return G;  in computeGtwist()
1992   l = lg(vdir); lG = lg(G);  in computeGtwist()
1997     v = vdir[i]; if (!v) continue;  in computeGtwist()
2014 ideallllred_elt(GEN nf, GEN I, GEN vdir)  in ideallllred_elt()  argument
2018   if (vdir && typ(vdir) == t_MAT) G0 = vdir;  in ideallllred_elt()
2021     GEN G = computeGtwist(nf, vdir);  in ideallllred_elt()
2038 ideallllred(GEN nf, GEN I, GEN vdir, long prec)  in ideallllred()  argument
2055   y = ideallllred_elt(nf, I, vdir);  in ideallllred()
2122 minideal(GEN nf, GEN x, GEN vdir, long prec)  in minideal()  argument
2129   vdir = chk_vdir(nf,vdir);  in minideal()
2135   y = gmul(computeGtwist(nf,vdir), x);  in minideal()