This source file includes following definitions.
- MPI_Info_create
1
2
3
4
5
6
7
8 #include "mpioimpl.h"
9
10 #ifdef HAVE_WEAK_SYMBOLS
11
12 #if defined(HAVE_PRAGMA_WEAK)
13 #pragma weak MPI_Info_create = PMPI_Info_create
14 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
15 #pragma _HP_SECONDARY_DEF PMPI_Info_create MPI_Info_create
16 #elif defined(HAVE_PRAGMA_CRI_DUP)
17 #pragma _CRI duplicate MPI_Info_create as PMPI_Info_create
18
19 #endif
20
21
22 #define MPIO_BUILD_PROFILING
23 #include "mpioprof.h"
24 #endif
25
26
27
28
29
30
31
32
33
34 int MPI_Info_create(MPI_Info *info)
35 {
36 int error_code;
37
38 MPIR_MPIOInit(&error_code);
39 if (error_code != MPI_SUCCESS) goto fn_exit;
40
41 *info = (MPI_Info) ADIOI_Malloc(sizeof(struct MPIR_Info));
42 (*info)->cookie = MPIR_INFO_COOKIE;
43 (*info)->key = 0;
44 (*info)->value = 0;
45 (*info)->next = 0;
46
47
48
49 fn_exit:
50 return MPI_SUCCESS;
51 }