bridge/class-master/depend/pari/src/modules/algebras.c
/* x is an ideal of the center in hnf form */
x is an ideal of the center in hnf form
x is an ideal of the center in hnf form
static GEN
algfromcenterhnf(GEN al, GEN x)
{
  GEN res;
  long i;
  res = cgetg(lg(x), t_MAT);
  for (i=1; i<lg(x); i++) gel(res,i) = algfromcenter(al, gel(x,i));
  return res;
}
static GEN algfromcenterhnf ( GEN al , GEN x ) { GEN res ; long i ; res = cgetg ( lg ( x ) , t_MAT ) ; for ( i = 1 ; i < lg ( x ) ; i ++ ) gel ( res , i ) = algfromcenter ( al , gel ( x , i ) ) ; return res ; }
x is an ideal of the center in hnf form
x is an ideal of the center in hnf form