bridge/class-master/depend/pari/src/basemath/mftrace.c
/* simplified version of newt_params for n = 1 (newdim) */
simplified version of newt_params for n = 1 (newdim)
simplified version of newt_params for n = 1 ( newdim )
static void
newd_params(long N, long *pN2)
{
  GEN fa = myfactoru(N), P = gel(fa,1), E = gel(fa,2);
  long i, N2 = 1, l = lg(P);
  for (i = 1; i < l; i++)
  {
    long p = P[i], e = E[i];
    if (e > 2) N2 *= upowuu(p, e-2);
  }
  *pN2 = N2;
}
static void newd_params ( long N , long * pN2 ) { GEN fa = myfactoru ( N ) , P = gel ( fa , 1 ) , E = gel ( fa , 2 ) ; long i , N2 = 1 , l = lg ( P ) ; for ( i = 1 ; i < l ; i ++ ) { long p = P [ i ] , e = E [ i ] ; if ( e > 2 ) N2 *= upowuu ( p , e - 2 ) ; } * pN2 = N2 ; }
simplified version of newt_params for n = 1 (newdim)
simplified version of newt_params for n = 1 ( newdim )