bridge/class-master/depend/pari/src/basemath/arith2.c
/* n attached to a factorization of an integer */
n attached to a factorization of an integer
n attached to a factorization of an integer
GEN
check_arith_all(GEN n, const char *f) {
  switch(typ(n))
  {
    case t_INT:
      return NULL;
    case t_VEC:
      if (lg(n) != 3 || typ(gel(n,1)) != t_INT) break;
      n = gel(n,2); 
    case t_MAT:
      if (!is_Z_factor(n)) break;
      return n;
  }
  pari_err_TYPE(f,n);
  return NULL;
}
GEN check_arith_all ( GEN n , const char * f ) { switch ( typ ( n ) ) { case t_INT : return NULL ; case t_VEC : if ( lg ( n ) != 3 || typ ( gel ( n , 1 ) ) != t_INT ) break ; n = gel ( n , 2 ) ; case t_MAT : if ( ! is_Z_factor ( n ) ) break ; return n ; } pari_err_TYPE ( f , n ) ; return NULL ; }
n attached to a factorization of an integer
n attached to a factorization of an integer
/* fall through */