E2=Enx[i][j][k]+Enx[i][j][k];
Efx[i][j][k]=E2−Epx[i][j][k]+ssnx[i][j][k]
(R[](Enx[i][j+1][k]E2+Enx[i][j1][k])
+R[](Enx[i][j][k+1]E2+Enx[i][j][k1])
R[](Eny[i+1][j][k]Eny[i+1][j1][k]+
Eny[i][j1][k]Eny[i][j][k])
R[](Enz[i+1][j][k]Enz[i+1][j][k1]+
Enz[i][j][k1]Enz[i][j][k]));
Listing 1: Extract of a C-program that shows the computation of .