bridge/class-master/depend/pari/src/basemath/subgroup.c
/* treat subgroup Hp (not in HNF, T->fun should do it if desired) */
treat subgroup Hp (not in HNF, T->fun should do it if desired)
treat subgroup Hp ( not in HNF T - > fun should do it if desired )
static void
treatsub(subgp_iter *T, GEN H)
{
  long i;
  if (!T->subq) {T->stop = T->fun(T->fundata, H); T->countsub++; }
  else
  { 
    GEN Hp = gmul(T->expoI, H); 
    long n = lg(T->subqpart)-1;
    for (i=1; i<=n; i++)
      if (T->fun(T->fundata, shallowconcat(Hp, gel(T->subqpart,i))))
        { T->stop = 1; break; }
    T->countsub += n;
  }
}
static void treatsub ( subgp_iter * T , GEN H ) { long i ; if ( ! T -> subq ) { T -> stop = T -> fun ( T -> fundata , H ) ; T -> countsub ++ ; } else { GEN Hp = gmul ( T -> expoI , H ) ; long n = lg ( T -> subqpart ) - 1 ; for ( i = 1 ; i <= n ; i ++ ) if ( T -> fun ( T -> fundata , shallowconcat ( Hp , gel ( T -> subqpart , i ) ) ) ) { T -> stop = 1 ; break ; } T -> countsub += n ; } }
treat subgroup Hp (not in HNF, T->fun should do it if desired)
treat subgroup Hp ( not in HNF T - > fun should do it if desired )
/* not a p group, add the trivial part */ /* lift H to G */