#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
#############################################################################
#                                                                           #
#   Die Greenfunktionen der Sp_4(q), q = 2^n                                #
#                                                                           #
#############################################################################
##
#A {\sc Ennomoto,H.}, The Characters of the Finite  Symplectic Group 
#A    Sp(4,q), q=2^f, Osaka J. Math. {\bf 9} (1972), 75--94
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*                    Green Functions of Sp_4(q), q = 2^n                 *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);


# tafel der werte

`C2p2green`:=array(-2..5, -1..6, [

 [`Sp_4(q)`,`C2002green`, q^4*(q-1)^2*(q+1)^2*(q^2+1), 5, 5, 6, 6],

 [`classname`, [``], [`A1`], [`A2`], [`A31`], [`A32`], [`A41`], [`A42`]],

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

 [[[[1,1],[]]], (q+1)^2*(q^2+1), (q+1)^2*(q^2+1), (q+1)^2, (q+1)^2, 2*q+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), 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),
  1, 1, 1],

 [[[[],[1,1]]], (q-1)^2*(q^2+1), (q-1)^2*(q^2+1), (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),
  1, 1, 1]       
]):

KlassentypOrdC2002green:=array(1..6,[1,1,1,1,1,1]):

NurPolynomC2002green:=true:

# 5) Informationen:
Information.`C2002green`:=TEXT(
`- Information about the Green functions of $Sp_4(q)$, q even.`,
``,
`- CHEVIE-name of the table: ``C2p2green```,
``,
`- The table was first computed in:`,
`  {\\sc H. Ennomoto}, The characters of the finite  symplectic group`,
`  $Sp(4,q)$, $q=2^f$, {\\em Osaka J. Math.} {\\bf9} (1972), 75--94.`,
``,
`- The names of the unipotent classes are taken from this paper.`,
``
):

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

