rcce/lu/exchange_3.c

16       double bufin[5*2*isiz2*isiz3], bufout[5*2*isiz2*isiz3];
52         RCCE_recv((char*)bufin, 10*ny*nz*sizeof(double), north);
56             g(1,-1,j,k) = bufin[ib++];
57             g(2,-1,j,k) = bufin[ib++];
58             g(3,-1,j,k) = bufin[ib++];
59             g(4,-1,j,k) = bufin[ib++];
60             g(5,-1,j,k) = bufin[ib++];
61             g(1,0,j,k) = bufin[ib++];
62             g(2,0,j,k) = bufin[ib++];
63             g(3,0,j,k) = bufin[ib++];
64             g(4,0,j,k) = bufin[ib++];
65             g(5,0,j,k) = bufin[ib++];
95         RCCE_recv((char*)bufin, 10*ny*nz*sizeof(double), south);
99             g(1,nx+2,j,k) = bufin[ib++];
100             g(2,nx+2,j,k) = bufin[ib++];
101             g(3,nx+2,j,k) = bufin[ib++];
102             g(4,nx+2,j,k) = bufin[ib++];
103             g(5,nx+2,j,k) = bufin[ib++];
104             g(1,nx+1,j,k) = bufin[ib++];
105             g(2,nx+1,j,k) = bufin[ib++];
106             g(3,nx+1,j,k) = bufin[ib++];
107             g(4,nx+1,j,k) = bufin[ib++];
108             g(5,nx+1,j,k) = bufin[ib++];
145         RCCE_recv((char*)bufin, 10*nx*nz*sizeof(double), west);
149             g(1,i,-1,k) = bufin[ib++];
150             g(2,i,-1,k) = bufin[ib++];
151             g(3,i,-1,k) = bufin[ib++];
152             g(4,i,-1,k) = bufin[ib++];
153             g(5,i,-1,k) = bufin[ib++];
154             g(1,i,0,k) = bufin[ib++];
155             g(2,i,0,k) = bufin[ib++];
156             g(3,i,0,k) = bufin[ib++];
157             g(4,i,0,k) = bufin[ib++];
158             g(5,i,0,k) = bufin[ib++];
189         RCCE_recv((char*)bufin, 10*nx*nz*sizeof(double), east);
193             g(1,i,ny+2,k) = bufin[ib++];
194             g(2,i,ny+2,k) = bufin[ib++];
195             g(3,i,ny+2,k) = bufin[ib++];
196             g(4,i,ny+2,k) = bufin[ib++];
197             g(5,i,ny+2,k) = bufin[ib++];
198             g(1,i,ny+1,k) = bufin[ib++];
199             g(2,i,ny+1,k) = bufin[ib++];
200             g(3,i,ny+1,k) = bufin[ib++];
201             g(4,i,ny+1,k) = bufin[ib++];
202             g(5,i,ny+1,k) = bufin[ib++];