bridge/class-master/depend/pari/src/basemath/rootpol.c
/* return z*2^e, where z is integer or complex of integer (destroy z) */
return z*2^e, where z is integer or complex of integer (destroy z)
return z * 2^e where z is integer or complex of integer ( destroy z )
static GEN
myshiftic(GEN z, long e)
{
  if (typ(z)==t_COMPLEX)
  {
    gel(z,1) = signe(gel(z,1))? mpshift(gel(z,1),e): gen_0;
    gel(z,2) = mpshift(gel(z,2),e);
    return z;
  }
  return signe(z)? mpshift(z,e): gen_0;
}
static GEN myshiftic ( GEN z , long e ) { if ( typ ( z ) == t_COMPLEX ) { gel ( z , 1 ) = signe ( gel ( z , 1 ) ) ? mpshift ( gel ( z , 1 ) , e ) : gen_0 ; gel ( z , 2 ) = mpshift ( gel ( z , 2 ) , e ) ; return z ; } return signe ( z ) ? mpshift ( z , e ) : gen_0 ; }
return z*2^e, where z is integer or complex of integer (destroy z)
return z * 2^e where z is integer or complex of integer ( destroy z )