bridge/class-master/depend/pari/src/basemath/mftrace.c
/* if (!VCHIP): from mftraceform_cusp;
 * else from initnewtrace and CHI is known to be primitive */
if (!VCHIP): from mftraceform_cusp;
else from initnewtrace and CHI is known to be primitive
if ( !VCHIP ) : from mftraceform_cusp ; else from initnewtrace and CHI is known to be primitive
static GEN
inittrace(long N, GEN CHI, GEN VCHIP)
{
  long FC;
  if (VCHIP)
    FC = mfcharmodulus(CHI);
  else
    VCHIP = mfcharinit(mfchartoprimitive(CHI, &FC));
  return mkvecn(5, mksqr(N), mkmup(N), mkgcd(N), VCHIP, mkbez(N, FC));
}
static GEN inittrace ( long N , GEN CHI , GEN VCHIP ) { long FC ; if ( VCHIP ) FC = mfcharmodulus ( CHI ) ; else VCHIP = mfcharinit ( mfchartoprimitive ( CHI , & FC ) ) ; return mkvecn ( 5 , mksqr ( N ) , mkmup ( N ) , mkgcd ( N ) , VCHIP , mkbez ( N , FC ) ) ; }
if (!VCHIP): from mftraceform_cusp;
 else from initnewtrace and CHI is known to be primitive
if ( !VCHIP ) : from mftraceform_cusp ; else from initnewtrace and CHI is known to be primitive