- export symbols that are needed by the fortran libs
This commit was SVN r14527.
Этот коммит содержится в:
Sven Stork
родитель
6f9251ed39
Коммит
fe3b08004e
@ -244,7 +244,7 @@ int ompi_attr_finalize(void);
|
||||
*
|
||||
*/
|
||||
|
||||
int ompi_attr_create_keyval(ompi_attribute_type_t type,
|
||||
OMPI_DECLSPEC int ompi_attr_create_keyval(ompi_attribute_type_t type,
|
||||
ompi_attribute_fn_ptr_union_t copy_attr_fn,
|
||||
ompi_attribute_fn_ptr_union_t delete_attr_fn,
|
||||
int *key, void *extra_state, int flags,
|
||||
@ -329,7 +329,7 @@ int ompi_attr_set_c(ompi_attribute_type_t type, void *object,
|
||||
* So yes, this is more code, but it's clearer and less error-prone
|
||||
* (read: better) this way.
|
||||
*/
|
||||
int ompi_attr_set_fortran_mpi1(ompi_attribute_type_t type, void *object,
|
||||
OMPI_DECLSPEC int ompi_attr_set_fortran_mpi1(ompi_attribute_type_t type, void *object,
|
||||
opal_hash_table_t **attr_hash,
|
||||
int key, MPI_Fint attribute,
|
||||
bool predefined, bool need_lock);
|
||||
@ -367,7 +367,7 @@ int ompi_attr_set_fortran_mpi1(ompi_attribute_type_t type, void *object,
|
||||
* So yes, this is more code, but it's clearer and less error-prone
|
||||
* (read: better) this way.
|
||||
*/
|
||||
int ompi_attr_set_fortran_mpi2(ompi_attribute_type_t type, void *object,
|
||||
OMPI_DECLSPEC int ompi_attr_set_fortran_mpi2(ompi_attribute_type_t type, void *object,
|
||||
opal_hash_table_t **attr_hash,
|
||||
int key, MPI_Aint attribute,
|
||||
bool predefined, bool need_lock);
|
||||
@ -421,7 +421,7 @@ int ompi_attr_get_c(opal_hash_table_t *attr_hash, int key,
|
||||
* (read: better) this way.
|
||||
*/
|
||||
|
||||
int ompi_attr_get_fortran_mpi1(opal_hash_table_t *attr_hash, int key,
|
||||
OMPI_DECLSPEC int ompi_attr_get_fortran_mpi1(opal_hash_table_t *attr_hash, int key,
|
||||
MPI_Fint *attribute, int *flag);
|
||||
|
||||
|
||||
@ -448,7 +448,7 @@ int ompi_attr_get_fortran_mpi1(opal_hash_table_t *attr_hash, int key,
|
||||
* (read: better) this way.
|
||||
*/
|
||||
|
||||
int ompi_attr_get_fortran_mpi2(opal_hash_table_t *attr_hash, int key,
|
||||
OMPI_DECLSPEC int ompi_attr_get_fortran_mpi2(opal_hash_table_t *attr_hash, int key,
|
||||
MPI_Aint *attribute, int *flag);
|
||||
|
||||
|
||||
|
||||
@ -266,7 +266,7 @@ struct ompi_request_t;
|
||||
* If this function returns, it returns the err_code. Note that it
|
||||
* may not return (e.g., for MPI_ERRORS_ARE_FATAL).
|
||||
*/
|
||||
int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object,
|
||||
OMPI_DECLSPEC int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object,
|
||||
int type, int err_code, const char *message);
|
||||
|
||||
|
||||
|
||||
@ -19,25 +19,26 @@
|
||||
#ifndef OMPI_ERRHANDLER_PREDEFINED_H
|
||||
#define OMPI_ERRHANDLER_PREDEFINED_H
|
||||
|
||||
#include "ompi_config.h"
|
||||
|
||||
/**
|
||||
* Handler function for MPI_ERRORS_ARE_FATAL
|
||||
*/
|
||||
void ompi_mpi_errors_are_fatal_comm_handler(struct ompi_communicator_t **comm,
|
||||
OMPI_DECLSPEC void ompi_mpi_errors_are_fatal_comm_handler(struct ompi_communicator_t **comm,
|
||||
int *error_code, ...);
|
||||
void ompi_mpi_errors_are_fatal_file_handler(struct ompi_file_t **file,
|
||||
OMPI_DECLSPEC void ompi_mpi_errors_are_fatal_file_handler(struct ompi_file_t **file,
|
||||
int *error_code, ...);
|
||||
void ompi_mpi_errors_are_fatal_win_handler(struct ompi_win_t **win,
|
||||
OMPI_DECLSPEC void ompi_mpi_errors_are_fatal_win_handler(struct ompi_win_t **win,
|
||||
int *error_code, ...);
|
||||
|
||||
/**
|
||||
* Handler function for MPI_ERRORS_RETURN
|
||||
*/
|
||||
void ompi_mpi_errors_return_comm_handler(struct ompi_communicator_t **comm,
|
||||
OMPI_DECLSPEC void ompi_mpi_errors_return_comm_handler(struct ompi_communicator_t **comm,
|
||||
int *error_code, ...);
|
||||
void ompi_mpi_errors_return_file_handler(struct ompi_file_t **file,
|
||||
OMPI_DECLSPEC void ompi_mpi_errors_return_file_handler(struct ompi_file_t **file,
|
||||
int *error_code, ...);
|
||||
void ompi_mpi_errors_return_win_handler(struct ompi_win_t **win,
|
||||
OMPI_DECLSPEC void ompi_mpi_errors_return_win_handler(struct ompi_win_t **win,
|
||||
int *error_code, ...);
|
||||
|
||||
|
||||
|
||||
@ -19,6 +19,8 @@
|
||||
#ifndef OMPI_F77_STRINGS_H
|
||||
#define OMPI_F77_STRINGS_H
|
||||
|
||||
#include "ompi_config.h"
|
||||
|
||||
#if defined(c_plusplus) || defined(__cplusplus)
|
||||
extern "C" {
|
||||
#endif
|
||||
@ -38,7 +40,7 @@ extern "C" {
|
||||
* assign it to the cstr to return. The caller is responsible for
|
||||
* eventually freeing the C string.
|
||||
*/
|
||||
int ompi_fortran_string_f2c(char *fstr, int len, char **cstr);
|
||||
OMPI_DECLSPEC int ompi_fortran_string_f2c(char *fstr, int len, char **cstr);
|
||||
|
||||
/**
|
||||
* Convert a C string to a fortran string.
|
||||
@ -54,7 +56,7 @@ extern "C" {
|
||||
* convert C strings to fortran strings. It is assumed that the
|
||||
* fortran string is already allocated and has a length of len.
|
||||
*/
|
||||
int ompi_fortran_string_c2f(char *cstr, char *fstr, int len);
|
||||
OMPI_DECLSPEC int ompi_fortran_string_c2f(char *cstr, char *fstr, int len);
|
||||
|
||||
/**
|
||||
* Convert an array of Fortran strings to an argv-style array of C
|
||||
@ -73,7 +75,7 @@ extern "C" {
|
||||
* the caller's responsibility to invoke opal_argv_free() to free
|
||||
* it later (or equivalent).
|
||||
*/
|
||||
int ompi_fortran_argv_f2c(char *farray, int len, char ***cargv);
|
||||
OMPI_DECLSPEC int ompi_fortran_argv_f2c(char *farray, int len, char ***cargv);
|
||||
|
||||
/**
|
||||
* Convert an array of argvs to a C style array of argvs
|
||||
@ -89,7 +91,7 @@ extern "C" {
|
||||
* each content of argv array and call free to deallocate the argv
|
||||
* array itself
|
||||
*/
|
||||
int ompi_fortran_multiple_argvs_f2c(int count, char *array, int len,
|
||||
OMPI_DECLSPEC int ompi_fortran_multiple_argvs_f2c(int count, char *array, int len,
|
||||
char ****argv);
|
||||
|
||||
#if defined(c_plusplus) || defined(__cplusplus)
|
||||
|
||||
Загрузка…
x
Ссылка в новой задаче
Block a user