int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void* baseptr) { if (max_ep > 0) { *(char **)baseptr = EPLIB_memalign(PAGE_SIZE, size); if (*(char **)baseptr == NULL) return MPI_ERR_NO_MEM; return MPI_SUCCESS; } return PMPI_Alloc_mem(size, info, baseptr); }
int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr) { int rank; PMPI_Comm_rank(MPI_COMM_WORLD, &rank); fprintf(stderr, "MPI_Alloc_mem[%d]: size %0ld\n", rank, (long)size); fflush(stderr); return PMPI_Alloc_mem(size, info, baseptr); }
int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr){ return PMPI_Alloc_mem(size, info, baseptr); }