bridge/class-master/depend/pari/src/basemath/base2.c
/* M a QM, return denominator of diagonal. All denominators are powers of
 * a given integer */
M a QM, return denominator of diagonal. All denominators are powers of
a given integer
M a QM return denominator of diagonal . All denominators are powers of a given integer
static GEN
diag_denom(GEN M)
{
  GEN d = gen_1;
  long j, l = lg(M);
  for (j=1; j<l; j++)
  {
    GEN t = gcoeff(M,j,j);
    if (typ(t) == t_INT) continue;
    t = gel(t,2);
    if (abscmpii(t,d) > 0) d = t;
  }
  return d;
}
static GEN diag_denom ( GEN M ) { GEN d = gen_1 ; long j , l = lg ( M ) ; for ( j = 1 ; j < l ; j ++ ) { GEN t = gcoeff ( M , j , j ) ; if ( typ ( t ) == t_INT ) continue ; t = gel ( t , 2 ) ; if ( abscmpii ( t , d ) > 0 ) d = t ; } return d ; }
M a QM, return denominator of diagonal.
M a QM return denominator of diagonal .