FORALL ( i = 0:nx, j = 0:ny ) u(i,j) = fact*(u(i,j)-avg)

FORALL ( i = 0:7£º2 £©
¡¡¡¡¡¡FORALL ( i = 2:7:2 ) r(i-1,j) = f(i,j)
¡¡¡¡¡¡r(7,j) = f(0,j)
END FORALL