bridge/class-master/depend/pari/src/basemath/lll.c
/********************************************************************/
/**                                                                **/
/**                   INTEGRAL KERNEL (LLL REDUCED)                **/
/**                                                                **/
/********************************************************************/
INTEGRAL KERNEL (LLL REDUCED)
INTEGRAL KERNEL ( LLL REDUCED )
static GEN
kerint0(GEN M)
{
  GEN U, H = ZM_hnflll(M,&U,1);
  long d = lg(M)-lg(H);
  if (!d) return cgetg(1, t_MAT);
  return ZM_lll(vecslice(U,1,d), LLLDFT, LLL_INPLACE);
}
static GEN kerint0 ( GEN M ) { GEN U , H = ZM_hnflll ( M , & U , 1 ) ; long d = lg ( M ) - lg ( H ) ; if ( ! d ) return cgetg ( 1 , t_MAT ) ; return ZM_lll ( vecslice ( U , 1 , d ) , LLLDFT , LLL_INPLACE ) ; }
INTEGRAL KERNEL (LLL REDUCED)
INTEGRAL KERNEL ( LLL REDUCED )
/* return ZM_lll(M, LLLDFT, LLL_KER); */