bridge/class-master/depend/pari/src/basemath/buch4.c
/* N a t_INT or t_FRAC or ideal in HNF*/
N a t_INT or t_FRAC or ideal in HNF
N a t_INT or t_FRAC or ideal in HNF
static void
fa_append(GEN N, hashtable *H, hashtable *H2)
{
  switch(typ(N))
  {
    case t_INT:
      Zfa_append(N,H,H2);
      break;
    case t_FRAC:
      Zfa_append(gel(N,1),H,H2);
      Zfa_append(gel(N,2),H,H2);
      break;
    default: 
      Zfa_append(gcoeff(N,1,1),H,H2);
      break;
  }
}
static void fa_append ( GEN N , hashtable * H , hashtable * H2 ) { switch ( typ ( N ) ) { case t_INT : Zfa_append ( N , H , H2 ) ; break ; case t_FRAC : Zfa_append ( gel ( N , 1 ) , H , H2 ) ; Zfa_append ( gel ( N , 2 ) , H , H2 ) ; break ; default : Zfa_append ( gcoeff ( N , 1 , 1 ) , H , H2 ) ; break ; } }
N a t_INT or t_FRAC or ideal in HNF
N a t_INT or t_FRAC or ideal in HNF
/*t_MAT*/