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

51 строка
1.4 KiB
C
Исходник Обычный вид История

adding new funcions This commit was SVN r537.
2004-01-25 01:51:49 +00:00
/*
Merging in the jjhursey-ft-cr-stable branch (r13912 : HEAD). This merge adds Checkpoint/Restart support to Open MPI. The initial frameworks and components support a LAM/MPI-like implementation. This commit follows the risk assessment presented to the Open MPI core development group on Feb. 22, 2007. This commit closes trac:158 More details to follow. This commit was SVN r14051. The following SVN revisions from the original message are invalid or inconsistent and therefore were not cross-referenced: r13912 The following Trac tickets were found above: Ticket 158 --> https://svn.open-mpi.org/trac/ompi/ticket/158
2007-03-16 23:11:45 +00:00
* Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
Update the copyright notices for IU and UTK. This commit was SVN r7999.
2005-11-05 19:57:48 +00: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 20:09:25 +00: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 12:43:37 +00:00
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
Commit 1.5 of 2: just like r9560, we need to make the MPI_*_C2F functions return an invalid fortran handle (-1) if an invalid C handle is passed in. Just so it's logged somewhere -- it looks like commit 2 of 2 as noted in the r9560 commit message (ok, 3 of 3 if you're really counting), where we have to edit the C interface functions to check for NULL, is going to be far easier than I thought -- many (but not all) of the C interface functions already check for NULL MPI handles (either directly or through helper functions). Woo hoo for foresight... This commit was SVN r9561. The following SVN revision numbers were found above: r9560 --> open-mpi/ompi@e00c6053dc5e6cb23335bb57cc312b4ca71d3e8f
2006-04-07 04:01:22 +00:00
* Copyright (c) 2006 Cisco Systems, Inc. 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 01:38:40 +00:00
* $COPYRIGHT$
*
* Additional copyrights may follow
*
Fix $HEADERS$ -> $HEADER$ -- will make for easier replacement later This commit was SVN r3173.
2004-10-15 19:31:47 +00:00
* $HEADER$
adding new funcions This commit was SVN r537.
2004-01-25 01:51:49 +00:00
*/
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 15:33:53 +00:00
#include "ompi_config.h"
adding new funcions This commit was SVN r537.
2004-01-25 01:51:49 +00:00
#include <stdio.h>
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 01:33:29 +00:00
#include "ompi/mpi/c/bindings.h"
#include "ompi/mpi/f77/fint_2_int.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 09:17:44 +00:00
#include "ompi/group/group.h"
adding new funcions This commit was SVN r537.
2004-01-25 01:51:49 +00:00
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 15:33:53 +00:00
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
adding new funcions This commit was SVN r537.
2004-01-25 01:51:49 +00:00
#pragma weak MPI_Group_c2f = PMPI_Group_c2f
#endif
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 15:33:53 +00: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 01:33:29 +00: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 18:50:43 +00: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 02:58:53 +00:00
static const char FUNC_NAME[] = "MPI_Group_c2f";
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 19:24:00 +00:00
MPI_Fint MPI_Group_c2f(MPI_Group group)
{
Merging in the jjhursey-ft-cr-stable branch (r13912 : HEAD). This merge adds Checkpoint/Restart support to Open MPI. The initial frameworks and components support a LAM/MPI-like implementation. This commit follows the risk assessment presented to the Open MPI core development group on Feb. 22, 2007. This commit closes trac:158 More details to follow. This commit was SVN r14051. The following SVN revisions from the original message are invalid or inconsistent and therefore were not cross-referenced: r13912 The following Trac tickets were found above: Ticket 158 --> https://svn.open-mpi.org/trac/ompi/ticket/158
2007-03-16 23:11:45 +00:00
OPAL_CR_TEST_CHECKPOINT_READY();
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 19:24:00 +00:00
if ( MPI_PARAM_CHECK ) {
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 02:58:53 +00:00
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
Changed c2f calls to not call an errorhandler but instead use NULL objects instead (file is special case, and a few like win still not implemented). This commit was SVN r2723.
2004-09-16 15:14:55 +00:00
add MPI error handling. This commit was SVN r952.
2004-03-22 21:42:12 +00:00
if( (NULL == group) ) {
Commit 1.5 of 2: just like r9560, we need to make the MPI_*_C2F functions return an invalid fortran handle (-1) if an invalid C handle is passed in. Just so it's logged somewhere -- it looks like commit 2 of 2 as noted in the r9560 commit message (ok, 3 of 3 if you're really counting), where we have to edit the C interface functions to check for NULL, is going to be far easier than I thought -- many (but not all) of the C interface functions already check for NULL MPI handles (either directly or through helper functions). Woo hoo for foresight... This commit was SVN r9561. The following SVN revision numbers were found above: r9560 --> open-mpi/ompi@e00c6053dc5e6cb23335bb57cc312b4ca71d3e8f
2006-04-07 04:01:22 +00:00
return OMPI_INT_2_FINT(-1);
continue to implement the group functionality. Fix several bugs. create lam_mpi_group_empty and lam_mpi_group_null and add them to group table as entry 1 and 0, respectively. This makes is possible to eliminate some special case code. This commit was SVN r843.
2004-03-15 02:25:49 +00:00
}
}
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 19:24:00 +00:00
return OMPI_INT_2_FINT(group->grp_f_to_c_index) ;
adding new funcions This commit was SVN r537.
2004-01-25 01:51:49 +00:00
}
Копировать постоянную ссылку