1
1

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.
Этот коммит содержится в:
Jeff Squyres 2004-09-24 10:30:19 +00:00
родитель 95ce0f3f64
Коммит 4d05abcf8e
592 изменённых файлов: 624 добавлений и 2 удалений

Просмотреть файл

@ -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)
{

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