bridge/class-master/depend/pari/src/basemath/rootpol.c
/* returns 1 if p has only real coefficients, 0 else */
returns 1 if p has only real coefficients, 0 else
returns 1 if p has only real coefficients 0 else
static int
isreal(GEN p)
{
  long i;
  for (i = lg(p)-1; i > 1; i--)
    if (typ(gel(p,i)) == t_COMPLEX) return 0;
  return 1;
}
static int isreal ( GEN p ) { long i ; for ( i = lg ( p ) - 1 ; i > 1 ; i -- ) if ( typ ( gel ( p , i ) ) == t_COMPLEX ) return 0 ; return 1 ; }
returns 1 if p has only real coefficients, 0 else
returns 1 if p has only real coefficients 0 else