local z, r, result;

result := rec();

result.comment := "2.L2(97) as 98 x 98 monomial matrices over Z(z96)\n";

# Change the value of r to any number between 1 and 24
# to get the complete set of inequivalent faithful irreducible 98-dimensional
# representations of 2.L2(97)
r := 1;
z := E(96)^(2*r-1);

result.symmetricforms := [ ]; 
result.antisymmetricforms := [ ]; 
result.hermitianforms := [ IdentityMat(98) ];
result.centralizeralgebra := [ IdentityMat(98) ];

result.generators := [
DiagonalMat([z^29,z^17,z^27,z^49,z^44,z^69,z^50,z^56,z^77,z^33,z^15,
  z^86,z^83,z^88,z^6,z^47,z^87,z^10,z^71,z^19,z^68,z^22,z^91,z^21,
  z^66,z^16,z^67,z^5,z^81,z^40,z^94,z^79,z^73,z^75,z^3,z^20,z^63,z^41,
  z^34,z^52,z^26,z^30,z^7,z^92,z^43,z^12,-1,z^60,z^31,z^93,1,z^53,
  z^84,z^23,z^13,z^95,z^55,z^39,z^62,z^70,z^42,z^25,z^36,z^37,z^4,
  z^61,z^90,z^14,z^51,z^58,z^94,z^9,z,z^59,z^38,z^8,z^46,z^78,z^76,
  z^64,z^80,z^11,z^2,z^74,z^89,z^32,z^45,z^54,z^18,z^82,z^28,z^24,
  z^57,z^85,z^72,z^35,z^65,z^50]) *
PermutationMat(
( 1,20)( 2,49)( 3,24)( 4,56)( 5,65)( 6,34)( 7,31)( 8,14)( 9,27)(10,11)(12,70)
(13,66)(15,61)(16,73)(17,93)(18,75)(19,33)(21,79)(22,41)(23,52)(25,78)(26,86)
(28,45)(29,37)(30,76)(32,97)(35,87)(36,91)(38,43)(39,68)(40,44)(42,89)(46,63)
(47,51)(48,53)(50,69)(54,62)(55,96)(57,85)(58,72)(59,90)(60,84)(64,82)(67,88)
(71,98)(74,94)(77,83)(80,81), 98)
,
DiagonalMat([z^46,z^79,z^87,z^59,z^42,z^53,z^54,z^21,z^78,z^11,z^31,
  z^68,z^75,z^38,z^26,z^18,z^76,z^55,z^25,z^63,z^95,z^93,z^81,z,z^28,
  z^19,z^91,z^10,z^49,z^62,z^71,z^35,z^3,z^45,z^41,z^74,z^6,z^89,z^52,
  z^82,z^34,z^44,z^66,z^61,z^86,z^67,z^73,z^94,z^50,z^32,z^7,z^4,z^9,
  z^23,z^64,z^8,z^27,z^88,z^36,z^85,z^39,z^12,z^38,z^83,z^33,z^84,
  z^22,z^2,z^57,z^15,1,z^90,z^92,z^20,z^37,z^80,z^58,z^51,z^69,z^43,
  z^47,z^24,z^13,z^60,z^29,z^65,z^77,-1,z^14,z^17,z^70,z^5,z^40,z^30,
  z^16,z^72,z^56,z^10]) *
PermutationMat(
( 1,91,17)( 2,58,19)( 3,10,48)( 4,94,51)( 5,54,11)( 6,57,95)( 7,86,47)
( 8,70,84)( 9,20,78)(12,81,87)(13,59,23)(14,98,88)(15,49,74)(16,34,65)
(18,24,93)(21,35,97)(22,63,44)(25,26,29)(27,85,96)(28,73,72)(30,62,67)
(31,56,90)(32,77,33)(36,66,41)(37,52,45)(38,43,75)(39,69,64)(40,71,89)
(42,83,61)(46,92,82)(53,68,60)(76,79,80), 98)];

return result;