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

Fix fortran bindings on systems with weak symbols

Просмотр исходного кода 
This commit was SVN r1773.
Этот коммит содержится в:
Jeff Squyres 2004-07-17 20:10:03 +00:00
родитель c1f0e9bcc2
Коммит 949bf3f51d
288 изменённых файлов: 468 добавлений и 372 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

91
include/mpi.h
Просмотреть файл

@ -283,30 +283,73 @@ enum {
#define MPI_STATUS_IGNORE ((MPI_Status *) 0)
#define MPI_STATUSES_IGNORE ((MPI_Status *) 0)
int MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
void* attribute_val_out, void* flag );
int MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
int MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
int MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
void* attribute_val_out, void* flag );
int MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
int MPI_COMM_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
int MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
void* attribute_val_out, void* flag );
int MPI_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
int MPI_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
int MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
void* attribute_val_out, void* flag );
int MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
int MPI_WIN_DUP_FN( MPI_Win window, int win_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag );
/* MPI-2 specifies that the name "MPI_TYPE_NULL_DELETE_FN" (and all
related friends) must be accessible in C, C++, and Fortran. This is
unworkable if the back-end Fortran compiler uses all caps for its
linker symbol convention -- it results in two functions with
different signatures that have the same name (i.e., both C and
Fortran use the symbol MPI_TYPE_NULL_DELETE_FN). So we have to
#define the C names to be something else, so that they names are
*accessed* through MPI_TYPE_NULL_DELETE_FN, but their actual symbol
name is different.
However, this file is included when the fortran wrapper functions
are compiled in Open MPI, so we do *not* want these #defines in
this case (i.e., we need the Fortran wrapper function to be
compiled as MPI_TYPE_NULL_DELETE_FN). So add some #if kinds of
protection for this case. */
#if !defined(OMPI_COMPILING_F77_WRAPPERS)
#define MPI_NULL_DELETE_FN OMPI_C_MPI_NULL_DELETE_FN
#define MPI_NULL_COPY_FN OMPI_C_MPI_NULL_COPY_FN
#define MPI_DUP_FN OMPI_C_MPI_DUP_FN
#define MPI_TYPE_NULL_DELETE_FN OMPI_C_MPI_TYPE_NULL_DELETE_FN
#define MPI_TYPE_NULL_COPY_FN OMPI_C_MPI_TYPE_NULL_COPY_FN
#define MPI_TYPE_DUP_FN OMPI_C_MPI_TYPE_DUP_FN
#define MPI_COMM_NULL_DELETE_FN OMPI_C_MPI_COMM_NULL_DELETE_FN
#define MPI_COMM_NULL_COPY_FN OMPI_C_MPI_COMM_NULL_COPY_FN
#define MPI_COMM_DUP_FN OMPI_C_MPI_COMM_DUP_FN
#define MPI_WIN_NULL_DELETE_FN OMPI_C_MPI_WIN_NULL_DELETE_FN
#define MPI_WIN_NULL_COPY_FN OMPI_C_MPI_WIN_NULL_COPY_FN
#define MPI_WIN_DUP_FN OMPI_C_MPI_WIN_DUP_FN
#endif
int OMPI_C_MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
void* attribute_val_out, void* flag );
int OMPI_C_MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval,
void* extra_state,
void* attribute_val_in,
void* attribute_val_out, int* flag );
int OMPI_C_MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval,
void* extra_state, void* attribute_val_in,
void* attribute_val_out, int* flag );
int OMPI_C_MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
void* attribute_val_out, void* flag );
int OMPI_C_MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval,
void* extra_state, void* attribute_val_in,
void* attribute_val_out, int* flag );
int OMPI_C_MPI_COMM_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out,
int* flag );
int OMPI_C_MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
void* attribute_val_out, void* flag );
int OMPI_C_MPI_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out,
int* flag );
int OMPI_C_MPI_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out,
int* flag );
int OMPI_C_MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
void* attribute_val_out, void* flag );
int OMPI_C_MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval,
void* extra_state, void* attribute_val_in,
void* attribute_val_out, int* flag );
int OMPI_C_MPI_WIN_DUP_FN( MPI_Win window, int win_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out,
int* flag );
/*
* External variables

2
src/mpi/f77/Makefile.am
Просмотреть файл

@ -11,7 +11,7 @@ include $(top_srcdir)/config/Makefile.options
# replaces all MPI_* symbols with PMPI_* symbols. In this directory,
# we need it to be 0
#
AM_CPPFLAGS = -DOMPI_PROFILE_LAYER=0
AM_CPPFLAGS = -DOMPI_PROFILE_LAYER=0 -DOMPI_COMPILING_F77_WRAPPERS=1
#
# The top directory always builds MPI_* bindings. The bottom directory
# always builds PMPI_* bindings. The cases where the top directory

2
src/mpi/f77/abort_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ABORT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)

2
src/mpi/f77/accumulate_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ACCUMULATE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_accumulate_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr)

2
src/mpi/f77/add_error_class_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CLASS,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr)

2
src/mpi/f77/add_error_code_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CODE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr)

2
src/mpi/f77/add_error_string_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_STRING,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr)

2
src/mpi/f77/address_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADDRESS,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr)

2
src/mpi/f77/allgather_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLGATHER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_allgather_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/allgatherv_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLGATHERV,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_allgatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/alloc_mem_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLOC_MEM,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_alloc_mem_f(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr)

2
src/mpi/f77/allreduce_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLREDUCE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_allreduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/alltoall_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALL,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_alltoall_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/alltoallv_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALLV,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_alltoallv_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/alltoallw_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALLW,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_alltoallw_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/attr_delete_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_DELETE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_attr_delete_f(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr)

79
src/mpi/f77/attr_fn_f.c
Просмотреть файл

@ -11,31 +11,6 @@
#include "win/win.h"
#include "communicator/communicator.h"
void mpi_type_null_delete_fn_f( MPI_Fint* type, int* type_keyval,
void* attribute_val_out, int* flag, int* ierr );
void mpi_type_null_copy_fn_f( MPI_Fint* type, int* type_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
void mpi_type_dup_fn_f( MPI_Fint* type, int* type_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
void mpi_win_dup_fn_f( MPI_Fint* window, int* win_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
void mpi_win_null_copy_fn_f( MPI_Fint* window, int* win_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
void mpi_win_null_delete_fn_f( MPI_Fint* window, int* win_keyval,
void* attribute_val_out, int* flag, int* ierr );
void mpi_null_delete_fn_f( MPI_Fint* comm, int* comm_keyval,
void* attribute_val_out, int* flag, int* ierr );
void mpi_null_copy_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
void mpi_dup_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
void mpi_comm_null_delete_fn_f( MPI_Fint* comm, int* comm_keyval,
void* attribute_val_out, int* flag, int* ierr );
void mpi_comm_null_copy_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
void mpi_comm_dup_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr );
#if OMPI_HAVE_WEAK_SYMBOLS
#pragma weak MPI_TYPE_NULL_COPY_FN = mpi_type_null_copy_fn_f
#pragma weak mpi_type_null_copy_fn = mpi_type_null_copy_fn_f
@ -107,7 +82,7 @@ OMPI_GENERATE_F77_BINDINGS( MPI_TYPE_DUP_FN,
mpi_type_dup_fn__,
mpi_type_dup_fn_f,
(MPI_Fint* type, int* type_keyval, void* extra_state, void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr),
(type, type_keyval, extra_state, attribute_val_in, attribute_val_out, ierr) )
(type, type_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
OMPI_GENERATE_F77_BINDINGS( MPI_COMM_NULL_DELETE_FN,
mpi_comm_null_delete_fn,
mpi_comm_null_delete_fn_,
@ -121,14 +96,14 @@ OMPI_GENERATE_F77_BINDINGS( MPI_COMM_NULL_COPY_FN,
mpi_comm_null_copy_fn__,
mpi_comm_null_copy_fn_f,
(MPI_Fint* comm, int* comm_keyval, void* extra_state, void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr),
(type, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
(comm, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
OMPI_GENERATE_F77_BINDINGS( MPI_COMM_DUP_FN,
mpi_comm_dup_fn,
mpi_comm_dup_fn_,
mpi_comm_dup_fn__,
mpi_comm_dup_fn_f,
(MPI_Fint* comm, int* comm_keyval, void* extra_state, void* attribute_val_in, void* attribute_val_out, int* flag, int* ierr),
(type, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
(comm, comm_keyval, extra_state, attribute_val_in, attribute_val_out, flag, ierr) )
OMPI_GENERATE_F77_BINDINGS( MPI_NULL_DELETE_FN,
mpi_null_delete_fn,
mpi_null_delete_fn_,
@ -178,7 +153,8 @@ void mpi_type_null_delete_fn_f( MPI_Fint* type, int* type_keyval,
{
MPI_Datatype c_type = MPI_Type_f2c(*type);
*ierr = MPI_TYPE_NULL_DELETE_FN( c_type, *type_keyval, attribute_val_out, flag );
*ierr = OMPI_C_MPI_TYPE_NULL_DELETE_FN( c_type, *type_keyval,
attribute_val_out, flag );
}
void mpi_type_null_copy_fn_f( MPI_Fint* type, int* type_keyval, void* extra_state,
@ -186,8 +162,9 @@ void mpi_type_null_copy_fn_f( MPI_Fint* type, int* type_keyval, void* extra_stat
{
MPI_Datatype c_type = MPI_Type_f2c(*type);
*ierr = MPI_TYPE_NULL_COPY_FN( c_type, *type_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_TYPE_NULL_COPY_FN( c_type, *type_keyval, extra_state,
attribute_val_in, attribute_val_out,
flag );
}
void mpi_type_dup_fn_f( MPI_Fint* type, int* type_keyval, void* extra_state,
@ -195,8 +172,8 @@ void mpi_type_dup_fn_f( MPI_Fint* type, int* type_keyval, void* extra_state,
{
MPI_Datatype c_type = MPI_Type_f2c(*type);
*ierr = MPI_TYPE_DUP_FN( c_type, *type_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_TYPE_DUP_FN( c_type, *type_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
}
void mpi_comm_null_delete_fn_f( MPI_Fint* comm, int* comm_keyval,
@ -204,7 +181,8 @@ void mpi_comm_null_delete_fn_f( MPI_Fint* comm, int* comm_keyval,
{
MPI_Comm c_comm = MPI_Comm_f2c( *comm );
*ierr = MPI_COMM_NULL_DELETE_FN( c_comm, *comm_keyval, attribute_val_out, flag );
*ierr = OMPI_C_MPI_COMM_NULL_DELETE_FN( c_comm, *comm_keyval,
attribute_val_out, flag );
}
void mpi_comm_null_copy_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
@ -212,8 +190,9 @@ void mpi_comm_null_copy_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_stat
{
MPI_Comm c_comm = MPI_Comm_f2c( *comm );
*ierr = MPI_COMM_NULL_COPY_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_COMM_NULL_COPY_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out,
flag );
}
void mpi_comm_dup_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
@ -221,8 +200,8 @@ void mpi_comm_dup_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
{
MPI_Comm c_comm = MPI_Comm_f2c( *comm );
*ierr = MPI_COMM_DUP_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_COMM_DUP_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
}
void mpi_null_delete_fn_f( MPI_Fint* comm, int* comm_keyval,
@ -230,7 +209,8 @@ void mpi_null_delete_fn_f( MPI_Fint* comm, int* comm_keyval,
{
MPI_Comm c_comm = MPI_Comm_f2c( *comm );
*ierr = MPI_NULL_DELETE_FN( c_comm, *comm_keyval, attribute_val_out, flag );
*ierr = OMPI_C_MPI_NULL_DELETE_FN( c_comm, *comm_keyval,
attribute_val_out, flag );
}
void mpi_null_copy_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
@ -238,8 +218,9 @@ void mpi_null_copy_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
{
MPI_Comm c_comm = MPI_Comm_f2c( *comm );
*ierr = MPI_NULL_COPY_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_NULL_COPY_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out,
flag );
}
void mpi_dup_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
@ -247,8 +228,8 @@ void mpi_dup_fn_f( MPI_Fint* comm, int* comm_keyval, void* extra_state,
{
MPI_Comm c_comm = MPI_Comm_f2c( *comm );
*ierr = MPI_DUP_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_DUP_FN( c_comm, *comm_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
}
void mpi_win_null_delete_fn_f( MPI_Fint* window, int* win_keyval,
@ -256,7 +237,8 @@ void mpi_win_null_delete_fn_f( MPI_Fint* window, int* win_keyval,
{
MPI_Win c_window = MPI_Win_f2c( *window );
*ierr = MPI_WIN_NULL_DELETE_FN( c_window, *win_keyval, attribute_val_out, flag );
*ierr = OMPI_C_MPI_WIN_NULL_DELETE_FN( c_window, *win_keyval,
attribute_val_out, flag );
}
void mpi_win_null_copy_fn_f( MPI_Fint* window, int* win_keyval, void* extra_state,
@ -264,8 +246,9 @@ void mpi_win_null_copy_fn_f( MPI_Fint* window, int* win_keyval, void* extra_stat
{
MPI_Win c_window = MPI_Win_f2c( *window );
*ierr = MPI_WIN_NULL_COPY_FN( c_window, *win_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_WIN_NULL_COPY_FN( c_window, *win_keyval, extra_state,
attribute_val_in, attribute_val_out,
flag );
}
void mpi_win_dup_fn_f( MPI_Fint* window, int* win_keyval, void* extra_state,
@ -273,6 +256,6 @@ void mpi_win_dup_fn_f( MPI_Fint* window, int* win_keyval, void* extra_state,
{
MPI_Win c_window = MPI_Win_f2c( *window );
*ierr = MPI_WIN_DUP_FN( c_window, *win_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
*ierr = OMPI_C_MPI_WIN_DUP_FN( c_window, *win_keyval, extra_state,
attribute_val_in, attribute_val_out, flag );
}

2
src/mpi/f77/attr_get_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_GET,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_attr_get_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)

2
src/mpi/f77/attr_put_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_PUT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_attr_put_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr)

2
src/mpi/f77/barrier_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BARRIER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_barrier_f(MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/bcast_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BCAST,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_bcast_f(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/bsend_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BSEND,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_bsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/bsend_init_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BSEND_INIT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_bsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/buffer_attach_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BUFFER_ATTACH,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_buffer_attach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr)

2
src/mpi/f77/buffer_detach_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BUFFER_DETACH,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_buffer_detach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr)

2
src/mpi/f77/cancel_f.c
Просмотреть файл

@ -42,7 +42,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CANCEL,
#endif
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cancel_f(MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/cart_coords_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_COORDS,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cart_coords_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr)

2
src/mpi/f77/cart_create_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_CREATE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr)

2
src/mpi/f77/cart_get_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_GET,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cart_get_f(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr)

2
src/mpi/f77/cart_map_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_MAP,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cart_map_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr)

2
src/mpi/f77/cart_rank_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_RANK,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr)

2
src/mpi/f77/cart_shift_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_SHIFT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cart_shift_f(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr)

2
src/mpi/f77/cart_sub_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_SUB,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cart_sub_f(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr)

2
src/mpi/f77/cartdim_get_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CARTDIM_GET,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_cartdim_get_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr)

2
src/mpi/f77/close_port_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CLOSE_PORT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_close_port_f(char *port_name, MPI_Fint *ierr)

2
src/mpi/f77/comm_accept_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_ACCEPT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)

2
src/mpi/f77/comm_call_errhandler_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CALL_ERRHANDLER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)

2
src/mpi/f77/comm_compare_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_COMPARE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr)

2
src/mpi/f77/comm_connect_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CONNECT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)

2
src/mpi/f77/comm_create_errhandler_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_ERRHANDLER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/comm_create_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)

2
src/mpi/f77/comm_create_keyval_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_KEYVAL,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_create_keyval_f(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr)

2
src/mpi/f77/comm_delete_attr_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DELETE_ATTR,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr)

2
src/mpi/f77/comm_disconnect_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DISCONNECT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/comm_dup_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DUP,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_dup_f(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)

2
src/mpi/f77/comm_free_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_FREE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_free_f(MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/comm_free_keyval_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_FREE_KEYVAL,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr)

2
src/mpi/f77/comm_get_attr_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_ATTR,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_get_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)

2
src/mpi/f77/comm_get_errhandler_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_ERRHANDLER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_get_errhandler_f(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr)

2
src/mpi/f77/comm_get_name_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_NAME,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_get_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr)

2
src/mpi/f77/comm_get_parent_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_PARENT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_get_parent_f(MPI_Fint *parent, MPI_Fint *ierr)

2
src/mpi/f77/comm_group_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GROUP,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)

2
src/mpi/f77/comm_join_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_JOIN,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_join_f(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr)

2
src/mpi/f77/comm_rank_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_RANK,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_rank_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr)

2
src/mpi/f77/comm_remote_group_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_GROUP,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_remote_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)

2
src/mpi/f77/comm_remote_size_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_SIZE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_remote_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)

2
src/mpi/f77/comm_set_attr_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_ATTR,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_set_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr)

2
src/mpi/f77/comm_set_errhandler_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_ERRHANDLER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_set_errhandler_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/comm_set_name_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_NAME,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_set_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr)

2
src/mpi/f77/comm_size_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SIZE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)

2
src/mpi/f77/comm_spawn_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_spawn_f(char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr)

2
src/mpi/f77/comm_spawn_multiple_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN_MULTIPLE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_spawn_multiple_f(MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr)

2
src/mpi/f77/comm_split_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPLIT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr)

2
src/mpi/f77/comm_test_inter_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_TEST_INTER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr)

2
src/mpi/f77/dims_create_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_DIMS_CREATE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr)

2
src/mpi/f77/errhandler_create_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_CREATE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/errhandler_free_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_FREE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/errhandler_get_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_GET,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/errhandler_set_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_SET,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/error_class_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERROR_CLASS,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr)

2
src/mpi/f77/error_string_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERROR_STRING,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr)

2
src/mpi/f77/exscan_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_EXSCAN,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)

2
src/mpi/f77/file_call_errhandler_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CALL_ERRHANDLER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr)

2
src/mpi/f77/file_close_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CLOSE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_close_f(MPI_Fint *fh, MPI_Fint *ierr)

2
src/mpi/f77/file_create_errhandler_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CREATE_ERRHANDLER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/file_delete_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_DELETE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_delete_f(char *filename, MPI_Fint *info, MPI_Fint *ierr)

2
src/mpi/f77/file_get_amode_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_AMODE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_amode_f(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr)

2
src/mpi/f77/file_get_atomicity_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ATOMICITY,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr)

2
src/mpi/f77/file_get_byte_offset_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_BYTE_OFFSET,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr)

2
src/mpi/f77/file_get_errhandler_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ERRHANDLER,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr)

2
src/mpi/f77/file_get_group_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_GROUP,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_group_f(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr)

2
src/mpi/f77/file_get_info_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_INFO,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_info_f(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr)

2
src/mpi/f77/file_get_position_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_position_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr)

2
src/mpi/f77/file_get_position_shared_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION_SHARED,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr)

2
src/mpi/f77/file_get_size_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_SIZE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr)

2
src/mpi/f77/file_get_type_extent_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_TYPE_EXTENT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr)

2
src/mpi/f77/file_get_view_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_VIEW,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr)

2
src/mpi/f77/file_iread_at_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_AT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iread_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/file_iread_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/file_iread_shared_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_SHARED,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/file_iwrite_at_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_AT,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iwrite_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/file_iwrite_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iwrite_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/file_iwrite_shared_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_SHARED,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iwrite_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)

2
src/mpi/f77/file_open_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_OPEN,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr)

2
src/mpi/f77/file_preallocate_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_PREALLOCATE,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_preallocate_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr)

2
src/mpi/f77/file_read_all_begin_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_BEGIN,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_read_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr)

2
src/mpi/f77/file_read_all_end_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_END,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_read_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr)

2
src/mpi/f77/file_read_all_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_read_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr)

2
src/mpi/f77/file_read_at_all_begin_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_BEGIN,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_read_at_all_begin_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr)

2
src/mpi/f77/file_read_at_all_end_f.c
Просмотреть файл

@ -43,7 +43,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_END,
#if OMPI_PROFILE_LAYER && ! OMPI_HAVE_WEAK_SYMBOLS
#include "mpi/c/profile/defines.h"
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_read_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr)

Некоторые файлы не были показаны из-за слишком большого количества измененных файлов Показать больше