int PMPI_Finalize (void) { int i; _MPI_FINALIZED_FLAG = _MPI_TRUE; if ( (_MPI_INIT_STATUS)!=(_MPI_STARTED) ) { _MPI_ERR_ROUTINE(MPI_ERR_IN_STATUS, "MPI_FINALIZE: MPI has not been initialized."); MPI_Abort (MPI_COMM_NULL, MPI_ERR_IN_STATUS); return _MPI_NOT_OK; } else { _MPI_INIT_STATUS = _MPI_ENDED; for (i = 1; i < _MPI_PREALLOCATION_SIZE; i++) { _MPI_Comm_Invalid(i); _MPI_Data_Invalid(i); _MPI_Type_Invalid(i); } free(_MPI_COMM_LIST); _MPI_COMM_LIST = 0; free(_MPI_DATA_BUFF);_MPI_DATA_BUFF = 0; free(_MPI_TYPE_LIST);_MPI_TYPE_LIST = 0; free(_MPI_OP_LIST);_MPI_OP_LIST = 0; for(i=0;i<_MPI_REQ_ARRAY_SIZE;++i) { free(_MPI_REQ_LIST_OF_LISTS[i]); _MPI_REQ_LIST_OF_LISTS[i] = 0; } free(_MPI_REQ_LIST_OF_LISTS);_MPI_REQ_LIST_OF_LISTS = 0; free(_MPI_REQNULL);_MPI_REQNULL = 0; return MPI_SUCCESS; } }
int PMPI_Init ( int *argc, char **argv[]) { int i; int retval = MPI_ERR_IN_STATUS; _MPI_COVERAGE(); _MPI_INITIALIZED_FLAG = _MPI_TRUE; /* -------------------------------------*/ /* Check for the current status of MPI */ if ( (_MPI_INIT_STATUS == _MPI_ENDED) || (_MPI_INIT_STATUS == _MPI_STARTED) ) { if (_MPI_INIT_STATUS == _MPI_ENDED) { _MPI_COVERAGE(); _MPI_ERR_ROUTINE(MPI_ERR_IN_STATUS, "MPI was already finalized"); } else { _MPI_COVERAGE(); _MPI_ERR_ROUTINE(MPI_ERR_IN_STATUS, "MPI was already initialized"); } MPI_ERRORS_ARE_FATAL((MPI_Comm)NULL, &retval); return MPI_ERR_OTHER; } /* -------------------------------------------------------------- */ else /* If the status is fine, initialize the internal data structures */ { _MPI_COVERAGE(); /* --------------------------- */ /* Create the MPI_REQUEST_NULL */ /* _MPI_REQNULL = (MPI_Request *)_MPI_safeMalloc(sizeof(MPI_Request),"Error with malloc for MPI_REQUEST_NULL"); * _MPI_REQNULL = MPI_REQUEST_NULL; * MPI_REQUEST_NULL = _MPI_REQNULL; */ #ifndef PREALLOCATION_SIZE #define PREALLOCATION_SIZE 10 #endif _MPI_INIT_STATUS = _MPI_STARTED; /* ---------- */ /* Allocation */ _MPI_COMM_ARRAY_SIZE = PREALLOCATION_SIZE; _MPI_DATA_ARRAY_SIZE = PREALLOCATION_SIZE; _MPI_TYPE_ARRAY_SIZE = PREALLOCATION_SIZE; _MPI_OP_ARRAY_SIZE = PREALLOCATION_SIZE; _MPI_REQ_ARRAY_SIZE = PREALLOCATION_SIZE; _MPI_COMM_LIST = (_MPI_COMM_IMPL *) _MPI_safeMalloc (_MPI_COMM_ARRAY_SIZE*sizeof(_MPI_COMM_IMPL), "Error with malloc of COMM_LIST"); _MPI_DATA_BUFF = (_MPI_DATA_ENTRY *) _MPI_safeMalloc (_MPI_DATA_ARRAY_SIZE*sizeof(_MPI_DATA_ENTRY), "Error with malloc of DATA_BUFF"); _MPI_TYPE_LIST = (_MPI_TYPE_DES *) _MPI_safeMalloc (_MPI_TYPE_ARRAY_SIZE*sizeof(_MPI_TYPE_DES), "Error with malloc of TYPE_LIST"); _MPI_OP_LIST = (_MPI_OP_TYPE *) _MPI_safeMalloc (_MPI_OP_ARRAY_SIZE*sizeof(_MPI_OP_TYPE), "Error with malloc of OP_LIST"); _MPI_REQ_LIST = (_MPI_REQUEST_OBJECT *) _MPI_safeMalloc (_MPI_OP_ARRAY_SIZE*sizeof(_MPI_REQUEST_OBJECT), "Error with malloc of REQ_LIST"); /* ----------------------------------------------- */ /* Communicators are not set up */ /* ----------------------------------------------- */ for (i=1; i<_MPI_COMM_ARRAY_SIZE; i++) { _MPI_COMM_LIST[i].valid = _MPI_NOT_VALID; } for (i=1; i<_MPI_DATA_ARRAY_SIZE; i++) { _MPI_DATA_BUFF[i].valid = _MPI_NOT_VALID; } for (i=1; i<_MPI_OP_ARRAY_SIZE; i++) { _MPI_OP_LIST[i].valid = _MPI_NOT_VALID; } for (i=1; i<_MPI_TYPE_ARRAY_SIZE; i++) { _MPI_TYPE_LIST[i].id = _MPI_NOT_VALID; _MPI_TYPE_LIST[i].info = 0; _MPI_TYPE_LIST[i].next = 0; } _MPI_COMM_COUNT = 0; _MPI_DATA_BUFF_COUNT = 0; _MPI_TYPE_COUNT = 0; _MPI_OP_COUNT = 0; _MPI_REQ_COUNT = 0; /* ------------------------- */ /* Set entries all to "null" */ for (i=0; i<PREALLOCATION_SIZE; i++) { _MPI_COVERAGE(); _MPI_Data_Invalid(i); _MPI_Comm_Invalid(i); _MPI_Type_Invalid(i); _MPI_Req_Invalid(i); } /* --------------------------------------------------- */ _MPI_Comm_Insert0(0, MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL); /* This inserts MPI_COMM_WORLD as the 1st communicator */ return MPI_SUCCESS; } }