1
1

* clean up the error checking a bit - user defined datatypes are allowed for

MPI_OP_REPLACE.  All other rules are basically the same as MPI_Reduce, so
  use that helper function.

This commit was SVN r9104.
Этот коммит содержится в:
Brian Barrett 2006-02-21 19:00:49 +00:00
родитель eb7e722588
Коммит 889aeeddb2

Просмотреть файл

@ -41,6 +41,7 @@ int MPI_Accumulate(void *origin_addr, int origin_count, MPI_Datatype origin_data
{
int rc;
ompi_win_t *ompi_win = (ompi_win_t*) win;
char *msg;
if (target_rank == MPI_PROC_NULL) return MPI_SUCCESS;
@ -57,10 +58,11 @@ int MPI_Accumulate(void *origin_addr, int origin_count, MPI_Datatype origin_data
rc = MPI_ERR_RANK;
} else if (MPI_OP_NULL == op) {
rc = MPI_ERR_OP;
} else if (!ompi_op_is_intrinsic(op) ||
(target_datatype->id < DT_MAX_PREDEFINED &&
-1 == ompi_op_ddt_map[target_datatype->id])) {
rc = MPI_ERR_OP;
} else if (op != &ompi_mpi_op_replace &&
!ompi_op_is_valid(op, target_datatype, &msg, FUNC_NAME)) {
int ret = OMPI_ERRHANDLER_INVOKE(win, MPI_ERR_OP, msg);
free(msg);
return ret;
} else if (0 == (ompi_win_get_mode(win) & OMPI_WIN_ACCESS_EPOCH)) {
rc = MPI_ERR_RMA_CONFLICT;
} else {