bridge/class-master/depend/pari/src/basemath/bb_hnf.c
/* to be used when one D_i is 0 */
to be used when one D_i is 0
to be used when one D_i is 0
static GEN
msolvemod0(GEN M, GEN D, GEN Y, long flag)
{
  pari_sp av = avma;
  GEN y, x, U;
  if (!flag) return gaussmoduloall(M,D,Y,NULL);
  y = cgetg(3,t_VEC);
  x = gaussmoduloall(M,D,Y,&U);
  if (x == gen_0) { avma = av; return gen_0; }
  gel(y,1) = x;
  gel(y,2) = U; return y;
}
static GEN msolvemod0 ( GEN M , GEN D , GEN Y , long flag ) { pari_sp av = avma ; GEN y , x , U ; if ( ! flag ) return gaussmoduloall ( M , D , Y , NULL ) ; y = cgetg ( 3 , t_VEC ) ; x = gaussmoduloall ( M , D , Y , & U ) ; if ( x == gen_0 ) { avma = av ; return gen_0 ; } gel ( y , 1 ) = x ; gel ( y , 2 ) = U ; return y ; }
to be used when one D_i is 0
to be used when one D_i is 0