bridge/class-master/depend/pari/src/basemath/mftrace.c
/* Return 1 if F is definitely not S4 type; return 0 on failure. */
Return 1 if F is definitely not S4 type; return 0 on failure.
Return 1 if F is definitely not S4 type ; return 0 on failure .
static long
mfisnotS4(long N, GEN w)
{
  GEN D = mfunram(N, 0);
  long i, lD = lg(D), lw = lg(w);
  for (i = 1; i < lD; i++)
  {
    long p, d = D[i], ok = 0;
    for (p = 2; p < lw; p++)
      if (w[p] && kross(d,p) == -1) { ok = 1; break; }
    if (!ok) return 0;
  }
  return 1;
}
static long mfisnotS4 ( long N , GEN w ) { GEN D = mfunram ( N , 0 ) ; long i , lD = lg ( D ) , lw = lg ( w ) ; for ( i = 1 ; i < lD ; i ++ ) { long p , d = D [ i ] , ok = 0 ; for ( p = 2 ; p < lw ; p ++ ) if ( w [ p ] && kross ( d , p ) == -1 ) { ok = 1 ; break ; } if ( ! ok ) return 0 ; } return 1 ; }
Return 1 if F is definitely not S4 type; return 0 on failure.
Return 1 if F is definitely not S4 type ; return 0 on failure .