"Source: Text/Geometry/ModBrdt.text";
"Line: 108";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModBrdt.text, line: 108
// Example: H146E1 ()
print "Example: H146E1";
ei := GetEchoInput();
SetEchoInput(true);
A := QuaternionOrder(101);
FF := FiniteField(7);
M := BrandtModule(A,FF);
Decomposition(M,13);
DimensionCuspFormsGamma0(3*7*71,2);
assert $1 eq 189;
DimensionNewCuspFormsGamma0(3*7*71,2);
assert $1 eq 71;
BrandtModuleDimension(3*7*71,1);
assert $1 eq 72;
M := BrandtModule(3*7*71 : ComputeGrams := false);
S := CuspidalSubspace(M);
Dimension(S);
assert $1 eq 71;
[ Dimension(N) : N in Decomposition(S,13 : Sort := true) ];
SetEchoInput(ei);
