Fix issue with function pointers coming in from fortran. This is as
result of a long, confusing conversation between Geroge and myself, and a bunch more Intel tests now pass as a result: - use (void*) instead of (MPI_Fint*). Don't use the proper function pointer type (as defined in, e.g., op/op.h) because a) there's no typecasting coming in from fortran anyway, and b) it would make a dependency from all the fortran bindings to op.h, errhandler.h, and attribute.h. - do not dereference function pointers when calling the back-end C MPI functions -- pass them as the pointers that Fortran passed in the first place. This commit was SVN r3299.
Этот коммит содержится в:
Jeff Squyres
родитель
d9cb8165a5
Коммит
d8fb2ff1e5
@ -5,9 +5,8 @@
|
||||
#ifndef OMPI_F77_BINDINGS_H
|
||||
#define OMPI_F77_BINDINGS_H
|
||||
|
||||
#include <stdlib.h>
|
||||
|
||||
#include "ompi_config.h"
|
||||
|
||||
#include "mpi.h"
|
||||
|
||||
/*
|
||||
@ -36,126 +35,9 @@
|
||||
* .h files and lower-level includes "src/mpi/interface/f77/profile" .h files
|
||||
*/
|
||||
|
||||
/*
|
||||
* Define MACROS to take account of different size of MPI_Fint from int
|
||||
*/
|
||||
|
||||
#if OMPI_SIZEOF_FORTRAN_INT == SIZEOF_INT
|
||||
#define OMPI_ARRAY_NAME_DECL(a)
|
||||
#define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2)
|
||||
#define OMPI_SINGLE_NAME_DECL(a)
|
||||
#define OMPI_ARRAY_NAME_CONVERT(a) a
|
||||
#define OMPI_SINGLE_NAME_CONVERT(a) a
|
||||
#define OMPI_INT_2_FINT(a) a
|
||||
#define OMPI_FINT_2_INT(a) a
|
||||
#define OMPI_ARRAY_FINT_2_INT_ALLOC(in, n)
|
||||
#define OMPI_ARRAY_FINT_2_INT(in, n)
|
||||
#define OMPI_2_DIM_ARRAY_FINT_2_INT(in, n, dim2)
|
||||
#define OMPI_ARRAY_FINT_2_INT_CLEANUP(in)
|
||||
#define OMPI_SINGLE_FINT_2_INT(in)
|
||||
#define OMPI_SINGLE_INT_2_FINT(in)
|
||||
#define OMPI_ARRAY_INT_2_FINT(in, n)
|
||||
|
||||
#elif OMPI_SIZEOF_FORTRAN_INT > SIZEOF_INT
|
||||
#define OMPI_ARRAY_NAME_DECL(a) int *c_##a
|
||||
#define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2) int (*c_##a)[dim2], dim2_index
|
||||
#define OMPI_SINGLE_NAME_DECL(a) int c_##a
|
||||
#define OMPI_ARRAY_NAME_CONVERT(a) c_##a
|
||||
#define OMPI_SINGLE_NAME_CONVERT(a) &c_##a
|
||||
#define OMPI_INT_2_FINT(a) a
|
||||
#define OMPI_FINT_2_INT(a) (int) (a)
|
||||
|
||||
/* This is for OUT parameters. Does only alloc */
|
||||
#define OMPI_ARRAY_FINT_2_INT_ALLOC(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int))
|
||||
|
||||
/* This is for IN/IN-OUT parameters. Does alloc and assignment */
|
||||
#define OMPI_ARRAY_FINT_2_INT(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int)); \
|
||||
while(n > 0) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1] = (int) in[n - 1]; \
|
||||
--n; \
|
||||
}
|
||||
|
||||
/* This is for 2-dim arrays */
|
||||
#define OMPI_2_DIM_ARRAY_FINT_2_INT(in, n, dim2) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = (int (*)[dim2]) malloc(n * sizeof(*OMPI_ARRAY_NAME_CONVERT(in))); \
|
||||
while(n > 0) { \
|
||||
for(dim2_index = 0; dim2_index < dim2; ++dim2_index) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1][dim2_index] = (int)in[n - 1][dim2_index]; \
|
||||
} \
|
||||
--n; \
|
||||
}
|
||||
|
||||
/* This is for IN parameters. Does only free */
|
||||
#define OMPI_ARRAY_FINT_2_INT_CLEANUP(in) \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
/* This is for single IN parameter */
|
||||
#define OMPI_SINGLE_FINT_2_INT(in) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = (int) *(in)
|
||||
|
||||
/* This is for single OUT parameter */
|
||||
#define OMPI_SINGLE_INT_2_FINT(in) \
|
||||
*(in) = OMPI_ARRAY_NAME_CONVERT(in)
|
||||
|
||||
/* This is for OUT/IN-OUT parametes. Does back assignment and free */
|
||||
#define OMPI_ARRAY_INT_2_FINT(in, n) \
|
||||
while(n > 0) {\
|
||||
in[n - 1] = OMPI_ARRAY_NAME_CONVERT(in)[n - 1]; \
|
||||
--n; \
|
||||
} \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
#else /* int > MPI_Fint */
|
||||
#define OMPI_ARRAY_NAME_DECL(a) int *c_##a
|
||||
#define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2) int (*c_##a)[dim2], dim2_index
|
||||
#define OMPI_SINGLE_NAME_DECL(a) int c_##a
|
||||
#define OMPI_ARRAY_NAME_CONVERT(a) c_##a
|
||||
#define OMPI_SINGLE_NAME_CONVERT(a) &c_##a
|
||||
#define OMPI_INT_2_FINT(a) (MPI_Fint)(a)
|
||||
#define OMPI_FINT_2_INT(a) (a)
|
||||
|
||||
/* This is for OUT parameters. Does only alloc */
|
||||
#define OMPI_ARRAY_FINT_2_INT_ALLOC(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int))
|
||||
|
||||
#define OMPI_ARRAY_FINT_2_INT(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int)); \
|
||||
while(n > 0) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1] = in[n - 1]; \
|
||||
--n; \
|
||||
}
|
||||
|
||||
#define OMPI_2_DIM_ARRAY_FINT_2_INT(in, n, dim2) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = (int (*)[dim2]) malloc(n * sizeof(*OMPI_ARRAY_NAME_CONVERT(in))); \
|
||||
while(n > 0) { \
|
||||
for(dim2_index = 0; dim2_index < dim2; ++dim2_index) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1][dim2_index] = in[n - 1][dim2_index]; \
|
||||
} \
|
||||
--n; \
|
||||
}
|
||||
|
||||
#define OMPI_ARRAY_FINT_2_INT_CLEANUP(in) \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
#define OMPI_SINGLE_FINT_2_INT(in) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = *(in)
|
||||
|
||||
#define OMPI_SINGLE_INT_2_FINT(in) \
|
||||
*in = (MPI_Fint) OMPI_ARRAY_NAME_CONVERT(in)
|
||||
|
||||
#define OMPI_ARRAY_INT_2_FINT(in, n) \
|
||||
while(n > 0) {\
|
||||
in[n - 1] = (MPI_Fint) OMPI_ARRAY_NAME_CONVERT(in)[n - 1]; \
|
||||
--n; \
|
||||
} \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
#include "mpi/f77/prototypes_mpi.h"
|
||||
#include "mpi/f77/profile/prototypes_pmpi.h"
|
||||
|
||||
#include "mpi/f77/fint_2_int.h"
|
||||
|
||||
#endif /* OMPI_F77_BINDINGS_H */
|
||||
|
||||
131
src/mpi/f77/fint_2_int.h
Обычный файл
131
src/mpi/f77/fint_2_int.h
Обычный файл
@ -0,0 +1,131 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#ifndef OMPI_FINT_2_INT_H
|
||||
#define OMPI_FINT_2_INT_H
|
||||
|
||||
#include "ompi_config.h"
|
||||
|
||||
#include <stdlib.h>
|
||||
|
||||
/*
|
||||
* Define MACROS to take account of different size of MPI_Fint from int
|
||||
*/
|
||||
|
||||
#if OMPI_SIZEOF_FORTRAN_INT == SIZEOF_INT
|
||||
#define OMPI_ARRAY_NAME_DECL(a)
|
||||
#define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2)
|
||||
#define OMPI_SINGLE_NAME_DECL(a)
|
||||
#define OMPI_ARRAY_NAME_CONVERT(a) a
|
||||
#define OMPI_SINGLE_NAME_CONVERT(a) a
|
||||
#define OMPI_INT_2_FINT(a) a
|
||||
#define OMPI_FINT_2_INT(a) a
|
||||
#define OMPI_ARRAY_FINT_2_INT_ALLOC(in, n)
|
||||
#define OMPI_ARRAY_FINT_2_INT(in, n)
|
||||
#define OMPI_2_DIM_ARRAY_FINT_2_INT(in, n, dim2)
|
||||
#define OMPI_ARRAY_FINT_2_INT_CLEANUP(in)
|
||||
#define OMPI_SINGLE_FINT_2_INT(in)
|
||||
#define OMPI_SINGLE_INT_2_FINT(in)
|
||||
#define OMPI_ARRAY_INT_2_FINT(in, n)
|
||||
|
||||
#elif OMPI_SIZEOF_FORTRAN_INT > SIZEOF_INT
|
||||
#define OMPI_ARRAY_NAME_DECL(a) int *c_##a
|
||||
#define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2) int (*c_##a)[dim2], dim2_index
|
||||
#define OMPI_SINGLE_NAME_DECL(a) int c_##a
|
||||
#define OMPI_ARRAY_NAME_CONVERT(a) c_##a
|
||||
#define OMPI_SINGLE_NAME_CONVERT(a) &c_##a
|
||||
#define OMPI_INT_2_FINT(a) a
|
||||
#define OMPI_FINT_2_INT(a) (int) (a)
|
||||
|
||||
/* This is for OUT parameters. Does only alloc */
|
||||
#define OMPI_ARRAY_FINT_2_INT_ALLOC(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int))
|
||||
|
||||
/* This is for IN/IN-OUT parameters. Does alloc and assignment */
|
||||
#define OMPI_ARRAY_FINT_2_INT(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int)); \
|
||||
while(n > 0) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1] = (int) in[n - 1]; \
|
||||
--n; \
|
||||
}
|
||||
|
||||
/* This is for 2-dim arrays */
|
||||
#define OMPI_2_DIM_ARRAY_FINT_2_INT(in, n, dim2) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = (int (*)[dim2]) malloc(n * sizeof(*OMPI_ARRAY_NAME_CONVERT(in))); \
|
||||
while(n > 0) { \
|
||||
for(dim2_index = 0; dim2_index < dim2; ++dim2_index) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1][dim2_index] = (int)in[n - 1][dim2_index]; \
|
||||
} \
|
||||
--n; \
|
||||
}
|
||||
|
||||
/* This is for IN parameters. Does only free */
|
||||
#define OMPI_ARRAY_FINT_2_INT_CLEANUP(in) \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
/* This is for single IN parameter */
|
||||
#define OMPI_SINGLE_FINT_2_INT(in) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = (int) *(in)
|
||||
|
||||
/* This is for single OUT parameter */
|
||||
#define OMPI_SINGLE_INT_2_FINT(in) \
|
||||
*(in) = OMPI_ARRAY_NAME_CONVERT(in)
|
||||
|
||||
/* This is for OUT/IN-OUT parametes. Does back assignment and free */
|
||||
#define OMPI_ARRAY_INT_2_FINT(in, n) \
|
||||
while(n > 0) {\
|
||||
in[n - 1] = OMPI_ARRAY_NAME_CONVERT(in)[n - 1]; \
|
||||
--n; \
|
||||
} \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
#else /* int > MPI_Fint */
|
||||
#define OMPI_ARRAY_NAME_DECL(a) int *c_##a
|
||||
#define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2) int (*c_##a)[dim2], dim2_index
|
||||
#define OMPI_SINGLE_NAME_DECL(a) int c_##a
|
||||
#define OMPI_ARRAY_NAME_CONVERT(a) c_##a
|
||||
#define OMPI_SINGLE_NAME_CONVERT(a) &c_##a
|
||||
#define OMPI_INT_2_FINT(a) (MPI_Fint)(a)
|
||||
#define OMPI_FINT_2_INT(a) (a)
|
||||
|
||||
/* This is for OUT parameters. Does only alloc */
|
||||
#define OMPI_ARRAY_FINT_2_INT_ALLOC(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int))
|
||||
|
||||
#define OMPI_ARRAY_FINT_2_INT(in, n) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = malloc(n * sizeof(int)); \
|
||||
while(n > 0) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1] = in[n - 1]; \
|
||||
--n; \
|
||||
}
|
||||
|
||||
#define OMPI_2_DIM_ARRAY_FINT_2_INT(in, n, dim2) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = (int (*)[dim2]) malloc(n * sizeof(*OMPI_ARRAY_NAME_CONVERT(in))); \
|
||||
while(n > 0) { \
|
||||
for(dim2_index = 0; dim2_index < dim2; ++dim2_index) { \
|
||||
OMPI_ARRAY_NAME_CONVERT(in)[n - 1][dim2_index] = in[n - 1][dim2_index]; \
|
||||
} \
|
||||
--n; \
|
||||
}
|
||||
|
||||
#define OMPI_ARRAY_FINT_2_INT_CLEANUP(in) \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
#define OMPI_SINGLE_FINT_2_INT(in) \
|
||||
OMPI_ARRAY_NAME_CONVERT(in) = *(in)
|
||||
|
||||
#define OMPI_SINGLE_INT_2_FINT(in) \
|
||||
*in = (MPI_Fint) OMPI_ARRAY_NAME_CONVERT(in)
|
||||
|
||||
#define OMPI_ARRAY_INT_2_FINT(in, n) \
|
||||
while(n > 0) {\
|
||||
in[n - 1] = (MPI_Fint) OMPI_ARRAY_NAME_CONVERT(in)[n - 1]; \
|
||||
--n; \
|
||||
} \
|
||||
free(OMPI_ARRAY_NAME_CONVERT(in))
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
#endif /* OMPI_FINT_2_INT_H */
|
||||
@ -1,7 +1,6 @@
|
||||
#ifndef OMPI_F77_PROTOTYPES_PMPI_H
|
||||
#define OMPI_F77_PROTOTYPES_PMPI_H
|
||||
/*
|
||||
* $HEADER$
|
||||
*
|
||||
* This file prototypes all MPI fortran functions in all four fortran
|
||||
* symbol conventions as well as all the internal real OMPI wrapper
|
||||
* functions (different from any of the four fortran symbol
|
||||
@ -13,11 +12,24 @@
|
||||
*
|
||||
* This is needed ONLY if the lower-level prototypes_pmpi.h has not
|
||||
* already been included
|
||||
*
|
||||
* Note about function pointers: all function pointers are prototyped
|
||||
* here as (void*) rather than including the .h file that defines the
|
||||
* proper type (e.g., "op/op.h" defines ompi_op_fortran_handler_fn_t,
|
||||
* which is the function pointer type for fortran op callback
|
||||
* functions. This is because there is no type checking coming in
|
||||
* from fortran, so why bother? Also, including "op/op.h" (and
|
||||
* friends) makes the all the f77 bindings files dependant on these
|
||||
* files -- any change to any one of them will cause the recompilation
|
||||
* of the entire set of f77 bindings (ugh!).
|
||||
*/
|
||||
|
||||
#ifndef OMPI_F77_PROTOTYPES_PMPI_H
|
||||
#define OMPI_F77_PROTOTYPES_PMPI_H
|
||||
/*
|
||||
* pmpi_*_f definitions go here --- .mpif_f.h
|
||||
*/
|
||||
void pmpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_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);
|
||||
void pmpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr);
|
||||
void pmpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
@ -53,8 +65,8 @@ void pmpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fin
|
||||
void pmpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void pmpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_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);
|
||||
void pmpi_comm_create_errhandler_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_keyval_f(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void pmpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -84,7 +96,7 @@ void pmpi_comm_spawn_multiple_f(MPI_Fint *count, char *array_of_commands, char *
|
||||
void pmpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -92,7 +104,7 @@ void pmpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ier
|
||||
void pmpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void pmpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void pmpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_set_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -201,7 +213,7 @@ void pmpi_is_thread_main_f(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_keyval_create_f(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_keyval_free_f(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void pmpi_lookup_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_create_f(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_op_create_f(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_open_port_f(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_free_f(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_pack_external_f(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -249,7 +261,7 @@ void pmpi_type_create_f90_integer_f(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ie
|
||||
void pmpi_type_create_f90_real_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval_f(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval_f(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_indexed_block_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_struct_f(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_subarray_f(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -286,8 +298,8 @@ void pmpi_waitsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *o
|
||||
void pmpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_win_complete_f(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create_f(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval_f(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval_f(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_delete_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void pmpi_win_fence_f(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_free_f(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -345,8 +357,8 @@ void pmpi_comm_accept(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint
|
||||
void pmpi_comm_call_errhandler(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_comm_compare(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void pmpi_comm_connect(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_keyval(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_errhandler(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_keyval(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_comm_create(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_delete_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void pmpi_comm_disconnect(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -371,7 +383,7 @@ void pmpi_comm_spawn_multiple(MPI_Fint *count, char *array_of_commands, char *ar
|
||||
void pmpi_comm_split(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_test_inter(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_dims_create(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_free(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_get(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_set(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -379,7 +391,7 @@ void pmpi_error_class(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr)
|
||||
void pmpi_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void pmpi_exscan(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void pmpi_file_call_errhandler(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_set_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_get_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_open(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -488,7 +500,7 @@ void pmpi_is_thread_main(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_keyval_create(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_keyval_free(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void pmpi_lookup_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_create(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_op_create(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_open_port(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_free(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_pack_external(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -536,7 +548,7 @@ void pmpi_type_create_f90_integer(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr
|
||||
void pmpi_type_create_f90_real(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hindexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hvector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_indexed_block(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_struct(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_subarray(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -573,8 +585,8 @@ void pmpi_waitsome(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *out
|
||||
void pmpi_win_call_errhandler(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_win_complete(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_delete_attr(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void pmpi_win_fence(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_free(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -632,8 +644,8 @@ void pmpi_comm_accept_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint
|
||||
void pmpi_comm_call_errhandler_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_comm_compare_(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void pmpi_comm_connect_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_keyval_(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_errhandler_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_keyval_(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_delete_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void pmpi_comm_disconnect_(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -658,7 +670,7 @@ void pmpi_comm_spawn_multiple_(MPI_Fint *count, char *array_of_commands, char *a
|
||||
void pmpi_comm_split_(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_test_inter_(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_dims_create_(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_free_(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_get_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_set_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -666,7 +678,7 @@ void pmpi_error_class_(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr
|
||||
void pmpi_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void pmpi_exscan_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void pmpi_file_call_errhandler_(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_set_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_get_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_open_(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -775,7 +787,7 @@ void pmpi_is_thread_main_(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_keyval_create_(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_keyval_free_(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void pmpi_lookup_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_create_(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_op_create_(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_open_port_(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_free_(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_pack_external_(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -823,7 +835,7 @@ void pmpi_type_create_f90_integer_(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ier
|
||||
void pmpi_type_create_f90_real_(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hindexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hvector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval_(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval_(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_indexed_block_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_struct_(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_subarray_(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -860,8 +872,8 @@ void pmpi_waitsome_(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *ou
|
||||
void pmpi_win_call_errhandler_(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_win_complete_(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create_(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval_(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval_(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_delete_attr_(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void pmpi_win_fence_(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_free_(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -919,8 +931,8 @@ void pmpi_comm_accept__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fin
|
||||
void pmpi_comm_call_errhandler__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_comm_compare__(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void pmpi_comm_connect__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_keyval__(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_errhandler__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_comm_create_keyval__(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_comm_create__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_delete_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void pmpi_comm_disconnect__(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -945,7 +957,7 @@ void pmpi_comm_spawn_multiple__(MPI_Fint *count, char *array_of_commands, char *
|
||||
void pmpi_comm_split__(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void pmpi_comm_test_inter__(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_dims_create__(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_create__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_free__(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_get__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_errhandler_set__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -953,7 +965,7 @@ void pmpi_error_class__(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ier
|
||||
void pmpi_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void pmpi_exscan__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void pmpi_file_call_errhandler__(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_create_errhandler__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_set_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_get_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_file_open__(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -1062,7 +1074,7 @@ void pmpi_is_thread_main__(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void pmpi_keyval_create__(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_keyval_free__(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void pmpi_lookup_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_create__(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_op_create__(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_open_port__(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void pmpi_op_free__(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void pmpi_pack_external__(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -1110,7 +1122,7 @@ void pmpi_type_create_f90_integer__(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ie
|
||||
void pmpi_type_create_f90_real__(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hindexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_hvector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval__(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_keyval__(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_type_create_indexed_block__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_struct__(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void pmpi_type_create_subarray__(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -1147,8 +1159,8 @@ void pmpi_waitsome__(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *o
|
||||
void pmpi_win_call_errhandler__(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void pmpi_win_complete__(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create__(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval__(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_create_errhandler__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void pmpi_win_create_keyval__(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void pmpi_win_delete_attr__(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void pmpi_win_fence__(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void pmpi_win_free__(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -1206,8 +1218,8 @@ void PMPI_COMM_ACCEPT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint
|
||||
void PMPI_COMM_CALL_ERRHANDLER(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void PMPI_COMM_COMPARE(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void PMPI_COMM_CONNECT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void PMPI_COMM_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_COMM_CREATE_KEYVAL(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void PMPI_COMM_CREATE_ERRHANDLER(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_COMM_CREATE_KEYVAL(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void PMPI_COMM_CREATE(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void PMPI_COMM_DELETE_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void PMPI_COMM_DISCONNECT(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -1232,7 +1244,7 @@ void PMPI_COMM_SPAWN_MULTIPLE(MPI_Fint *count, char *array_of_commands, char *ar
|
||||
void PMPI_COMM_SPLIT(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void PMPI_COMM_TEST_INTER(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void PMPI_DIMS_CREATE(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void PMPI_ERRHANDLER_CREATE(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_ERRHANDLER_CREATE(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_ERRHANDLER_FREE(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_ERRHANDLER_GET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_ERRHANDLER_SET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -1240,7 +1252,7 @@ void PMPI_ERROR_CLASS(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr)
|
||||
void PMPI_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void PMPI_EXSCAN(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void PMPI_FILE_CALL_ERRHANDLER(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void PMPI_FILE_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_FILE_CREATE_ERRHANDLER(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_FILE_SET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_FILE_GET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_FILE_OPEN(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -1349,7 +1361,7 @@ void PMPI_IS_THREAD_MAIN(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void PMPI_KEYVAL_CREATE(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void PMPI_KEYVAL_FREE(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void PMPI_LOOKUP_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void PMPI_OP_CREATE(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void PMPI_OP_CREATE(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void PMPI_OPEN_PORT(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void PMPI_OP_FREE(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void PMPI_PACK_EXTERNAL(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -1397,7 +1409,7 @@ void PMPI_TYPE_CREATE_F90_INTEGER(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr
|
||||
void PMPI_TYPE_CREATE_F90_REAL(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void PMPI_TYPE_CREATE_HINDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void PMPI_TYPE_CREATE_HVECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void PMPI_TYPE_CREATE_KEYVAL(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void PMPI_TYPE_CREATE_KEYVAL(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void PMPI_TYPE_CREATE_INDEXED_BLOCK(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void PMPI_TYPE_CREATE_STRUCT(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void PMPI_TYPE_CREATE_SUBARRAY(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -1434,8 +1446,8 @@ void PMPI_WAITSOME(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *out
|
||||
void PMPI_WIN_CALL_ERRHANDLER(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void PMPI_WIN_COMPLETE(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void PMPI_WIN_CREATE(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void PMPI_WIN_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_WIN_CREATE_KEYVAL(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void PMPI_WIN_CREATE_ERRHANDLER(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void PMPI_WIN_CREATE_KEYVAL(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void PMPI_WIN_DELETE_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void PMPI_WIN_FENCE(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void PMPI_WIN_FREE(MPI_Fint *win, MPI_Fint *ierr);
|
||||
|
||||
@ -12,6 +12,16 @@
|
||||
*
|
||||
* This is needed ONLY if the lower-level prototypes_pmpi.h has not
|
||||
* already been included
|
||||
*
|
||||
* Note about function pointers: all function pointers are prototyped
|
||||
* here as (void*) rather than including the .h file that defines the
|
||||
* proper type (e.g., "op/op.h" defines ompi_op_fortran_handler_fn_t,
|
||||
* which is the function pointer type for fortran op callback
|
||||
* functions). This is because there is no type checking coming in
|
||||
* from fortran, so why bother? Also, including "op/op.h" (and
|
||||
* friends) makes the all the f77 bindings files dependant on these
|
||||
* files -- any change to any one of them will cause the recompilation
|
||||
* of the entire set of f77 bindings (ugh!).
|
||||
*/
|
||||
|
||||
#ifndef OMPI_F77_PROTOTYPES_MPI_H
|
||||
@ -57,8 +67,8 @@ void mpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint
|
||||
void mpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void mpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
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);
|
||||
void mpi_comm_create_errhandler_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_comm_create_keyval_f(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void mpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -88,7 +98,7 @@ void mpi_comm_spawn_multiple_f(MPI_Fint *count, char *array_of_commands, char *a
|
||||
void mpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -96,7 +106,7 @@ void mpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr
|
||||
void mpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void mpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void mpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_set_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -205,7 +215,7 @@ void mpi_is_thread_main_f(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_keyval_create_f(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_keyval_free_f(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void mpi_lookup_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_create_f(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_op_create_f(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_open_port_f(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_free_f(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_pack_external_f(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -253,7 +263,7 @@ void mpi_type_create_f90_integer_f(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ier
|
||||
void mpi_type_create_f90_real_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval_f(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval_f(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_indexed_block_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_struct_f(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_subarray_f(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -291,8 +301,8 @@ void mpi_waitsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *ou
|
||||
void mpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_win_complete_f(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create_f(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval_f(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler_f(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval_f(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_delete_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void mpi_win_fence_f(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_free_f(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -366,8 +376,8 @@ void mpi_comm_accept(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *
|
||||
void mpi_comm_call_errhandler(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_comm_compare(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void mpi_comm_connect(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_comm_create_keyval(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_comm_create_errhandler(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_comm_create_keyval(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_comm_create(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_delete_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void mpi_comm_disconnect(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -392,7 +402,7 @@ void mpi_comm_spawn_multiple(MPI_Fint *count, char *array_of_commands, char *arr
|
||||
void mpi_comm_split(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_test_inter(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_dims_create(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_free(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_get(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_set(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -400,7 +410,7 @@ void mpi_error_class(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr);
|
||||
void mpi_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void mpi_exscan(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void mpi_file_call_errhandler(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_set_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_get_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_open(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -509,7 +519,7 @@ void mpi_is_thread_main(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_keyval_create(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_keyval_free(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void mpi_lookup_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_create(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_op_create(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_open_port(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_free(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_pack_external(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -557,7 +567,7 @@ void mpi_type_create_f90_integer(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr)
|
||||
void mpi_type_create_f90_real(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hindexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hvector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_indexed_block(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_struct(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_subarray(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -594,8 +604,8 @@ void mpi_waitsome(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outc
|
||||
void mpi_win_call_errhandler(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_win_complete(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_delete_attr(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void mpi_win_fence(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_free(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -667,8 +677,8 @@ void mpi_comm_accept_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint
|
||||
void mpi_comm_call_errhandler_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_comm_compare_(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void mpi_comm_connect_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_comm_create_keyval_(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_comm_create_errhandler_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_comm_create_keyval_(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_comm_create_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_delete_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void mpi_comm_disconnect_(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -693,7 +703,7 @@ void mpi_comm_spawn_multiple_(MPI_Fint *count, char *array_of_commands, char *ar
|
||||
void mpi_comm_split_(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_test_inter_(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_dims_create_(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_free_(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_get_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_set_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -701,7 +711,7 @@ void mpi_error_class_(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr)
|
||||
void mpi_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void mpi_exscan_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void mpi_file_call_errhandler_(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_set_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_get_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_open_(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -810,7 +820,7 @@ void mpi_is_thread_main_(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_keyval_create_(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_keyval_free_(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void mpi_lookup_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_create_(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_op_create_(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_open_port_(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_free_(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_pack_external_(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -858,7 +868,7 @@ void mpi_type_create_f90_integer_(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr
|
||||
void mpi_type_create_f90_real_(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hindexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hvector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval_(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval_(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_indexed_block_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_struct_(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_subarray_(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -895,8 +905,8 @@ void mpi_waitsome_(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *out
|
||||
void mpi_win_call_errhandler_(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_win_complete_(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create_(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval_(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler_(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval_(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_delete_attr_(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void mpi_win_fence_(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_free_(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -968,8 +978,8 @@ void mpi_comm_accept__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint
|
||||
void mpi_comm_call_errhandler__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_comm_compare__(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void mpi_comm_connect__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_comm_create_keyval__(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_comm_create_errhandler__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_comm_create_keyval__(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_comm_create__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_delete_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void mpi_comm_disconnect__(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -994,7 +1004,7 @@ void mpi_comm_spawn_multiple__(MPI_Fint *count, char *array_of_commands, char *a
|
||||
void mpi_comm_split__(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void mpi_comm_test_inter__(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_dims_create__(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_create__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_free__(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_get__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_errhandler_set__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -1002,7 +1012,7 @@ void mpi_error_class__(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr
|
||||
void mpi_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void mpi_exscan__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void mpi_file_call_errhandler__(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_create_errhandler__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_set_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_get_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_file_open__(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -1111,7 +1121,7 @@ void mpi_is_thread_main__(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void mpi_keyval_create__(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_keyval_free__(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void mpi_lookup_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_create__(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_op_create__(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_open_port__(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void mpi_op_free__(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void mpi_pack_external__(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -1159,7 +1169,7 @@ void mpi_type_create_f90_integer__(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ier
|
||||
void mpi_type_create_f90_real__(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hindexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_hvector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval__(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_keyval__(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_type_create_indexed_block__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_struct__(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void mpi_type_create_subarray__(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -1196,8 +1206,8 @@ void mpi_waitsome__(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *ou
|
||||
void mpi_win_call_errhandler__(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void mpi_win_complete__(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create__(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval__(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_create_errhandler__(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void mpi_win_create_keyval__(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void mpi_win_delete_attr__(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void mpi_win_fence__(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void mpi_win_free__(MPI_Fint *win, MPI_Fint *ierr);
|
||||
@ -1269,8 +1279,8 @@ void MPI_COMM_ACCEPT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *
|
||||
void MPI_COMM_CALL_ERRHANDLER(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void MPI_COMM_COMPARE(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr);
|
||||
void MPI_COMM_CONNECT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void MPI_COMM_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_COMM_CREATE_KEYVAL(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void MPI_COMM_CREATE_ERRHANDLER(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_COMM_CREATE_KEYVAL(void *comm_copy_attr_fn, void *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void MPI_COMM_CREATE(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void MPI_COMM_DELETE_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr);
|
||||
void MPI_COMM_DISCONNECT(MPI_Fint *comm, MPI_Fint *ierr);
|
||||
@ -1295,7 +1305,7 @@ void MPI_COMM_SPAWN_MULTIPLE(MPI_Fint *count, char *array_of_commands, char *arr
|
||||
void MPI_COMM_SPLIT(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr);
|
||||
void MPI_COMM_TEST_INTER(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void MPI_DIMS_CREATE(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr);
|
||||
void MPI_ERRHANDLER_CREATE(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_ERRHANDLER_CREATE(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_ERRHANDLER_FREE(MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_ERRHANDLER_GET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_ERRHANDLER_SET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
@ -1303,7 +1313,7 @@ void MPI_ERROR_CLASS(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr);
|
||||
void MPI_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr);
|
||||
void MPI_EXSCAN(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr);
|
||||
void MPI_FILE_CALL_ERRHANDLER(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void MPI_FILE_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_FILE_CREATE_ERRHANDLER(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_FILE_SET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_FILE_GET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_FILE_OPEN(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr);
|
||||
@ -1412,7 +1422,7 @@ void MPI_IS_THREAD_MAIN(MPI_Fint *flag, MPI_Fint *ierr);
|
||||
void MPI_KEYVAL_CREATE(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void MPI_KEYVAL_FREE(MPI_Fint *keyval, MPI_Fint *ierr);
|
||||
void MPI_LOOKUP_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void MPI_OP_CREATE(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void MPI_OP_CREATE(void *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr);
|
||||
void MPI_OPEN_PORT(MPI_Fint *info, char *port_name, MPI_Fint *ierr);
|
||||
void MPI_OP_FREE(MPI_Fint *op, MPI_Fint *ierr);
|
||||
void MPI_PACK_EXTERNAL(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr);
|
||||
@ -1460,7 +1470,7 @@ void MPI_TYPE_CREATE_F90_INTEGER(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr)
|
||||
void MPI_TYPE_CREATE_F90_REAL(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void MPI_TYPE_CREATE_HINDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void MPI_TYPE_CREATE_HVECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void MPI_TYPE_CREATE_KEYVAL(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void MPI_TYPE_CREATE_KEYVAL(void *type_copy_attr_fn, void *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void MPI_TYPE_CREATE_INDEXED_BLOCK(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void MPI_TYPE_CREATE_STRUCT(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
void MPI_TYPE_CREATE_SUBARRAY(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr);
|
||||
@ -1497,8 +1507,8 @@ void MPI_WAITSOME(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outc
|
||||
void MPI_WIN_CALL_ERRHANDLER(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr);
|
||||
void MPI_WIN_COMPLETE(MPI_Fint *win, MPI_Fint *ierr);
|
||||
void MPI_WIN_CREATE(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void MPI_WIN_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_WIN_CREATE_KEYVAL(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void MPI_WIN_CREATE_ERRHANDLER(void *function, MPI_Fint *errhandler, MPI_Fint *ierr);
|
||||
void MPI_WIN_CREATE_KEYVAL(void *win_copy_attr_fn, void *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr);
|
||||
void MPI_WIN_DELETE_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr);
|
||||
void MPI_WIN_FENCE(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr);
|
||||
void MPI_WIN_FREE(MPI_Fint *win, MPI_Fint *ierr);
|
||||
|
||||
Загрузка…
x
Ссылка в новой задаче
Block a user