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