47 MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
50 printf(
"AL_Init_stack_: SZ stack initialized\n");
85 if( !(sz_stack[i] = (
SZ *)malloc(
sizeof(
SZ))) ){
86 printf(
"AL_Allocate_sz_: Failed to allocate SZ\n");
116 s = sz_stack[sz_ptr];
123 for( i=0; i<ndim; i++){
124 MPI_Type_free(&(s->
strided[i]));
125 MPI_Type_free(&(s->
type_lr[i]));
126 MPI_Type_free(&(s->
type_rl[i]));
135 if( (s->
begs != NULL) ) free(s->
begs);
140 free(sz_stack[sz_ptr]);
int stack_ptr[AL_MAX_ARRAYS]
MPI_Comm oned_comm[AL_MAX_DIM]
MPI_Datatype type_rl[AL_MAX_DIM]
int AL_Deallocate_sz_(int sz_ptr)
SZ * sz_stack[AL_MAX_ARRAYS]
int AL_Valid_ptr(int sz_ptr)
MPI_Datatype strided[AL_MAX_DIM]
Internal include file for the ArrayLib.
MPI_Datatype type_lr[AL_MAX_DIM]