bridge/class-master/depend/pari/src/basemath/trans1.c
/********************************************************************/
/**                   GENERIC BINARY SPLITTING                     **/
/**                    (Haible, Papanikolaou)                      **/
/********************************************************************/
GENERIC BINARY SPLITTING
(Haible, Papanikolaou)
GENERIC BINARY SPLITTING ( Haible Papanikolaou )
void
abpq_init(struct abpq *A, long n)
{
  A->a = (GEN*)new_chunk(n+1);
  A->b = (GEN*)new_chunk(n+1);
  A->p = (GEN*)new_chunk(n+1);
  A->q = (GEN*)new_chunk(n+1);
}
void abpq_init ( struct abpq * A , long n ) { A -> a = ( GEN * ) new_chunk ( n + 1 ) ; A -> b = ( GEN * ) new_chunk ( n + 1 ) ; A -> p = ( GEN * ) new_chunk ( n + 1 ) ; A -> q = ( GEN * ) new_chunk ( n + 1 ) ; }
GENERIC BINARY SPLITTING
(Haible, Papanikolaou)
GENERIC BINARY SPLITTING ( Haible Papanikolaou )