#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
# Ortho o.k. uep 6.2.92
#############################################################################
#                                                                           #
#   Die Greenfunktionen der GL_5(q):2                                       #
#                                                                           #
#############################################################################
##
#A {\sc G. Malle}, Generalized Deligne-Lusztig characters, to appear in J. Algebra
#A 
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*               Outer Green Functions of GL_5(q):2  in char 2            *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);

# tafel der Werte

`GL5e2green` := array(-2..5, -1..7, [
 
 [`GL_5(q)\\colon 2`, `A4e2002green`, q^10*(q-1)^5*(q+1)^2*(q^2+q+1)*(q^2+1)
  *(q^4+q^3+q^2+q+1), 5, 5, 7, 7],

 [`classes`, ` `, `u_1`, `u_2`, `u_3`, `u_4`, `u_5`, `u_6`, `u_7` ],

 [`classlength`,1, 1, q^4-1, 1/2*(q^4-1), 1/2*(q^4-1), (q^2-1)*(q^4-1),
  1/2*q^2*(q^2-1)*(q^4-1), 1/2*q^2*(q^2-1)*(q^4-1)],

 [[[1,1],[]], (q+1)^2*(q^2+1), (q+1)^2*(q^2+1),(q+1)^2,(q+1)^2,(q+1)^2,2*q+1,
  1,1],
 
 [[[2],[]], -(q-1)*(q+1)*(q^2+1), -(q-1)*(q+1)*(q^2+1),(q^2+1),-(q-1)*(q+1),
  -(q-1)*(q+1),1,1,1],
 
 [[[1],[1]], -(q-1)*(q+1)*(q^2+1), -(q-1)*(q+1)*(q^2+1),-(q-1)*(q+1),(q^2+1),
  (q^2+1), 1,1,1],
 
 [[[],[1,1]], (q-1)^2*(q^2+1), (q-1)^2*(q^2+1),(q-1)^2,(q-1)^2,(q-1)^2,-2*q+1,
  1,1],
 
 [[[],[2]], (q-1)^2*(q+1)^2, (q-1)^2*(q+1)^2,-(q-1)*(q+1),-(q-1)*(q+1),
  -(q-1)*(q+1), 1,1,1]
]):

KlassentypOrdA4e2002green:=array(1..7,[1,1,1,1,1,1,1]):

NurPolynomA4e2002green:=true:

# 5) Informationen:
Information.`A4e2002green`:=TEXT(
`- Information about the Green functions of $GL_5(2^n):2$.`,
``,
`- CHEVIE-name of the table: ``GL5e2green```,
``,
`- The table was first computed in:`,
`  {\\sc G. Malle}, Generalized Deligne-Lusztig characters,`,
`    {\\em J. Algebra \\bf159} (1993), 64--97.`,
``
):

g := `GL5e2green`;
print(`g := ``GL5e2green`` `);
