42 printf(
"AL_Set_comm: wrong SZ pointer\n");
51 MPI_Comm_rank(comm, &myrank);
52 MPI_Comm_size(comm, &nproc);
62 }
else { s->
rank = MPI_UNDEFINED; }
86 printf(
"AL_Set_dimensions: wrong SZ pointer\n");
120 printf(
"AL_Set_type: wrong SZ pointer\n");
132 MPI_Type_contiguous( nelem, type, &ivector);
133 MPI_Type_commit(&ivector);
161 printf(
"AL_Set_global_dim: wrong SZ pointer\n");
171 for(i=0;i<ndim;i++){ s->
arrdim[
i] = gdims[
i] ;}
196 printf(
"AL_Set_local_dim: wrong SZ pointer\n");
235 printf(
"AL_Set_parallel_dim: wrong SZ pointer\n");
272 printf(
"AL_Set_periodic_dim: wrong SZ pointer\n");
284 printf(
"Warning: periods has illegal values in AL_Set_periodic_dim\n");
312 printf(
"AL_Set_staggered_dim: wrong SZ pointer\n");
324 printf(
"Warning: stagger has illegal values in AL_Set_staggered_dim\n");
353 printf(
"AL_Set_ghosts: wrong SZ pointer\n");
364 s->
bg[
i] = ghosts[
i];
365 s->
eg[
i] = ghosts[
i];
int isperiodic[AL_MAX_DIM]
int AL_Set_dimensions(int ndim, int isz)
int isparallel[AL_MAX_DIM]
int AL_Set_parallel_dim(int *pardims, int isz)
int AL_Set_staggered_dim(int *stagger, int isz)
int AL_Set_type(AL_Datatype type, int nelem, int isz)
int AL_Set_ghosts(int *ghosts, int isz)
int stack_ptr[AL_MAX_ARRAYS]
int AL_Set_comm(MPI_Comm comm, int isz)
int isstaggered[AL_MAX_DIM]
int AL_Set_periodic_dim(int *periods, int isz)
SZ * sz_stack[AL_MAX_ARRAYS]
int AL_Set_local_dim(int *ldims, int isz)
Internal include file for the ArrayLib.
int AL_Set_global_dim(int *gdims, int isz)