CharToLaTeXChar:=function(arg)
                 local name,sbgname,charnmbs, AtlasChartab, chartab, str, l, r, k, i, j, entry, ulc;

 
    chartab:=arg[1];

    AtlasChartab:=[];
    for j in [1..Length(chartab)] do
            l:=[];
            for i in [1..Length(chartab)] do
                 l[i]:=Quadratic(chartab[j][i]).ATLAS;  
            od;
            AtlasChartab[j]:=l;
    od;

    str:="";
    l:=Length(AtlasChartab);

    for r in [[1..l]] do
        for k in [[1..l]] do
            Append( str, "\\[\n");
            Append( str, "\\begin{array}{r|");
            for i in k do 
                Add( str, 'r');
            od;
            Append ( str, "} \\hline\n" );

            if IsBound(ulc) then  
               Append( str, ulc );
            fi;
 
            for i in k do
                Append( str, " & " );
                Append( str, " S_{" );
                Append( str, String( i ) );
                Append( str, "}" );
                Append( str, "\n");
            od;

            Append( str, " \\rule[-7pt]{0pt}{20pt} \\\\ \\hline\n" );

            for i in r do
                Append( str, "\\chi_{" );
                Append( str, String( i ) );
                Append( str, "}" );
                for entry in AtlasChartab[i]{k} do
                     Append( str, " & " );
                     Append( str, String( entry ) );
                od;
                Append( str, " \\\\\n" );
            od;
            Append( str, "\\hline \n" );
            Append( str, "\\end{array}\n" );
            Append( str, "\\]\n\n" );
        od;
    
    od;

    return str;

end;