{\tt \small
\begin{center}
\baselineskip=12pt
\fbox{ \parbox{3in}{
\begin{tabbing}
%xxxxx\=yyyyy\=zzzzz\=aaaaa\=bbbbb\=ccccc\=ddddd\=eeeee\=fffff\= \kill
xxx\=yyy\=zzz\=aaa\=bbb\=ccc\=ddd\=eee\=fff\= \kill
1 \> for (k=0;k$<$n+1;k++) \\
2 \> \{ \\
3 \> \> tr=0; \\
4 \> \> for(l=0;l$<$r;l++) \\
5 \> \> \> tr=tr+G[r][k][l][l]; \\
6 \> \> alpha[k]=pow(-1,r+1)*tr/r;\\
7 \> \} \\
8 \> for(k=0;k$<$n*(r-1)+1;k++)\\
9 \> \> for(x=0;x$<$r;x++)\\
10 \> \> \>for(y=0;y$<$r;y++) \\
11 \> \> \> \>Q[k][x][y]=pow(-1,r+1) \\
   \> \> \> \> \> *R[r-1][k][x][y]; \\
12 \> // Check calculations \\
13 \> for(k=0;k$<$r*n+1;k++)\\
14 \> \> for(x=0;x$<$r; x++) \\
15 \> \> \> for(y=0;y$<$r;y++) \\
16 \> \> \> \{\\
17 \> \> \> \> if((G[k][k][x][y]+pow(-1,r)\\
   \> \> \> \> \> *alpha[k]*Ident[x][y])!=0)\\
18 \> \> \> \> \> fprintf(stderr,"Error!!!"); \\
19 \> \> \> \} 
\end{tabbing}
}}
\end{center}
}