local b, B, result;

result := rec();

b := E(7)+E(7)^2+E(7)^4;
B := -1-b;

result.comment := "2A7 as 20 x 20 matrices (a) over Z(b7)\n\
";

result.symmetricforms := [ ];

result.antisymmetricforms := [ ];

result.hermitianforms := [ ];

result.centralizeralgebra := [ IdentityMat(20) ];

result.generators := [
[[0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-1],
[-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,B,-2*b-B,1,-b-2*B],
[0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,-B,b,-1,b+2*B],
[0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-b,1,1,b],
[0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,-1,-1,B,-1],
[0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,-b,1,2],
[0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,-b,1,1,-1],
[0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,-1,0,0,-B],
[0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,-1,b],
[0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,B,-b,-2*b-B],
[0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,-B,0,-2],
[0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,B,-b,1,-b-2*B],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,b,-1,-1,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-b,-b,1,1],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,B,-1],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,-B,-B],
[0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,-B,b,-1,-1],
[0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-b,0,1],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,-1,-1,-b,B],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,1,0,-B]]
,
[[0,0,0,0,0,0,0,0,0,0,0,0,0,b,0,-1,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,1,1,b,-B,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,-1,b+2*B,-b,-b,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,-B,-1,2*b+B,0,0,0,0],
[0,1,0,0,0,0,0,0,0,0,0,0,B,0,0,b,0,0,0,0],
[0,0,1,0,0,0,0,0,0,0,0,0,1,1,-B,1,0,0,0,0],
[0,b,-1,-1,0,0,0,0,0,0,0,0,1,0,0,-1,0,0,0,0],
[1,1,-B,0,0,0,0,0,0,0,0,0,-1,0,-1,-B,0,0,0,0],
[0,0,0,0,0,1,0,0,0,0,0,0,-1,0,0,-B,0,0,0,0],
[0,0,0,0,0,0,1,0,0,0,0,0,-b,-b,1,1,0,0,0,0],
[0,0,0,0,0,b,-1,-1,0,0,0,0,0,0,0,-1,0,0,0,0],
[0,0,0,0,1,1,-B,0,0,0,0,0,0,1,0,-B,0,0,0,0],
[0,0,0,0,0,0,0,0,0,1,0,0,-1,-1,0,1,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,b,-1,-1,B,-b,1,-B,0,0,0,0],
[0,0,0,0,0,0,0,0,1,1,-B,0,b,b,-1,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,1,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0],
[0,0,0,0,0,0,0,0,0,0,0,0,-b,-b,1,0,0,b,-1,-1],
[0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,-B,1,1,-B,0]]];

return result;