bridge/class-master/depend/pari/src/basemath/base3.c
/* assume nf is a genuine nf, fa a famat */
assume nf is a genuine nf, fa a famat
assume nf is a genuine nf fa a famat
static GEN
famat_norm(GEN nf, GEN fa)
{
  pari_sp av = avma;
  GEN g = gel(fa,1), e = gel(fa,2), N = gen_1;
  long i, l = lg(g);
  for (i = 1; i < l; i++)
    N = gmul(N, powgi(nfnorm(nf, gel(g,i)), gel(e,i)));
  return gerepileupto(av, N);
}
static GEN famat_norm ( GEN nf , GEN fa ) { pari_sp av = avma ; GEN g = gel ( fa , 1 ) , e = gel ( fa , 2 ) , N = gen_1 ; long i , l = lg ( g ) ; for ( i = 1 ; i < l ; i ++ ) N = gmul ( N , powgi ( nfnorm ( nf , gel ( g , i ) ) , gel ( e , i ) ) ) ; return gerepileupto ( av , N ) ; }
assume nf is a genuine nf, fa a famat
assume nf is a genuine nf fa a famat