36 int ndim, gp, nleft, nright, tag1, tag2;
47 printf(
"AL_Decompose: wrong SZ pointer\n");
57 for(nd=0;nd<ndim;nd++){
61 if( gp > 0 && dims[nd] != 0 ){
63 nright = s->
right[nd];
70 MPI_Sendrecv(&buf[sendb], 1, itype, nleft, tag1,
71 &buf[recvb], 1, itype, nright,tag1,
75 nright = s->
right[nd];
83 MPI_Sendrecv(&buf[sendb], 1, itype, nright, tag2,
84 &buf[recvb], 1, itype, nleft,tag2,
91 if(myrank==0) printf(
"AL_Exchange: filled ghost regions\n");
int AL_Exchange_dim(char *buf, int *dims, int sz_ptr)
SZ * sz_stack[AL_MAX_ARRAYS]
MPI_Datatype type_rl[AL_MAX_DIM]
int stack_ptr[AL_MAX_ARRAYS]
Internal include file for the ArrayLib.
MPI_Datatype type_lr[AL_MAX_DIM]