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

91 строка
2.3 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
/*
* $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 "communicator/communicator.h"
#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
#include "coll_basic.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
* allgatherv_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
*
* Function: - allgather using other MPI collectives
* Accepts: - same as MPI_Allgatherv()
* Returns: - MPI_SUCCESS or 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_allgatherv_intra(void *sbuf, int scount,
struct ompi_datatype_t *sdtype,
void * rbuf, int *rcounts, int *disps,
struct ompi_datatype_t *rdtype,
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, size;
int err;
/* Collect all values at each process, one at a time. */
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);
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) {
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_gatherv(sbuf, scount, sdtype, rbuf,
rcounts, disps, rdtype, i, comm);
if (MPI_SUCCESS != 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
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
}
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 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
}
/*
* allgatherv_inter
*
* Function: - allgather using other MPI collectives
* Accepts: - same as MPI_Allgatherv()
* Returns: - MPI_SUCCESS or error code
*/
int mca_coll_basic_allgatherv_inter(void *sbuf, int scount,
struct ompi_datatype_t *sdtype,
void * rbuf, int *rcounts, int *disps,
struct ompi_datatype_t *rdtype,
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 size, rsize;
bug fixes for the MPI-2 extended collective operations. All inter-collectives seem to pass now the test without coredumps etc. Checking for MPI_Alltollw(intra)...working Checking for MPI_Exscan: testing MPI_MAX...........working testing MPI_MIN...........working testing MPI_SUM...........working testing MPI_PROD..........working testing MPI_LAND..........working testing MPI_LOR...........working testing MPI_LXOR..........working testing MPI_BAND..........working testing MPI_BOR...........working testing MPI_BXOR..........working Checking for MPI_Bcast.............working Checking for MPI_Allreduce.........working Checking for MPI_Reduce............working Checking for MPI_Barrier...........working Checking for MPI_Gather............working Checking for MPI_Gatherv...........working Checking for MPI_Scatter...........working Checking for MPI_Scatterv..........working Checking for MPI_Allgather.........working Checking for MPI_Allgatherv........working Checking for MPI_Alltoall..........working Checking for MPI_Alltoallv.........working Checking for MPI_Alltollw(inter)...working Checking for MPI_Reduce_scatter....working Checking for MPI_Bcast.............working Checking for MPI_Allreduce.........working Checking for MPI_Reduce............working Checking for MPI_Barrier...........working Checking for MPI_Gather............working Checking for MPI_Gatherv...........working Checking for MPI_Scatter...........working Checking for MPI_Scatterv..........working Checking for MPI_Allgather.........working Checking for MPI_Allgatherv........working Checking for MPI_Alltoall..........working Checking for MPI_Alltoallv.........working Checking for MPI_Alltollw(inter)...working Checking for MPI_Reduce_scatter....working This commit was SVN r1903.
2004-08-05 22:52:14 +04:00
int err, i;
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 *scounts=NULL;
removing two warnings. This commit was SVN r1871.
2004-08-04 21:08:29 +04:00
int *sdisps=NULL;
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
rsize = ompi_comm_remote_size (comm);
size = ompi_comm_size (comm);
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
bug fixes for the MPI-2 extended collective operations. All inter-collectives seem to pass now the test without coredumps etc. Checking for MPI_Alltollw(intra)...working Checking for MPI_Exscan: testing MPI_MAX...........working testing MPI_MIN...........working testing MPI_SUM...........working testing MPI_PROD..........working testing MPI_LAND..........working testing MPI_LOR...........working testing MPI_LXOR..........working testing MPI_BAND..........working testing MPI_BOR...........working testing MPI_BXOR..........working Checking for MPI_Bcast.............working Checking for MPI_Allreduce.........working Checking for MPI_Reduce............working Checking for MPI_Barrier...........working Checking for MPI_Gather............working Checking for MPI_Gatherv...........working Checking for MPI_Scatter...........working Checking for MPI_Scatterv..........working Checking for MPI_Allgather.........working Checking for MPI_Allgatherv........working Checking for MPI_Alltoall..........working Checking for MPI_Alltoallv.........working Checking for MPI_Alltollw(inter)...working Checking for MPI_Reduce_scatter....working Checking for MPI_Bcast.............working Checking for MPI_Allreduce.........working Checking for MPI_Reduce............working Checking for MPI_Barrier...........working Checking for MPI_Gather............working Checking for MPI_Gatherv...........working Checking for MPI_Scatter...........working Checking for MPI_Scatterv..........working Checking for MPI_Allgather.........working Checking for MPI_Allgatherv........working Checking for MPI_Alltoall..........working Checking for MPI_Alltoallv.........working Checking for MPI_Alltollw(inter)...working Checking for MPI_Reduce_scatter....working This commit was SVN r1903.
2004-08-05 22:52:14 +04:00
scounts = (int *) malloc (rsize * sizeof(int) );
removing two warnings. This commit was SVN r1871.
2004-08-04 21:08:29 +04:00
sdisps = (int *) calloc (rsize, sizeof(int));
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
if ( NULL == scounts || NULL == sdisps ) {
Fix minor uninitialized variable issue This commit was SVN r2353.
2004-08-28 13:29:33 +04:00
return OMPI_ERR_OUT_OF_RESOURCE;
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
}
bug fixes for the MPI-2 extended collective operations. All inter-collectives seem to pass now the test without coredumps etc. Checking for MPI_Alltollw(intra)...working Checking for MPI_Exscan: testing MPI_MAX...........working testing MPI_MIN...........working testing MPI_SUM...........working testing MPI_PROD..........working testing MPI_LAND..........working testing MPI_LOR...........working testing MPI_LXOR..........working testing MPI_BAND..........working testing MPI_BOR...........working testing MPI_BXOR..........working Checking for MPI_Bcast.............working Checking for MPI_Allreduce.........working Checking for MPI_Reduce............working Checking for MPI_Barrier...........working Checking for MPI_Gather............working Checking for MPI_Gatherv...........working Checking for MPI_Scatter...........working Checking for MPI_Scatterv..........working Checking for MPI_Allgather.........working Checking for MPI_Allgatherv........working Checking for MPI_Alltoall..........working Checking for MPI_Alltoallv.........working Checking for MPI_Alltollw(inter)...working Checking for MPI_Reduce_scatter....working Checking for MPI_Bcast.............working Checking for MPI_Allreduce.........working Checking for MPI_Reduce............working Checking for MPI_Barrier...........working Checking for MPI_Gather............working Checking for MPI_Gatherv...........working Checking for MPI_Scatter...........working Checking for MPI_Scatterv..........working Checking for MPI_Allgather.........working Checking for MPI_Allgatherv........working Checking for MPI_Alltoall..........working Checking for MPI_Alltoallv.........working Checking for MPI_Alltollw(inter)...working Checking for MPI_Reduce_scatter....working This commit was SVN r1903.
2004-08-05 22:52:14 +04:00
for ( i=0; i<rsize; i++) {
scounts[i] = scount;
}
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
err = comm->c_coll.coll_alltoallv (sbuf, scounts, sdisps, sdtype,
rbuf, rcounts, disps, rdtype,
comm );
if (NULL != sdisps ) {
free (sdisps);
}
if ( NULL != scounts ) {
free (scounts);
}
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
}
Копировать постоянную ссылку