bridge/class-master/depend/pari/src/basemath/rootpol.c
/* change z into z*2^e, where z is real or complex of real */
change z into z*2^e, where z is real or complex of real
change z into z * 2^e where z is real or complex of real
static void
myshiftrc(GEN z, long e)
{
  if (typ(z)==t_COMPLEX)
  {
    if (signe(gel(z,1))) shiftr_inplace(gel(z,1), e);
    if (signe(gel(z,2))) shiftr_inplace(gel(z,2), e);
  }
  else
    if (signe(z)) shiftr_inplace(z, e);
}
static void myshiftrc ( GEN z , long e ) { if ( typ ( z ) == t_COMPLEX ) { if ( signe ( gel ( z , 1 ) ) ) shiftr_inplace ( gel ( z , 1 ) , e ) ; if ( signe ( gel ( z , 2 ) ) ) shiftr_inplace ( gel ( z , 2 ) , e ) ; } else if ( signe ( z ) ) shiftr_inplace ( z , e ) ; }
change z into z*2^e, where z is real or complex of real
change z into z * 2^e where z is real or complex of real