bridge/class-master/depend/pari/src/basemath/galconj.c
/* Let O a set of orbits as indices and L the corresponding roots.
 * Return the set of orbits as roots. */
Let O a set of orbits as indices and L the corresponding roots.
Return the set of orbits as roots.
Let O a set of orbits as indices and L the corresponding roots . Return the set of orbits as roots .
static GEN
fixedfieldorbits(GEN O, GEN L)
{
  GEN S = cgetg(lg(O), t_MAT);
  long i;
  for (i = 1; i < lg(O); i++) gel(S,i) = vecpermute(L, gel(O,i));
  return S;
}
static GEN fixedfieldorbits ( GEN O , GEN L ) { GEN S = cgetg ( lg ( O ) , t_MAT ) ; long i ; for ( i = 1 ; i < lg ( O ) ; i ++ ) gel ( S , i ) = vecpermute ( L , gel ( O , i ) ) ; return S ; }
Let O a set of orbits as indices and L the corresponding roots.
Let O a set of orbits as indices and L the corresponding roots .