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
牋牋