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

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

adding functions: u and w This commit was SVN r582.
2004-01-29 21:21: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
*
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: u and w This commit was SVN r582.
2004-01-29 21:21:55 +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: u and w This commit was SVN r582.
2004-01-29 21:21:55 +03:00
#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"
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: u and w This commit was SVN r582.
2004-01-29 21:21:55 +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: u and w This commit was SVN r582.
2004-01-29 21:21:55 +03:00
#pragma weak MPI_Win_f2c = PMPI_Win_f2c
#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_Win_f2c";
MPI_Win MPI_Win_f2c(MPI_Fint win)
{
MPI standard state that MPI_Win_f2c should return MPI_WIN_NULL if no windows correspond to the Fortran value. As we dont have windows right now, I still raise the error but I return MPI_WIN_NULL. This commit was SVN r3590.
2004-11-17 06:46:56 +03:00
if (MPI_PARAM_CHECK) {
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
}
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
MPI standard state that MPI_Win_f2c should return MPI_WIN_NULL if no windows correspond to the Fortran value. As we dont have windows right now, I still raise the error but I return MPI_WIN_NULL. This commit was SVN r3590.
2004-11-17 06:46:56 +03:00
/* NOTE: Be sure to see the other *f2c functions before implementing
this one -- they should all be the same! */
After consulting with Edgar and MPI-2:4.12.4, decide the following: - the f2c functions should return the corresponding *_NULL functions and not invoke an MPI exception if an invalid fortran handle is passed - the error check should be outside MPI_PARAM_CHECK -- MPI defines the behavior of when an invalid fortran handle is passed; it is not dependant upon whether we are checking parameters or not This commit was SVN r2140.
2004-08-14 16:28:25 +04:00
MPI standard state that MPI_Win_f2c should return MPI_WIN_NULL if no windows correspond to the Fortran value. As we dont have windows right now, I still raise the error but I return MPI_WIN_NULL. This commit was SVN r3590.
2004-11-17 06:46:56 +03:00
/* This function is not yet implemented */
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
MPI standard state that MPI_Win_f2c should return MPI_WIN_NULL if no windows correspond to the Fortran value. As we dont have windows right now, I still raise the error but I return MPI_WIN_NULL. This commit was SVN r3590.
2004-11-17 06:46:56 +03:00
(void)OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);
return MPI_WIN_NULL;
adding functions: u and w This commit was SVN r582.
2004-01-29 21:21:55 +03:00
}
Копировать постоянную ссылку