ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность
8fb84e90ce
openmpi/ompi/mpi/c/exscan.c

73 строки
2.2 KiB
C
Исходник Обычный вид История

adding new MPI Functions This commit was SVN r532.
2004-01-25 02:17:43 +03:00
/*
Fix a few copy-n-paste errors: when an op is invalid, invoke the MPI exception on the passed communicator, not MPI_COMM_WORLD. This commit was SVN r9105.
2006-02-21 22:11:40 +03:00
* Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
Update the copyright notices for IU and UTK. This commit was SVN r7999.
2005-11-05 22:57:48 +03:00
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2005 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
Add HLRS copyright This commit was SVN r3665.
2004-11-28 23:09:25 +03:00
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
Add UC copyright This commit was SVN r5009.
2005-03-24 15:43:37 +03:00
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
First cut at copyrights: IU, UTK, and some OSU. LANL and HLRS still pending. This commit was SVN r3655.
2004-11-22 04:38:40 +03:00
* $COPYRIGHT$
*
* Additional copyrights may follow
*
adding new MPI Functions This commit was SVN r532.
2004-01-25 02:17:43 +03:00
* $HEADER$
*/
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#include "ompi_config.h"
adding new MPI Functions This commit was SVN r532.
2004-01-25 02:17:43 +03:00
Next step in the project split, mainly source code re-arranging - move files out of toplevel include/ and etc/, moving it into the sub-projects - rather than including config headers with <project>/include, have them as <project> - require all headers to be included with a project prefix, with the exception of the config headers ({opal,orte,ompi}_config.h mpi.h, and mpif.h) This commit was SVN r8985.
2006-02-12 04:33:29 +03:00
#include "ompi/mpi/c/bindings.h"
Cleanup the dependencies between the MPI layer and the rest of the ompi files. Modify the includes to start with the root directory (i.e orte/datatype/datatype.h). This commit was SVN r7306.
2005-09-12 13:17:44 +04:00
#include "ompi/datatype/datatype.h"
#include "ompi/op/op.h"
adding new MPI Functions This commit was SVN r532.
2004-01-25 02:17:43 +03:00
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
adding new MPI Functions This commit was SVN r532.
2004-01-25 02:17:43 +03:00
#pragma weak MPI_Exscan = PMPI_Exscan
#endif
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#if OMPI_PROFILING_DEFINES
Next step in the project split, mainly source code re-arranging - move files out of toplevel include/ and etc/, moving it into the sub-projects - rather than including config headers with <project>/include, have them as <project> - require all headers to be included with a project prefix, with the exception of the config headers ({opal,orte,ompi}_config.h mpi.h, and mpif.h) This commit was SVN r8985.
2006-02-12 04:33:29 +03:00
#include "ompi/mpi/c/profile/defines.h"
Changing the bindings files to have the #define of MPI_ functions to PMPI_ functions after the #pragma weak statement This commit was SVN r1055.
2004-04-20 22:50:43 +04:00
#endif
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817.
2004-07-30 06:58:53 +04:00
static const char FUNC_NAME[] = "MPI_Exscan";
Lots of changes in this commit, mostly having to do with the first real commit of the collectives. MPI_SCAN and MPI_EXSCAN are still not implemented, but lots of other things are in the critical path and holding up other people, so it's ok to commit without them: - better checks for sizes in configure, and add defaults for fortran sizes if we don't have a fortran compiler - fix some logic that was accidentally broken for size checks for the file type offset_t - add some C equivalent types for fortran's complex and double complex (for use in internal reduction/op functions) - additionals and slight reorganization of ompi_mpi_init() ompi_mpi_finalize() - fully implement all top-level MPI collective calls, including all param checking for both intra- and inter-communicators (woof) - change the communicator_t type for stuff that we need in coll, and update all references throughout the code base to match - all kinds of updates to the coll framework base - next cut of the basic coll module -- has all intracommunicator collectives implemented except scan and exscan (see note above). All intercommunicator functions return ERR_NOT_IMPLEMENTED. - MPI_Op is a fixed implementation -- not component-ized yet. So there are generic C loops for all implementations. This commit was SVN r1491.
2004-06-29 04:02:25 +04:00
adding new MPI Functions This commit was SVN r532.
2004-01-25 02:17:43 +03:00
int MPI_Exscan(void *sendbuf, void *recvbuf, int count,
Lots of changes in this commit, mostly having to do with the first real commit of the collectives. MPI_SCAN and MPI_EXSCAN are still not implemented, but lots of other things are in the critical path and holding up other people, so it's ok to commit without them: - better checks for sizes in configure, and add defaults for fortran sizes if we don't have a fortran compiler - fix some logic that was accidentally broken for size checks for the file type offset_t - add some C equivalent types for fortran's complex and double complex (for use in internal reduction/op functions) - additionals and slight reorganization of ompi_mpi_init() ompi_mpi_finalize() - fully implement all top-level MPI collective calls, including all param checking for both intra- and inter-communicators (woof) - change the communicator_t type for stuff that we need in coll, and update all references throughout the code base to match - all kinds of updates to the coll framework base - next cut of the basic coll module -- has all intracommunicator collectives implemented except scan and exscan (see note above). All intercommunicator functions return ERR_NOT_IMPLEMENTED. - MPI_Op is a fixed implementation -- not component-ized yet. So there are generic C loops for all implementations. This commit was SVN r1491.
2004-06-29 04:02:25 +04:00
MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
{
int err;
if (MPI_PARAM_CHECK) {
- Update the checks in REDUCE, ALLREDUCE, SCAN, EXSCAN, and REDUCE_SCATTER to more thoroughly check the datatype/op combination to see if it's valid or not. If it's not, print a meaningful error message rather than "Invalid MPI_Op" indicating what specifically was wrong (therefore hopefully helping users track down where in the code the problem is, and/or telling us that there's a reduction operation combo that we don't support that we should) - The check for whether a datatype is intrinsic needed to be updated -- it's not sufficient to check that dtype->id < DT_MAX_PREDEFINED; you really need to check the PREDEFINED flag on the datatype. Thanks to George for this fix (only intrinsics have a meaningful value in dtype->id). This commit was SVN r7923.
2005-10-28 20:47:32 +04:00
char *msg;
Finally commit fixes from code review in Ohio with Anju: - better error checking in top-level MPI API coll functions - remove boolean flags in coll module struct - minor fixes in selection logic This commit was SVN r1825.
2004-07-30 23:14:55 +04:00
err = MPI_SUCCESS;
Lots of changes in this commit, mostly having to do with the first real commit of the collectives. MPI_SCAN and MPI_EXSCAN are still not implemented, but lots of other things are in the critical path and holding up other people, so it's ok to commit without them: - better checks for sizes in configure, and add defaults for fortran sizes if we don't have a fortran compiler - fix some logic that was accidentally broken for size checks for the file type offset_t - add some C equivalent types for fortran's complex and double complex (for use in internal reduction/op functions) - additionals and slight reorganization of ompi_mpi_init() ompi_mpi_finalize() - fully implement all top-level MPI collective calls, including all param checking for both intra- and inter-communicators (woof) - change the communicator_t type for stuff that we need in coll, and update all references throughout the code base to match - all kinds of updates to the coll framework base - next cut of the basic coll module -- has all intracommunicator collectives implemented except scan and exscan (see note above). All intercommunicator functions return ERR_NOT_IMPLEMENTED. - MPI_Op is a fixed implementation -- not component-ized yet. So there are generic C loops for all implementations. This commit was SVN r1491.
2004-06-29 04:02:25 +04:00
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
if (ompi_comm_invalid(comm)) {
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_COMM,
FUNC_NAME);
}
/* Unrooted operation -- same checks for intracommunicators
and intercommunicators */
Finally commit fixes from code review in Ohio with Anju: - better error checking in top-level MPI API coll functions - remove boolean flags in coll module struct - minor fixes in selection logic This commit was SVN r1825.
2004-07-30 23:14:55 +04:00
else if (MPI_OP_NULL == op) {
err = MPI_ERR_OP;
- Update the checks in REDUCE, ALLREDUCE, SCAN, EXSCAN, and REDUCE_SCATTER to more thoroughly check the datatype/op combination to see if it's valid or not. If it's not, print a meaningful error message rather than "Invalid MPI_Op" indicating what specifically was wrong (therefore hopefully helping users track down where in the code the problem is, and/or telling us that there's a reduction operation combo that we don't support that we should) - The check for whether a datatype is intrinsic needed to be updated -- it's not sufficient to check that dtype->id < DT_MAX_PREDEFINED; you really need to check the PREDEFINED flag on the datatype. Thanks to George for this fix (only intrinsics have a meaningful value in dtype->id). This commit was SVN r7923.
2005-10-28 20:47:32 +04:00
} else if (!ompi_op_is_valid(op, datatype, &msg, FUNC_NAME)) {
Fix a few copy-n-paste errors: when an op is invalid, invoke the MPI exception on the passed communicator, not MPI_COMM_WORLD. This commit was SVN r9105.
2006-02-21 22:11:40 +03:00
int ret = OMPI_ERRHANDLER_INVOKE(comm, MPI_ERR_OP, msg);
- Update the checks in REDUCE, ALLREDUCE, SCAN, EXSCAN, and REDUCE_SCATTER to more thoroughly check the datatype/op combination to see if it's valid or not. If it's not, print a meaningful error message rather than "Invalid MPI_Op" indicating what specifically was wrong (therefore hopefully helping users track down where in the code the problem is, and/or telling us that there's a reduction operation combo that we don't support that we should) - The check for whether a datatype is intrinsic needed to be updated -- it's not sufficient to check that dtype->id < DT_MAX_PREDEFINED; you really need to check the PREDEFINED flag on the datatype. Thanks to George for this fix (only intrinsics have a meaningful value in dtype->id). This commit was SVN r7923.
2005-10-28 20:47:32 +04:00
free(msg);
return ret;
Finally commit fixes from code review in Ohio with Anju: - better error checking in top-level MPI API coll functions - remove boolean flags in coll module struct - minor fixes in selection logic This commit was SVN r1825.
2004-07-30 23:14:55 +04:00
} else {
OMPI_CHECK_DATATYPE_FOR_SEND(err, datatype, count);
Lots of changes in this commit, mostly having to do with the first real commit of the collectives. MPI_SCAN and MPI_EXSCAN are still not implemented, but lots of other things are in the critical path and holding up other people, so it's ok to commit without them: - better checks for sizes in configure, and add defaults for fortran sizes if we don't have a fortran compiler - fix some logic that was accidentally broken for size checks for the file type offset_t - add some C equivalent types for fortran's complex and double complex (for use in internal reduction/op functions) - additionals and slight reorganization of ompi_mpi_init() ompi_mpi_finalize() - fully implement all top-level MPI collective calls, including all param checking for both intra- and inter-communicators (woof) - change the communicator_t type for stuff that we need in coll, and update all references throughout the code base to match - all kinds of updates to the coll framework base - next cut of the basic coll module -- has all intracommunicator collectives implemented except scan and exscan (see note above). All intercommunicator functions return ERR_NOT_IMPLEMENTED. - MPI_Op is a fixed implementation -- not component-ized yet. So there are generic C loops for all implementations. This commit was SVN r1491.
2004-06-29 04:02:25 +04:00
}
Finally commit fixes from code review in Ohio with Anju: - better error checking in top-level MPI API coll functions - remove boolean flags in coll module struct - minor fixes in selection logic This commit was SVN r1825.
2004-07-30 23:14:55 +04:00
OMPI_ERRHANDLER_CHECK(err, comm, err, FUNC_NAME);
Lots of changes in this commit, mostly having to do with the first real commit of the collectives. MPI_SCAN and MPI_EXSCAN are still not implemented, but lots of other things are in the critical path and holding up other people, so it's ok to commit without them: - better checks for sizes in configure, and add defaults for fortran sizes if we don't have a fortran compiler - fix some logic that was accidentally broken for size checks for the file type offset_t - add some C equivalent types for fortran's complex and double complex (for use in internal reduction/op functions) - additionals and slight reorganization of ompi_mpi_init() ompi_mpi_finalize() - fully implement all top-level MPI collective calls, including all param checking for both intra- and inter-communicators (woof) - change the communicator_t type for stuff that we need in coll, and update all references throughout the code base to match - all kinds of updates to the coll framework base - next cut of the basic coll module -- has all intracommunicator collectives implemented except scan and exscan (see note above). All intercommunicator functions return ERR_NOT_IMPLEMENTED. - MPI_Op is a fixed implementation -- not component-ized yet. So there are generic C loops for all implementations. This commit was SVN r1491.
2004-06-29 04:02:25 +04:00
}
/* Invoke the coll component to perform the back-end operation */
A better solution to the previous commit -- RETAIN/RELEASE the MPI_Op at the top-level MPI API function. This allows two kinds of scenarios: 1. MPI_Ireduce(..., op, ...); MPI_Op_free(op); MPI_Wait(...); For the non-blocking collectives that we're someday planning -- to make them analogous to non-blocking point-to-point stuff. 2. Thread 1: MPI_Reduce(..., op, ...); Thread 2: MPI_Op_free(op); Granted, for #2 to occur would tread a fine line between a correct and erroneous MPI program, but it is possible (as long as the Op_free was *after* MPI_reduce() had started to execute). It's more realistic with case #1, where the Op_free() could be executed in the same thread or a different thread. This commit was SVN r7870.
2005-10-25 23:20:42 +04:00
OBJ_RETAIN(op);
Lots of changes in this commit, mostly having to do with the first real commit of the collectives. MPI_SCAN and MPI_EXSCAN are still not implemented, but lots of other things are in the critical path and holding up other people, so it's ok to commit without them: - better checks for sizes in configure, and add defaults for fortran sizes if we don't have a fortran compiler - fix some logic that was accidentally broken for size checks for the file type offset_t - add some C equivalent types for fortran's complex and double complex (for use in internal reduction/op functions) - additionals and slight reorganization of ompi_mpi_init() ompi_mpi_finalize() - fully implement all top-level MPI collective calls, including all param checking for both intra- and inter-communicators (woof) - change the communicator_t type for stuff that we need in coll, and update all references throughout the code base to match - all kinds of updates to the coll framework base - next cut of the basic coll module -- has all intracommunicator collectives implemented except scan and exscan (see note above). All intercommunicator functions return ERR_NOT_IMPLEMENTED. - MPI_Op is a fixed implementation -- not component-ized yet. So there are generic C loops for all implementations. This commit was SVN r1491.
2004-06-29 04:02:25 +04:00
err = comm->c_coll.coll_exscan(sendbuf, recvbuf, count,
datatype, op, comm);
A better solution to the previous commit -- RETAIN/RELEASE the MPI_Op at the top-level MPI API function. This allows two kinds of scenarios: 1. MPI_Ireduce(..., op, ...); MPI_Op_free(op); MPI_Wait(...); For the non-blocking collectives that we're someday planning -- to make them analogous to non-blocking point-to-point stuff. 2. Thread 1: MPI_Reduce(..., op, ...); Thread 2: MPI_Op_free(op); Granted, for #2 to occur would tread a fine line between a correct and erroneous MPI program, but it is possible (as long as the Op_free was *after* MPI_reduce() had started to execute). It's more realistic with case #1, where the Op_free() could be executed in the same thread or a different thread. This commit was SVN r7870.
2005-10-25 23:20:42 +04:00
OBJ_RELEASE(op);
Lots of changes in this commit, mostly having to do with the first real commit of the collectives. MPI_SCAN and MPI_EXSCAN are still not implemented, but lots of other things are in the critical path and holding up other people, so it's ok to commit without them: - better checks for sizes in configure, and add defaults for fortran sizes if we don't have a fortran compiler - fix some logic that was accidentally broken for size checks for the file type offset_t - add some C equivalent types for fortran's complex and double complex (for use in internal reduction/op functions) - additionals and slight reorganization of ompi_mpi_init() ompi_mpi_finalize() - fully implement all top-level MPI collective calls, including all param checking for both intra- and inter-communicators (woof) - change the communicator_t type for stuff that we need in coll, and update all references throughout the code base to match - all kinds of updates to the coll framework base - next cut of the basic coll module -- has all intracommunicator collectives implemented except scan and exscan (see note above). All intercommunicator functions return ERR_NOT_IMPLEMENTED. - MPI_Op is a fixed implementation -- not component-ized yet. So there are generic C loops for all implementations. This commit was SVN r1491.
2004-06-29 04:02:25 +04:00
OMPI_ERRHANDLER_RETURN(err, comm, err, FUNC_NAME);
adding new MPI Functions This commit was SVN r532.
2004-01-25 02:17:43 +03:00
}
Копировать постоянную ссылку