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

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

adding functions o, p, q, r and s This commit was SVN r592.
2004-01-30 00:42:40 +03:00
/*
Fix $HEADERS$ -> $HEADER$ -- will make for easier replacement later This commit was SVN r3173.
2004-10-15 23:31:47 +04:00
* $HEADER$
adding functions o, p, q, r and s This commit was SVN r592.
2004-01-30 00:42:40 +03:00
*/
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#include "ompi_config.h"
adding functions o, p, q, r and s This commit was SVN r592.
2004-01-30 00:42:40 +03:00
#include <stdio.h>
#include "mpi.h"
Updating header file names after the great directory reorganization. This commit was SVN r877.
2004-03-17 21:45:16 +03:00
#include "mpi/c/bindings.h"
Convert all ompi_bitmap_t and ompi_pointer_array_t indexing from size_t to int. This is in recognition of the fact that these two classes are primarily used for fortran<-->c convertsion of various entities (attributes, MPI objects), and MPI defines that an int must be used to hold MPI fortran handles. Hence, why use size_t internally? See the comment in src/class/ompi_pointer_array.h for a better description. Mixed in a few attribute fixes in this commit as well. This commit, therefore: - converts the indexing from size_t to int - changes all locations in the code that I could find that used size_t as the interface to ompi_bitmap_t or ompi_pointer_array_t - convert to use OMPI_FINT_2_INT / OMPI_INT_2_FINT macros in various src/mpi/c/*f2c.c and src/mpi/c/*c2f.c files - check the return code of ompi_comm_free() to ensure that everything worked properly before returning MPI_SUCCESS - unified all src/mpi/c/*f2c.c functions (i.e., they all do the same thing) - tie up some loose ends w.r.t. MPI_Request handling in fortran; set the req_f_to_c_index to MPI_UNDEFINED when it does not have a fortran index - still need to add a configure test to find OMPI_FORTRAN_HANDLE_MAX for ompi_bitmap.c and ompi_pointer_array.c (hard-wired to INT_MAX right now) - re-organized, consolidated, and unified some ompi_pointer_array.c code -- fixed a few minor bugs w.r.t. lowest_free (could have left some unintentional holes in the array) This commit was SVN r3302.
2004-10-23 23:24:00 +04:00
#include "mpi/f77/fint_2_int.h"
Enable proper f2c <--> c2f MPI_Request translation. Pick up f2c <--> c2f MPI_Status translation along the way. This should enable Fortran MPI apps that use non-blocking communication to start working. This commit was SVN r2996.
2004-10-08 21:12:36 +04:00
#include "mpi/f77/constants.h"
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
#include "communicator/communicator.h"
#include "errhandler/errhandler.h"
adding functions o, p, q, r and s This commit was SVN r592.
2004-01-30 00:42:40 +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 functions o, p, q, r and s This commit was SVN r592.
2004-01-30 00:42:40 +03:00
#pragma weak MPI_Status_c2f = PMPI_Status_c2f
#endif
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#if OMPI_PROFILING_DEFINES
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
#include "mpi/c/profile/defines.h"
#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_Status_c2f";
int MPI_Status_c2f(MPI_Status *c_status, MPI_Fint *f_status)
{
Enable proper f2c <--> c2f MPI_Request translation. Pick up f2c <--> c2f MPI_Status translation along the way. This should enable Fortran MPI apps that use non-blocking communication to start working. This commit was SVN r2996.
2004-10-08 21:12:36 +04:00
if (MPI_PARAM_CHECK) {
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
/* MPI-2:4.12.5 says that if you pass in
MPI_STATUS[ES]_IGNORE, it's erroneous */
if (NULL == c_status || MPI_STATUS_IGNORE == c_status ||
MPI_STATUSES_IGNORE == c_status || NULL == f_status) {
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD,
MPI_ERR_IN_STATUS, FUNC_NAME);
}
}
Convert all ompi_bitmap_t and ompi_pointer_array_t indexing from size_t to int. This is in recognition of the fact that these two classes are primarily used for fortran<-->c convertsion of various entities (attributes, MPI objects), and MPI defines that an int must be used to hold MPI fortran handles. Hence, why use size_t internally? See the comment in src/class/ompi_pointer_array.h for a better description. Mixed in a few attribute fixes in this commit as well. This commit, therefore: - converts the indexing from size_t to int - changes all locations in the code that I could find that used size_t as the interface to ompi_bitmap_t or ompi_pointer_array_t - convert to use OMPI_FINT_2_INT / OMPI_INT_2_FINT macros in various src/mpi/c/*f2c.c and src/mpi/c/*c2f.c files - check the return code of ompi_comm_free() to ensure that everything worked properly before returning MPI_SUCCESS - unified all src/mpi/c/*f2c.c functions (i.e., they all do the same thing) - tie up some loose ends w.r.t. MPI_Request handling in fortran; set the req_f_to_c_index to MPI_UNDEFINED when it does not have a fortran index - still need to add a configure test to find OMPI_FORTRAN_HANDLE_MAX for ompi_bitmap.c and ompi_pointer_array.c (hard-wired to INT_MAX right now) - re-organized, consolidated, and unified some ompi_pointer_array.c code -- fixed a few minor bugs w.r.t. lowest_free (could have left some unintentional holes in the array) This commit was SVN r3302.
2004-10-23 23:24:00 +04:00
f_status[0] = OMPI_INT_2_FINT(c_status->MPI_SOURCE);
f_status[1] = OMPI_INT_2_FINT(c_status->MPI_TAG);
f_status[2] = OMPI_INT_2_FINT(c_status->MPI_ERROR);
f_status[3] = OMPI_INT_2_FINT(c_status->_count);
Enable proper f2c <--> c2f MPI_Request translation. Pick up f2c <--> c2f MPI_Status translation along the way. This should enable Fortran MPI apps that use non-blocking communication to start working. This commit was SVN r2996.
2004-10-08 21:12:36 +04:00
return MPI_SUCCESS;
adding functions o, p, q, r and s This commit was SVN r592.
2004-01-30 00:42:40 +03:00
}
Копировать постоянную ссылку