ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность
0c05204c13
openmpi/src/mca/coll/basic/coll_basic_alltoallw.c

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

First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
/*
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 (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +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"
- coll_basic_config.h no longer exists; just use coll_basic.h - #define's for MCA module version numbers changed names This commit was SVN r806.
2004-02-15 00:26:30 +03:00
#include "coll_basic.h"
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
#include "mpi.h"
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
#include "include/constants.h"
Updating header file names after the great directory reorganization. This commit was SVN r877.
2004-03-17 21:45:16 +03:00
#include "datatype/datatype.h"
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
#include "communicator/communicator.h"
Updating header file names after the great directory reorganization. This commit was SVN r877.
2004-03-17 21:45:16 +03:00
#include "mca/coll/coll.h"
#include "mca/coll/base/coll_tags.h"
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
/*
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
* alltoallw_intra
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
*
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
* Function: - MPI_Alltoallw for non-ompid RPIs
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
* Accepts: - same as MPI_Alltoallw()
* Returns: - MPI_SUCCESS or an MPI error code
*/
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
int mca_coll_basic_alltoallw_intra(void *sbuf, int *scounts, int *sdisps,
struct ompi_datatype_t **sdtypes,
void *rbuf, int *rcounts, int *rdisps,
struct ompi_datatype_t **rdtypes,
struct ompi_communicator_t *comm)
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
{
int i;
int size;
int rank;
int err;
char *psnd;
char *prcv;
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
size_t nreqs;
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
MPI_Request *preq;
/* Initialize. */
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
size = ompi_comm_size(comm);
rank = ompi_comm_rank(comm);
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
/* simple optimization */
psnd = ((char *) sbuf) + sdisps[rank];
prcv = ((char *) rbuf) + rdisps[rank];
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
Ensure to handle the cases where an individual send or receive count is 0 This commit was SVN r2921.
2004-10-04 22:03:52 +04:00
if (0 != scounts[rank]) {
err = ompi_ddt_sndrcv(psnd, scounts[rank], sdtypes[rank],
prcv, rcounts[rank], rdtypes[rank],
MCA_COLL_BASE_TAG_ALLTOALLW, comm);
if (MPI_SUCCESS != err) {
return err;
}
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
}
/* If only one process, we're done. */
if (1 == size) {
return MPI_SUCCESS;
}
/* Initiate all send/recv to/from others. */
Ensure to handle the cases where an individual send or receive count is 0 This commit was SVN r2921.
2004-10-04 22:03:52 +04:00
nreqs = 0;
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
preq = comm->c_coll_basic_data->mccb_reqs;
/* Post all receives first -- a simple optimization */
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
for (i = 0; i < size; ++i) {
Ensure to handle the cases where an individual send or receive count is 0 This commit was SVN r2921.
2004-10-04 22:03:52 +04:00
if (i == rank || 0 == rcounts[i])
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
continue;
prcv = ((char *) rbuf) + rdisps[i];
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 = mca_pml.pml_irecv_init(prcv, rcounts[i], rdtypes[i],
i, MCA_COLL_BASE_TAG_ALLTOALLW, comm, preq++);
Ensure to handle the cases where an individual send or receive count is 0 This commit was SVN r2921.
2004-10-04 22:03:52 +04:00
++nreqs;
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
if (MPI_SUCCESS != err) {
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
mca_coll_basic_free_reqs(comm->c_coll_basic_data->mccb_reqs, nreqs);
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
return err;
}
}
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
/* Now post all sends */
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
for (i = 0; i < size; ++i) {
#$%@#$%@#$% This commit was SVN r2923.
2004-10-04 23:06:45 +04:00
if (i == rank || 0 == scounts[i])
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
continue;
psnd = ((char *) sbuf) + sdisps[i];
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 = mca_pml.pml_isend_init(psnd, scounts[i], sdtypes[i],
i, MCA_COLL_BASE_TAG_ALLTOALLW,
MCA_PML_BASE_SEND_STANDARD, comm, preq++);
Ensure to handle the cases where an individual send or receive count is 0 This commit was SVN r2921.
2004-10-04 22:03:52 +04:00
++nreqs;
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
if (MPI_SUCCESS != err) {
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
mca_coll_basic_free_reqs(comm->c_coll_basic_data->mccb_reqs, nreqs);
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
return err;
}
}
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
/* Start your engines. This will never return an error. */
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
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
mca_pml.pml_start(nreqs, comm->c_coll_basic_data->mccb_reqs);
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
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
/* Wait for them all. If there's an error, note that we don't care
what the error was -- just that there *was* an error. The PML
will finish all requests, even if one or more of them fail.
i.e., by the end of this call, all the requests are free-able.
So free them anyway -- even if there was an error, and return the
error after we free everything. */
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
small re-org of request completion - moved test/wait out of pml This commit was SVN r3066.
2004-10-12 19:50:01 +04:00
err = ompi_request_wait_all(nreqs, comm->c_coll_basic_data->mccb_reqs,
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_STATUSES_IGNORE);
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
/* Free the requests. */
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
mca_coll_basic_free_reqs(comm->c_coll_basic_data->mccb_reqs, nreqs);
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
/* All done */
return 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
}
/*
* alltoallw_inter
*
* Function: - MPI_Alltoallw for non-lamd RPIs
* Accepts: - same as MPI_Alltoallw()
* Returns: - MPI_SUCCESS or an MPI error code
*/
int mca_coll_basic_alltoallw_inter(void *sbuf, int *scounts, int *sdisps,
struct ompi_datatype_t **sdtypes,
void *rbuf, int *rcounts, int *rdisps,
struct ompi_datatype_t **rdtypes,
struct ompi_communicator_t *comm)
{
committing first version of inter-communicator collectives. They do not work yet necessarily (although some tests pass already), but they do not break anything as far as I can see and anticipate. This commit was SVN r1857.
2004-08-04 02:12:57 +04:00
int i;
int size;
int rank;
int err;
char *psnd;
char *prcv;
size_t nreqs;
MPI_Request *preq;
/* Initialize. */
size = ompi_comm_remote_size(comm);
rank = ompi_comm_rank(comm);
/* Initiate all send/recv to/from others. */
nreqs = size * 2;
preq = comm->c_coll_basic_data->mccb_reqs;
/* Post all receives first -- a simple optimization */
for (i = 0; i < size; ++i) {
prcv = ((char *) rbuf) + rdisps[i];
err = mca_pml.pml_irecv_init(prcv, rcounts[i], rdtypes[i],
i, MCA_COLL_BASE_TAG_ALLTOALLW,
comm, preq++);
if (OMPI_SUCCESS != err) {
mca_coll_basic_free_reqs(comm->c_coll_basic_data->mccb_reqs, nreqs);
return err;
}
}
/* Now post all sends */
for (i = 0; i < size; ++i) {
psnd = ((char *) sbuf) + sdisps[i];
err = mca_pml.pml_isend_init(psnd, scounts[i], sdtypes[i],
i, MCA_COLL_BASE_TAG_ALLTOALLW,
MCA_PML_BASE_SEND_STANDARD, comm, preq++);
if (OMPI_SUCCESS != err) {
mca_coll_basic_free_reqs(comm->c_coll_basic_data->mccb_reqs, nreqs);
return err;
}
}
/* Start your engines. This will never return an error. */
mca_pml.pml_start(nreqs, comm->c_coll_basic_data->mccb_reqs);
/* Wait for them all. If there's an error, note that we don't care
what the error was -- just that there *was* an error. The PML
will finish all requests, even if one or more of them fail.
i.e., by the end of this call, all the requests are free-able.
So free them anyway -- even if there was an error, and return the
error after we free everything. */
small re-org of request completion - moved test/wait out of pml This commit was SVN r3066.
2004-10-12 19:50:01 +04:00
err = ompi_request_wait_all(nreqs, comm->c_coll_basic_data->mccb_reqs,
committing first version of inter-communicator collectives. They do not work yet necessarily (although some tests pass already), but they do not break anything as far as I can see and anticipate. This commit was SVN r1857.
2004-08-04 02:12:57 +04:00
MPI_STATUSES_IGNORE);
/* Free the requests. */
mca_coll_basic_free_reqs(comm->c_coll_basic_data->mccb_reqs, nreqs);
/* All done */
return err;
First cut of the basic collective module. Much work still needs to be done -- still need: - safe collective tags on user communuicators (negative tags) - PML entry points for all MPI point-to-point calls - datatype buffer and copy functions As such, there's lots of warnings in this code right now (although it does compile). It will not run properly at all. This commit was SVN r268.
2004-01-12 00:26:55 +03:00
}
Копировать постоянную ссылку