-
Notifications
You must be signed in to change notification settings - Fork 9
/
mpiP.h
129 lines (98 loc) · 2.93 KB
/
mpiP.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
#ifndef _MPIP_H
#define _MPIP_H
/*
* Private .h file for MPI
*/
#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "listops.h"
#include "mpi.h"
/* Autoconf Fortran name mangling
*
* config.h defines F77_FUNC and F77_FUNC_
* Since we are generally using FC_FUNC, and
* all of our functions will ONLY use F77_FUNC_
* (with the underscore, define FC_FUNC as the
* aforementioned.
*
* If config.h is not present, default to the old
* approach.
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
/* config.h should define FC_FUNC */
#else
/*
* Fortran name mangling
*
* the configure.ac specifies these
*
* cpp does not have the ability to change the case
* of the argument, so the invocation of the macro
* has to be give both e.g. FC_FUNC(hello,HELLO)
* and maps to "hello_", "hello", and "HELLO" repectively.
*
* IMPORTANT NOTE:
* In the case of FORTRAN_GNUF2C (e.g. g95), the rule is this:
* name does not contain an underscore -> append *one* underscore
* name contains an underscore -> append *two* underscore
* Since all the mpi-serial names exported to fortran start with "mpi_",
* we only support the latter.
*
* Note: FORTRANUNDERSCORE is needed by ccsm
*
*/
#if defined(FORTRAN_UNDERSCORE_) || defined(FORTRANUNDERSCORE)
#define FC_FUNC(lower,upper) lower##_
#elif defined(FORTRAN_GNUF2C)
#define FC_FUNC(lower,upper) lower##__
#elif defined(FORTRAN_SAME)
#define FC_FUNC(lower,upper) lower
#elif defined(FORTRAN_CAPS_)
#define FC_FUNC(lower,upper) upper
#else
#error "Unrecognized Fortran-mangle type"
/* set to something reasonable to avoid cascade of cc errors */
#define FC_FUNC(lower,upper) lower##_
#endif
#endif /* HAVE_CONFIG_H */
/*
* MPI_GROUP_ONE must not conflict with MPI_GROUP_NULL or
* MPI_GROUP_EMPTY
*/
#define MPI_GROUP_ONE (1)
/****************************************************************************/
typedef struct
{
pList sendlist;
pList recvlist;
int num;
} Comm;
typedef struct
{
pListitem listitem; /* to allow Req to be removed from list */
int *buf;
int source;
int tag;
int complete;
int count;
MPI_Datatype type; /* needed for test_simple_bindexed2 */
} Req;
/****************************************************************************/
/* copy functions */
extern int copy_data2(void * source, int src_count, MPI_Datatype src_type,
void * dest, int dest_count, MPI_Datatype dest_type);
extern void *mpi_malloc(int size);
extern void mpi_free(void *ptr);
extern MPI_Comm mpi_comm_new(void);
extern void mpi_destroy_handles(void);
extern void mpi_alloc_handle(int *handle, void **data);
extern void *mpi_handle_to_ptr(int handle);
extern void mpi_free_handle(int handle);
extern void FC_FUNC(mpi_get_fort_pointers,MPI_GET_FORT_POINTERS)(void);
extern MPI_Status *mpi_c_status(int *status);
extern MPI_Status *mpi_c_statuses(int *statuses);
extern void *mpi_c_in_place(void *buffer);
#endif /* _MPIP_H */