bridge/class-master/depend/pari/src/basemath/base5.c
/* v a vector of ideals, simplify in place the ones generated by elts of Q */
v a vector of ideals, simplify in place the ones generated by elts of Q
v a vector of ideals simplify in place the ones generated by elts of Q
static void
idV_simplify(GEN v)
{
  long i, l = lg(v);
  for (i = 1; i < l; i++)
  {
    GEN M = gel(v,i);
    if (typ(M)==t_MAT && RgM_isscalar(M,NULL))
      gel(v,i) = Q_abs_shallow(gcoeff(M,1,1));
  }
}
static void idV_simplify ( GEN v ) { long i , l = lg ( v ) ; for ( i = 1 ; i < l ; i ++ ) { GEN M = gel ( v , i ) ; if ( typ ( M ) == t_MAT && RgM_isscalar ( M , NULL ) ) gel ( v , i ) = Q_abs_shallow ( gcoeff ( M , 1 , 1 ) ) ; } }
v a vector of ideals, simplify in place the ones generated by elts of Q
v a vector of ideals simplify in place the ones generated by elts of Q