bridge/class-master/depend/pari/src/basemath/mellininv.c
/* remove trailing zeros from vector. */
remove trailing zeros from vector.
remove trailing zeros from vector .
static void
stripzeros(GEN M)
{
  long i;
  for(i = lg(M)-1; i >= 1; --i)
    if (!gequal0(gel(M, i))) break;
  setlg(M, i+1);
}
static void stripzeros ( GEN M ) { long i ; for ( i = lg ( M ) - 1 ; i >= 1 ; -- i ) if ( ! gequal0 ( gel ( M , i ) ) ) break ; setlg ( M , i + 1 ) ; }
remove trailing zeros from vector.
remove trailing zeros from vector .