#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1994,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
#############################################################################

olprint(`**********************************************************************\
****`);
olprint(`*                                                                     \
   *`);
olprint(`*                                                                     \
   *`);
olprint(`*                    Unipotent characters of GL_2(q)                  \
   *`);
olprint(`*                                                                     \
   *`);
olprint(`*                                                                     \
   *`);
olprint(`**********************************************************************\
****`);
`uniGL2`   :=array(-2..2,-1..5,[
[`GL_2(q)`,`uniA1002`
,   q*(q+1)*(q-1)^2
,   2
,   2
,   4
,   5
]
,[
``,``,
[`A_1(q)`,   q-1   ,   [[1, 1]]   ]
,
[`A_1(q)`,   q-1   ,   [[2]]   ]
,
[`\\emptyset`,   (q-1)^2   ,   [[[1]], 1]   ]
,
[`\\emptyset`,   (q-1)*(q+1)   ,   [[[1]], 1]   ]
,
GL2||0[-1,5]
]
,[
erg[0,-1]   ,
erg[0,0]   ,
1   ,
q^2-1   ,
(q+1)*q   ,
(q-1)*q   ,
GL2||0[0,5]   ]
,[
[[1, 1]]   ,
q   ,
q   ,
0   ,
1   ,
-1   ,
GL2||0[1,5]   ]
,[
[[2]]   ,
1   ,
1   ,
1   ,
1   ,
1   ,
GL2||0[2,5]   ]
]):
KlassentypOrduniA1002:=   [q-1, q-1, 1/2*q^2-3/2*q+1, 1/2*q^2-1/2*q]   :
NurPolynomuniA1002:=true:
InformationuniA1002:=TEXT(
`- Information about the tables of unipotent characters for GL_2(q).`,
``,
`- CHEVIE-name of the table: uniGL2`,
``,
`- This table is computed with general programs written by F.Luebeck.`,
`  They compute the Deligne-Lusztig characters R_T^G(1) and find the`,
`  unipotent characters as linear combinations of them.`,
``):

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