Perfect brainless late-night hacking -- add the new OMPI_EXPORT macro
to all the MPI f77 and C bindings. Yay Windows! ;-) This commit was SVN r2856.
Этот коммит содержится в:
родитель
95ce0f3f64
Коммит
4d05abcf8e
@ -27,6 +27,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Abort";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Abort(MPI_Comm comm, int errorcode)
|
||||
{
|
||||
mca_ns_base_jobid_t jobid;
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Accumlate";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Accumulate(void *origin_addr, int origin_count, MPI_Datatype origin_datatype,
|
||||
int target_rank, MPI_Aint target_disp, int target_count,
|
||||
MPI_Datatype target_datatype, MPI_Op op, MPI_Win win)
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Add_error_class";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Add_error_class(int *errorclass)
|
||||
{
|
||||
int class;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Add_error_code";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Add_error_code(int errorclass, int *errorcode)
|
||||
{
|
||||
int code;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Add_error_code";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Add_error_string(int errorcode, char *string)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Address";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Address(void *location, MPI_Aint *address)
|
||||
{
|
||||
if( MPI_PARAM_CHECK ) {
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Allgather";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype,
|
||||
void *recvbuf, int recvcount, MPI_Datatype recvtype,
|
||||
MPI_Comm comm)
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Allgatherv";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Allgatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,
|
||||
void *recvbuf, int *recvcounts,
|
||||
int *displs, MPI_Datatype recvtype, MPI_Comm comm)
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Alloc_mem";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr)
|
||||
{
|
||||
if (MPI_PARAM_CHECK) {
|
||||
|
@ -22,6 +22,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Allreduce";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Allreduce(void *sendbuf, void *recvbuf, int count,
|
||||
MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Alltoall";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Alltoall(void *sendbuf, int sendcount, MPI_Datatype sendtype,
|
||||
void *recvbuf, int recvcount, MPI_Datatype recvtype,
|
||||
MPI_Comm comm)
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Alltoallv";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Alltoallv(void *sendbuf, int *sendcounts, int *sdispls,
|
||||
MPI_Datatype sendtype,
|
||||
void *recvbuf, int *recvcounts, int *rdispls,
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Alltoallw";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Alltoallw(void *sendbuf, int *sendcounts, int *sdispls,
|
||||
MPI_Datatype *sendtypes,
|
||||
void *recvbuf, int *recvcounts, int *rdispls,
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Attr_delete";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Attr_delete(MPI_Comm comm, int keyval)
|
||||
{
|
||||
int ret;
|
||||
|
@ -34,6 +34,7 @@
|
||||
* MPI_WIN_DUP_FN -> OMPI_C_MPI_WIN_DUP_FN
|
||||
*/
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
|
||||
void* attribute_val_out,
|
||||
void* flag )
|
||||
@ -42,6 +43,7 @@ int OMPI_C_MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval,
|
||||
void* extra_state,
|
||||
void* attribute_val_in,
|
||||
@ -52,6 +54,7 @@ int OMPI_C_MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval,
|
||||
void* extra_state,
|
||||
void* attribute_val_in, void* attribute_val_out,
|
||||
@ -62,6 +65,7 @@ int OMPI_C_MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
|
||||
void* attribute_val_out,
|
||||
void* flag )
|
||||
@ -69,6 +73,7 @@ int OMPI_C_MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval,
|
||||
void* extra_state,
|
||||
void* attribute_val_in,
|
||||
@ -78,6 +83,7 @@ int OMPI_C_MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
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 )
|
||||
@ -87,6 +93,7 @@ int OMPI_C_MPI_WIN_DUP_FN( MPI_Win window, int win_keyval, void* extra_state,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
|
||||
void* attribute_val_out,
|
||||
void* flag )
|
||||
@ -94,6 +101,7 @@ int OMPI_C_MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval,
|
||||
void* extra_state,
|
||||
void* attribute_val_in,
|
||||
@ -103,6 +111,7 @@ int OMPI_C_MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
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 )
|
||||
@ -112,6 +121,7 @@ int OMPI_C_MPI_COMM_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
int OMPI_C_MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
|
||||
void* attribute_val_out,
|
||||
void* flag )
|
||||
@ -119,6 +129,7 @@ int OMPI_C_MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
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 )
|
||||
@ -127,6 +138,7 @@ int OMPI_C_MPI_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
|
||||
return MPI_SUCCESS;
|
||||
}
|
||||
|
||||
OMPI_EXPORT
|
||||
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 )
|
||||
|
@ -19,6 +19,7 @@
|
||||
|
||||
static const char FUNC_NAME[] = "MPI_Attr_get";
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Attr_get(MPI_Comm comm, int keyval, void *attribute_val, int *flag)
|
||||
{
|
||||
int ret;
|
||||
|
@ -19,6 +19,7 @@
|
||||
|
||||
static const char FUNC_NAME[] = "MPI_Attr_put";
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Attr_put(MPI_Comm comm, int keyval, void *attribute_val)
|
||||
{
|
||||
int ret;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Barrier";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Barrier(MPI_Comm comm)
|
||||
{
|
||||
int err = MPI_SUCCESS;
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Bcast";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Bcast(void *buffer, int count, MPI_Datatype datatype,
|
||||
int root, MPI_Comm comm)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Bsend";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Bsend(void *buf, int count, MPI_Datatype type, int dest, int tag, MPI_Comm comm)
|
||||
{
|
||||
int rc, index;
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Bsend_init";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Bsend_init(void *buf, int count, MPI_Datatype type,
|
||||
int dest, int tag, MPI_Comm comm, MPI_Request *request)
|
||||
{
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Buffer_attach";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Buffer_attach(void *buffer, int size)
|
||||
{
|
||||
if (MPI_PARAM_CHECK) {
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Buffer_detach";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Buffer_detach(void *buffer, int *size)
|
||||
{
|
||||
if (MPI_PARAM_CHECK) {
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cancel";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cancel(MPI_Request *request)
|
||||
{
|
||||
int rc;
|
||||
|
@ -22,6 +22,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cart_coords";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cart_coords(MPI_Comm comm, int rank, int maxdims, int *coords)
|
||||
{
|
||||
int err;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cart_create";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cart_create(MPI_Comm old_comm, int ndims, int *dims,
|
||||
int *periods, int reorder, MPI_Comm *comm_cart) {
|
||||
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cart_get";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cart_get(MPI_Comm comm, int maxdims, int *dims,
|
||||
int *periods, int *coords)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cart_map";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cart_map(MPI_Comm comm, int ndims, int *dims,
|
||||
int *periods, int *newrank)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cart_rank";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cart_rank(MPI_Comm comm, int *coords, int *rank)
|
||||
{
|
||||
int err;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cart_shift";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cart_shift(MPI_Comm comm, int direction, int disp,
|
||||
int *rank_source, int *rank_dest)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cart_sub";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cart_sub(MPI_Comm comm, int *remain_dims, MPI_Comm *new_comm)
|
||||
{
|
||||
int err;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Cartdim_get";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Cartdim_get(MPI_Comm comm, int *ndims)
|
||||
{
|
||||
mca_topo_base_module_cartdim_get_fn_t func;
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Close_port";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Close_port(char *port_name)
|
||||
{
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_accept";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_accept(char *port_name, MPI_Info info, int root,
|
||||
MPI_Comm comm, MPI_Comm *newcomm)
|
||||
{
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_c2f";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
MPI_Fint MPI_Comm_c2f(MPI_Comm comm)
|
||||
{
|
||||
ompi_communicator_t *cptr=(ompi_communicator_t *)comm;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_call_errhandler";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_call_errhandler(MPI_Comm comm, int errorcode)
|
||||
{
|
||||
/* Error checking */
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_compare";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_compare(MPI_Comm comm1, MPI_Comm comm2, int *result) {
|
||||
|
||||
/* local variables */
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_connect";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_connect(char *port_name, MPI_Info info, int root,
|
||||
MPI_Comm comm, MPI_Comm *newcomm)
|
||||
{
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_create";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm *newcomm) {
|
||||
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_create_errhandler";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_create_errhandler(MPI_Comm_errhandler_fn *function,
|
||||
MPI_Errhandler *errhandler)
|
||||
{
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_create_keyval";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_create_keyval(MPI_Comm_copy_attr_function *comm_copy_attr_fn,
|
||||
MPI_Comm_delete_attr_function *comm_delete_attr_fn,
|
||||
int *comm_keyval, void *extra_state)
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_delete_attr";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_delete_attr(MPI_Comm comm, int comm_keyval)
|
||||
{
|
||||
int ret;
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_disconnect";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_disconnect(MPI_Comm *comm)
|
||||
{
|
||||
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_dup";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_dup(MPI_Comm comm, MPI_Comm *newcomm)
|
||||
{
|
||||
/* local variables */
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_f2c";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
MPI_Comm MPI_Comm_f2c(MPI_Fint comm)
|
||||
{
|
||||
size_t o_index= (size_t) comm;
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_free";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_free(MPI_Comm *comm) {
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_free_keyval";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_free_keyval(int *comm_keyval)
|
||||
{
|
||||
int ret;
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_get_attr";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_get_attr(MPI_Comm comm, int comm_keyval,
|
||||
void *attribute_val, int *flag)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_get_errhandler";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_get_errhandler(MPI_Comm comm, MPI_Errhandler *errhandler)
|
||||
{
|
||||
/* Error checking */
|
||||
|
@ -24,6 +24,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_get_name";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_get_name(MPI_Comm comm, char *name, int *length)
|
||||
{
|
||||
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_get_parent";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_get_parent(MPI_Comm *parent)
|
||||
{
|
||||
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_group";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_group(MPI_Comm comm, MPI_Group *group) {
|
||||
|
||||
int rc;
|
||||
|
@ -28,6 +28,7 @@ static const char FUNC_NAME[] = "MPI_Comm_join";
|
||||
static int ompi_socket_send (int fd, char *buf, int len );
|
||||
static int ompi_socket_recv (int fd, char *buf, int len );
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_join(int fd, MPI_Comm *intercomm)
|
||||
{
|
||||
int rc, tag=OMPI_COMM_JOIN_TAG;
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_rank";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_rank(MPI_Comm comm, int *rank)
|
||||
{
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_remote_group";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_remote_group(MPI_Comm comm, MPI_Group *group)
|
||||
{
|
||||
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_remote_size";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_remote_size(MPI_Comm comm, int *size) {
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_set_attr";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_set_attr(MPI_Comm comm, int comm_keyval, void *attribute_val)
|
||||
{
|
||||
int ret;
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_set_errhandler";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_set_errhandler(MPI_Comm comm, MPI_Errhandler errhandler)
|
||||
{
|
||||
/* Error checking */
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_set_name";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_set_name(MPI_Comm comm, char *name)
|
||||
{
|
||||
int rc;
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_comm_size";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_size(MPI_Comm comm, int *size) {
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_spawn";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_spawn(char *command, char **argv, int maxprocs, MPI_Info info,
|
||||
int root, MPI_Comm comm, MPI_Comm *intercomm,
|
||||
int *array_of_errcodes)
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_spawn_multiple";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_spawn_multiple(int count, char **array_of_commands, char ***array_of_argv,
|
||||
int *array_of_maxprocs, MPI_Info *array_of_info,
|
||||
int root, MPI_Comm comm, MPI_Comm *intercomm,
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_split";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_split(MPI_Comm comm, int color, int key, MPI_Comm *newcomm) {
|
||||
|
||||
int rc;
|
||||
|
@ -19,6 +19,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Comm_test_inter";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Comm_test_inter(MPI_Comm comm, int *flag) {
|
||||
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
|
@ -26,9 +26,10 @@ static int getprimes(int num, int *pnprime, int **pprimes);
|
||||
|
||||
|
||||
/*
|
||||
* This is a utility function, no need to have anything in the lower layer for this
|
||||
* at all
|
||||
* This is a utility function, no need to have anything in the lower
|
||||
* layer for this at all
|
||||
*/
|
||||
OMPI_EXPORT
|
||||
int MPI_Dims_create(int nnodes, int ndims, int *dims)
|
||||
{
|
||||
int i;
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Errhandler_c2f";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
MPI_Fint MPI_Errhandler_c2f(MPI_Errhandler errhandler)
|
||||
{
|
||||
/* Error checking */
|
||||
|
@ -16,6 +16,7 @@
|
||||
#endif
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Errhandler_create(MPI_Handler_function *function,
|
||||
MPI_Errhandler *errhandler)
|
||||
{
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Errhandler_f2c";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
MPI_Errhandler MPI_Errhandler_f2c(MPI_Fint errhandler_f)
|
||||
{
|
||||
size_t eh_index = (size_t) errhandler_f;
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Errhandler_free";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Errhandler_free(MPI_Errhandler *errhandler)
|
||||
{
|
||||
/* Error checking */
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Errhandler_get";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Errhandler_get(MPI_Comm comm, MPI_Errhandler *errhandler)
|
||||
{
|
||||
if (MPI_PARAM_CHECK) {
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Errhandler_set";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Errhandler_set(MPI_Comm comm, MPI_Errhandler errhandler)
|
||||
{
|
||||
if (MPI_PARAM_CHECK) {
|
||||
|
@ -20,6 +20,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Error_class";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Error_class(int errorcode, int *errorclass)
|
||||
{
|
||||
if ( MPI_PARAM_CHECK ) {
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Error_string";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Error_string(int errorcode, char *string, int *resultlen)
|
||||
{
|
||||
char *tmpstring;
|
||||
|
@ -22,6 +22,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_Exscan";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_Exscan(void *sendbuf, void *recvbuf, int count,
|
||||
MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_c2f";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
MPI_Fint MPI_File_c2f(MPI_File file)
|
||||
{
|
||||
if (MPI_PARAM_CHECK) {
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_call_errhandler";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_call_errhandler(MPI_File fh, int errorcode)
|
||||
{
|
||||
/* Error checking */
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_close";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_close(MPI_File *fh)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_create_errhandler";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_create_errhandler(MPI_File_errhandler_fn *function,
|
||||
MPI_Errhandler *errhandler) {
|
||||
int err = MPI_SUCCESS;
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_delete";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_delete(char *filename, MPI_Info info)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_f2c";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
MPI_File MPI_File_f2c(MPI_Fint file_f)
|
||||
{
|
||||
size_t file_index = (size_t) file_f;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_amode";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_amode(MPI_File fh, int *amode)
|
||||
{
|
||||
int rc;
|
||||
|
@ -22,6 +22,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_atomicity";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_atomicity(MPI_File fh, int *flag)
|
||||
{
|
||||
int rc;
|
||||
|
@ -22,6 +22,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_byte_offset";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_byte_offset(MPI_File fh, MPI_Offset offset,
|
||||
MPI_Offset *disp)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_errhandler";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_errhandler( MPI_File file, MPI_Errhandler *errhandler)
|
||||
{
|
||||
/* Error checking */
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_group";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_group(MPI_File fh, MPI_Group *group)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_info";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_info(MPI_File fh, MPI_Info *info_used)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_position";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_position(MPI_File fh, MPI_Offset *offset)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_position_shared";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_position_shared(MPI_File fh, MPI_Offset *offset)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_size";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_size(MPI_File fh, MPI_Offset *size)
|
||||
{
|
||||
int rc;
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_type_extent";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_type_extent(MPI_File fh, MPI_Datatype datatype,
|
||||
MPI_Aint *extent)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_get_view";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_get_view(MPI_File fh, MPI_Offset *disp,
|
||||
MPI_Datatype *etype,
|
||||
MPI_Datatype *filetype, char *datarep)
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_iread";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_iread(MPI_File fh, void *buf, int count,
|
||||
MPI_Datatype datatype, MPI_Request *request)
|
||||
{
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_iread_at";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_iread_at(MPI_File fh, MPI_Offset offset, void *buf,
|
||||
int count, MPI_Datatype datatype, MPI_Request *request)
|
||||
{
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_iread_shared";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_iread_shared(MPI_File fh, void *buf, int count,
|
||||
MPI_Datatype datatype, MPI_Request *request)
|
||||
{
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_iwrite";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_iwrite(MPI_File fh, void *buf, int count, MPI_Datatype
|
||||
datatype, MPI_Request *request)
|
||||
{
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_iwrite_at";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_iwrite_at(MPI_File fh, MPI_Offset offset, void *buf,
|
||||
int count, MPI_Datatype datatype,
|
||||
MPI_Request *request)
|
||||
|
@ -23,6 +23,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_iwrite_shared";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_iwrite_shared(MPI_File fh, void *buf, int count,
|
||||
MPI_Datatype datatype, MPI_Request *request)
|
||||
{
|
||||
|
@ -22,6 +22,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_open";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_open(MPI_Comm comm, char *filename, int amode,
|
||||
MPI_Info info, MPI_File *fh)
|
||||
{
|
||||
|
@ -21,6 +21,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_preallocate";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_preallocate(MPI_File fh, MPI_Offset size)
|
||||
{
|
||||
int rc;
|
||||
|
@ -22,6 +22,7 @@
|
||||
static const char FUNC_NAME[] = "MPI_File_read";
|
||||
|
||||
|
||||
OMPI_EXPORT
|
||||
int MPI_File_read(MPI_File fh, void *buf, int count,
|
||||
MPI_Datatype datatype, MPI_Status *status)
|
||||
{
|
||||
|
Некоторые файлы не были показаны из-за слишком большого количества измененных файлов Показать больше
Загрузка…
x
Ссылка в новой задаче
Block a user