{\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++) // independent loop\\
2 \> \{ \\
3 \> \> for(x=0;x$<$r;x++) \\
4 \> \> \> for(y=0;y$<$r;y++) \\
5 \> \> \> \> G[1][k][x][y]=H[k][x][y];  \\
6 \> \> tr=0; \\
7 \> \> for(l=0; l$<$r;l++) \\
8 \> \> \> tr+=G[1][k][l][l]; \\
9 \> \> a[1][k] =-tr; \\
10 \> \> for(x=0;x$<$r;x++) \\
11 \> \> \> for(y=0;y$<$r;y++) \\
12 \> \> \> \> R[1][k][x][y]=G[1][k][x][y]  \\
   \> \> \> \> \>    + a[1][k]*Ident[x][y]; \\
13 \> \} \\
14 \> for(i=2;i$<$r+1; i++) //This loop is not independent, \\
15 \> \> for(k=0;k$<$n*i+1;k++) // independent loop\\
16 \> \> \{ \\
17 \> \> \> min=k; \\
18 \> \> \> if(k$>$n) \\
19 \> \> \> \> min=n; \\
20 \> \> \> for (ll=0;ll$<$min+1;ll++) \\
21 \> \> \> \{ \\
22 \> \> \> \> kr=k-ll; \\
23 \> \> \> \> if(kr$<$=(i-1)*n) \\
24 \> \> \> \> \> for(x=0;x$<$r;x++) \\
25 \> \> \> \> \> \> for(y=0;y$<$r;y++) \\
26 \> \> \> \> \> \> \{ \\
27 \> \> \> \> \> \> \> G[i][k][x][y]=0; \\
28 \> \> \> \> \> \> \> for(l=0;l$<$r;l++) \\
29 \> \> \> \> \> \> \> \> G[i][k][x][y]+=H[ll][x][l]\\
   \> \> \> \> \> \> \> \> \>   * R[i-1][kr][l][y]; \\
30 \> \> \> \> \> \> \} \\
31 \> \> \> \} \\
32 \> \> \> tr=0; \\
33 \> \> \> for(l=0; l$<$r;l++) \\
34 \> \> \> \> tr+=G[i][k][l][l]); \\
35 \> \> \> a[i][k]=-tr/i; \\
36 \> \> \> for(x=0;x$<$r;x++) \\
37 \> \> \> \> for(y=0;y$<$r;y++) \\
38 \> \> \> \> \> R[i][k][x][y]=G[i][k][x][y] \\
   \> \> \> \> \> \>   +a[i][k]*Ident[x][y]; \\
39 \> \> \} 
\end{tabbing}
}}
\end{center}
}