1 /* -*- Mode: C; c-basic-offset:4 ; -*- */
4 * Copyright (C) 1997 University of Chicago.
5 * See COPYRIGHT notice in top-level directory.
12 #if defined(MPIO_BUILD_PROFILING) || defined(HAVE_WEAK_SYMBOLS)
14 #define mpi_info_get_ PMPI_INFO_GET
15 #elif defined(FORTRANDOUBLEUNDERSCORE)
16 #define mpi_info_get_ pmpi_info_get__
17 #elif !defined(FORTRANUNDERSCORE)
18 #if defined(HPUX) || defined(SPPUX)
19 #pragma _HP_SECONDARY_DEF pmpi_info_get pmpi_info_get_
21 #define mpi_info_get_ pmpi_info_get
23 #if defined(HPUX) || defined(SPPUX)
24 #pragma _HP_SECONDARY_DEF pmpi_info_get_ pmpi_info_get
26 #define mpi_info_get_ pmpi_info_get_
29 #if defined(HAVE_WEAK_SYMBOLS)
30 #if defined(HAVE_PRAGMA_WEAK)
31 #if defined(FORTRANCAPS)
32 #pragma weak MPI_INFO_GET = PMPI_INFO_GET
33 #elif defined(FORTRANDOUBLEUNDERSCORE)
34 #pragma weak mpi_info_get__ = pmpi_info_get__
35 #elif !defined(FORTRANUNDERSCORE)
36 #pragma weak mpi_info_get = pmpi_info_get
38 #pragma weak mpi_info_get_ = pmpi_info_get_
41 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
42 #if defined(FORTRANCAPS)
43 #pragma _HP_SECONDARY_DEF PMPI_INFO_GET MPI_INFO_GET
44 #elif defined(FORTRANDOUBLEUNDERSCORE)
45 #pragma _HP_SECONDARY_DEF pmpi_info_get__ mpi_info_get__
46 #elif !defined(FORTRANUNDERSCORE)
47 #pragma _HP_SECONDARY_DEF pmpi_info_get mpi_info_get
49 #pragma _HP_SECONDARY_DEF pmpi_info_get_ mpi_info_get_
52 #elif defined(HAVE_PRAGMA_CRI_DUP)
53 #if defined(FORTRANCAPS)
54 #pragma _CRI duplicate MPI_INFO_GET as PMPI_INFO_GET
55 #elif defined(FORTRANDOUBLEUNDERSCORE)
56 #pragma _CRI duplicate mpi_info_get__ as pmpi_info_get__
57 #elif !defined(FORTRANUNDERSCORE)
58 #pragma _CRI duplicate mpi_info_get as pmpi_info_get
60 #pragma _CRI duplicate mpi_info_get_ as pmpi_info_get_
63 /* end of weak pragmas */
65 /* Include mapping from MPI->PMPI */
72 #define mpi_info_get_ MPI_INFO_GET
73 #elif defined(FORTRANDOUBLEUNDERSCORE)
74 #define mpi_info_get_ mpi_info_get__
75 #elif !defined(FORTRANUNDERSCORE)
76 #if defined(HPUX) || defined(SPPUX)
77 #pragma _HP_SECONDARY_DEF mpi_info_get mpi_info_get_
79 #define mpi_info_get_ mpi_info_get
81 #if defined(HPUX) || defined(SPPUX)
82 #pragma _HP_SECONDARY_DEF mpi_info_get_ mpi_info_get
87 void mpi_info_get_(MPI_Fint
*info
, char *key
, int *valuelen
, char *value
,
88 int *flag
, int *ierr
, int keylen
, int valspace
)
91 char *newkey
, *tmpvalue
;
92 int new_keylen
, lead_blanks
, i
, tmpvaluelen
;
94 if (key
<= (char *) 0) {
95 FPRINTF(stderr
, "MPI_Info_get: key is an invalid address\n");
96 MPI_Abort(MPI_COMM_WORLD
, 1);
99 /* strip leading and trailing blanks in key */
101 for (i
=0; i
<keylen
; i
++)
102 if (key
[i
] == ' ') lead_blanks
++;
105 for (i
=keylen
-1; i
>=0; i
--) if (key
[i
] != ' ') break;
107 FPRINTF(stderr
, "MPI_Info_get: key is a blank string\n");
108 MPI_Abort(MPI_COMM_WORLD
, 1);
110 new_keylen
= i
+ 1 - lead_blanks
;
113 newkey
= (char *) ADIOI_Malloc((new_keylen
+1)*sizeof(char));
114 ADIOI_Strncpy(newkey
, key
, new_keylen
);
115 newkey
[new_keylen
] = '\0';
117 if (value
<= (char *) 0) {
118 FPRINTF(stderr
, "MPI_Info_get: value is an invalid address\n");
119 MPI_Abort(MPI_COMM_WORLD
, 1);
121 if (*valuelen
<= 0) {
122 FPRINTF(stderr
, "MPI_Info_get: Invalid valuelen argument\n");
123 MPI_Abort(MPI_COMM_WORLD
, 1);
125 if (*valuelen
> valspace
) {
126 FPRINTF(stderr
, "MPI_Info_get: valuelen is greater than the amount of memory available in value\n");
127 MPI_Abort(MPI_COMM_WORLD
, 1);
130 tmpvalue
= (char *) ADIOI_Malloc((*valuelen
+ 1)*sizeof(char));
132 info_c
= MPI_Info_f2c(*info
);
133 *ierr
= MPI_Info_get(info_c
, newkey
, *valuelen
, tmpvalue
, flag
);
136 tmpvaluelen
= strlen(tmpvalue
);
137 ADIOI_Strncpy(value
, tmpvalue
, tmpvaluelen
);
138 /* blank pad the remaining space */
139 for (i
=tmpvaluelen
; i
<valspace
; i
++) value
[i
] = ' ';
143 ADIOI_Free(tmpvalue
);