# Character: X13+X14
# Comment: Catalogue of lattices, Nebe & Sloane, reseeded
# Ind: 0
# Irred-dim: 10
# Ring: Z
# Sparsity: 56%
# Maximum absolute entry: 15

local b, B, w, W, i, result, delta, idmat;

result := rec();

w := E(3); W := E(3)^2;
b := E(7)+E(7)^2+E(7)^4; B := -1-b;  # b7, b7**
i := E(4);
result.comment := "2M22 as 20 x 20 matrices\n";

result.generators := [
[[1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0],
[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0],
[-1,2,1,-1,-6,3,1,2,-3,3,-1,-5,-1,5,-1,1,-5,4,-2,-2],
[-8,6,14,-8,-7,-9,0,6,5,0,-15,0,3,-7,-6,-10,-2,1,4,-7],
[-3,0,5,-4,-1,-4,0,1,4,-1,-6,2,1,-4,-2,-4,1,-1,2,-2],
[0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[-2,2,5,-2,-3,-3,0,2,1,0,-5,0,1,-2,-2,-3,-1,1,1,-2],
[1,-2,-3,1,2,2,0,-2,0,-1,4,2,-1,1,1,2,2,-1,-1,2],
[-2,0,5,-2,2,-5,0,1,4,-1,-6,3,2,-6,-2,-5,3,-2,3,-1],
[-5,3,8,-5,-4,-5,0,3,3,0,-9,0,1,-4,-3,-6,-1,1,2,-4],
[0,2,-2,2,-3,3,0,1,-3,2,3,-4,-1,5,0,3,-4,3,-2,-1],
[1,1,-3,2,0,2,0,0,-2,1,3,-2,0,3,1,2,-1,1,-1,0],
[-1,1,1,-1,-2,0,0,0,0,0,0,0,0,1,0,0,-1,1,0,-1],
[-2,2,3,-1,-1,-3,0,2,1,0,-4,-1,1,-2,-2,-3,-1,1,2,-2],
[-5,-1,7,-5,1,-7,0,1,6,-2,-8,5,2,-8,-3,-7,3,-3,4,-2]]
,
[[0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,-1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0],
[-1,-1,0,0,-1,0,1,0,0,2,-1,-1,0,1,-1,0,-1,0,0,0],
[0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[1,1,0,0,0,-1,-1,0,0,-1,1,2,1,-1,0,0,1,0,0,0],
[4,4,0,5,0,0,0,4,-7,1,0,-3,1,0,-1,0,-2,0,0,0],
[2,2,0,2,0,0,0,2,-3,1,0,-2,0,0,0,0,-1,0,0,0],
[0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0],
[1,1,0,0,0,0,0,0,0,-1,1,0,0,0,0,0,0,0,0,0],
[1,1,0,2,0,0,0,2,-2,1,0,-1,1,0,-1,0,-1,0,0,0],
[0,0,0,-1,0,0,0,-1,1,0,0,0,0,0,1,0,1,0,0,0],
[0,0,-1,1,0,0,1,1,-1,2,-1,-2,0,1,0,0,-1,0,0,0],
[3,3,0,3,0,0,0,3,-5,1,0,-2,1,0,0,0,-1,0,0,0],
[-1,-1,1,-1,0,-1,0,-1,1,-1,-1,2,0,-2,0,-1,1,0,0,0],
[-2,-2,0,-2,0,0,0,-2,2,-1,0,2,-1,0,1,0,1,0,0,0],
[0,0,0,-1,0,0,-1,-1,0,-1,0,1,-1,-1,1,0,0,-1,0,0],
[1,1,0,-1,0,0,-1,-1,0,-2,1,1,-1,-1,2,0,0,0,-1,0],
[3,3,0,2,0,0,-1,2,-4,0,0,-2,0,-1,1,0,-1,0,0,-1]]];

result.symmetricforms := [ ];
result.antisymmetricforms := [ ]; 
result.hermitianforms := [ ]; 
result.centralizeralgebra := [ ];

return result;