41 if( comm == MPI_COMM_NULL ) {
51 MPI_Comm_rank(comm, &myrank);
52 MPI_Comm_size(comm, &nproc);
58 sz_stack[*sz_ptr]->
comm = comm;
59 sz_stack[*sz_ptr]->
rank = myrank;
60 sz_stack[*sz_ptr]->
size = nproc;
65 sz_stack[*sz_ptr]->
type = MPI_DOUBLE;
73 sz_stack[*sz_ptr]->
beg[
i]=0;
74 sz_stack[*sz_ptr]->
end[
i]=0;
75 sz_stack[*sz_ptr]->
lbeg[
i]=0;
76 sz_stack[*sz_ptr]->
lend[
i]=0;
77 sz_stack[*sz_ptr]->
bg[
i]=0;
78 sz_stack[*sz_ptr]->
eg[
i]=0;
83 sz_stack[*sz_ptr]->
begs = NULL;
84 sz_stack[*sz_ptr]->
ends = NULL;
int isperiodic[AL_MAX_DIM]
int isparallel[AL_MAX_DIM]
int AL_Sz_init(MPI_Comm comm, int *sz_ptr)
int stack_ptr[AL_MAX_ARRAYS]
int larrdim_gp[AL_MAX_DIM]
SZ * sz_stack[AL_MAX_ARRAYS]
int isstaggered[AL_MAX_DIM]
Internal include file for the ArrayLib.