"Source: Text/RepThy/ModAlg.text";
"Line: 1333";
"Date: Tue May 30 11:26:03 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/RepThy/ModAlg.text, line: 1333
// Example: H97E10 ()
print "Example: H97E10";
ei := GetEchoInput();
SetEchoInput(true);
G := TransitiveGroup(8, 5);
TransitiveGroupDescription(G);
R := AbsolutelyIrreducibleModules(G, Rationals());
R;
R := R[5];
WriteGModuleOver(R, CyclotomicField(5));
AbsoluteModuleOverMinimalField($1);
k := QuadraticField(3);
SchurIndices(Character(R), k);
A := SplittingField($1);
A;
A := NumberField(A);
A;
A := AbsoluteField(A);
A;
WriteGModuleOver(R, A);
WriteGModuleOver(R, A : Subfield);
SetEchoInput(ei);
