{\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=p;k$<$n+1;k+=NUMPROC) \\
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 \> barrier(barrier1, NUMPROC); \\
15 \> for(i=2;i$<$r+1; i++) \\
16 \> \{\\
17 \> \> for(k=p;k$<$n*i+1;k+=NUMPROC) \\
18 \> \> \{ \\
19 \> \> \> min=k; \\
20 \> \> \> if(k$>$n) \\
21 \> \> \> \> min=n; \\
22 \> \> \> for (ll=0;ll$<$min+1;ll++) \\
23 \> \> \> \{ \\
24 \> \> \> \> kr=k-ll; \\
25 \> \> \> \> if(kr$<$=(i-1)*n) \\
26 \> \> \> \> \> for(x=0;x$<$r;x++) \\
27 \> \> \> \> \> \> for(y=0;y$<$r;y++) \\
28 \> \> \> \> \> \> \{ \\
29 \> \> \> \> \> \> \> G[i][k][x][y]=0; \\
30 \> \> \> \> \> \> \> for(l=0;l$<$r;l++) \\
31 \> \> \> \> \> \> \> \> G[i][k][x][y]+=H[ll][x][l]\\
   \> \> \> \> \> \> \> \> \> *R[i-1][kr][l][y];\\
32 \> \> \> \> \> \> \} \\
33 \> \> \> \} \\
34 \> \> \> tr=0; \\
35 \> \> \> for(l=0; l$<$r;l++) \\
36 \> \> \> \> tr+=G[i][k][l][l]); \\
37 \> \> \> a[i][k]=-tr/i; \\
38 \> \> \> for(x=0;x$<$r;x++) \\
39 \> \> \> \> for(y=0;y$<$r;y++) \\
40 \> \> \> \> \> R[i][k][x][y]=G[i][k][x][y] \\ 
   \> \> \> \> \> \> +a[i][k]*Ident[x][y]; \\ 
41 \> \> \} \\
42 \> \> SYNCHRONIZATION  \\
43 \> \} 
\end{tabbing}
}}
\end{center}
}