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_valuelen_ PMPI_INFO_GET_VALUELEN
15 #elif defined(FORTRANDOUBLEUNDERSCORE)
16 #define mpi_info_get_valuelen_ pmpi_info_get_valuelen__
17 #elif !defined(FORTRANUNDERSCORE)
18 #if defined(HPUX) || defined(SPPUX)
19 #pragma _HP_SECONDARY_DEF pmpi_info_get_valuelen pmpi_info_get_valuelen_
21 #define mpi_info_get_valuelen_ pmpi_info_get_valuelen
23 #if defined(HPUX) || defined(SPPUX)
24 #pragma _HP_SECONDARY_DEF pmpi_info_get_valuelen_ pmpi_info_get_valuelen
26 #define mpi_info_get_valuelen_ pmpi_info_get_valuelen_
29 #if defined(HAVE_WEAK_SYMBOLS)
30 #if defined(HAVE_PRAGMA_WEAK)
31 #if defined(FORTRANCAPS)
32 #pragma weak MPI_INFO_GET_VALUELEN = PMPI_INFO_GET_VALUELEN
33 #elif defined(FORTRANDOUBLEUNDERSCORE)
34 #pragma weak mpi_info_get_valuelen__ = pmpi_info_get_valuelen__
35 #elif !defined(FORTRANUNDERSCORE)
36 #pragma weak mpi_info_get_valuelen = pmpi_info_get_valuelen
38 #pragma weak mpi_info_get_valuelen_ = pmpi_info_get_valuelen_
41 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
42 #if defined(FORTRANCAPS)
43 #pragma _HP_SECONDARY_DEF PMPI_INFO_GET_VALUELEN MPI_INFO_GET_VALUELEN
44 #elif defined(FORTRANDOUBLEUNDERSCORE)
45 #pragma _HP_SECONDARY_DEF pmpi_info_get_valuelen__ mpi_info_get_valuelen__
46 #elif !defined(FORTRANUNDERSCORE)
47 #pragma _HP_SECONDARY_DEF pmpi_info_get_valuelen mpi_info_get_valuelen
49 #pragma _HP_SECONDARY_DEF pmpi_info_get_valuelen_ mpi_info_get_valuelen_
52 #elif defined(HAVE_PRAGMA_CRI_DUP)
53 #if defined(FORTRANCAPS)
54 #pragma _CRI duplicate MPI_INFO_GET_VALUELEN as PMPI_INFO_GET_VALUELEN
55 #elif defined(FORTRANDOUBLEUNDERSCORE)
56 #pragma _CRI duplicate mpi_info_get_valuelen__ as pmpi_info_get_valuelen__
57 #elif !defined(FORTRANUNDERSCORE)
58 #pragma _CRI duplicate mpi_info_get_valuelen as pmpi_info_get_valuelen
60 #pragma _CRI duplicate mpi_info_get_valuelen_ as pmpi_info_get_valuelen_
63 /* end of weak pragmas */
65 /* Include mapping from MPI->PMPI */
72 #define mpi_info_get_valuelen_ MPI_INFO_GET_VALUELEN
73 #elif defined(FORTRANDOUBLEUNDERSCORE)
74 #define mpi_info_get_valuelen_ mpi_info_get_valuelen__
75 #elif !defined(FORTRANUNDERSCORE)
76 #if defined(HPUX) || defined(SPPUX)
77 #pragma _HP_SECONDARY_DEF mpi_info_get_valuelen mpi_info_get_valuelen_
79 #define mpi_info_get_valuelen_ mpi_info_get_valuelen
81 #if defined(HPUX) || defined(SPPUX)
82 #pragma _HP_SECONDARY_DEF mpi_info_get_valuelen_ mpi_info_get_valuelen
87 void mpi_info_get_valuelen_(MPI_Fint
*info
, char *key
, int *valuelen
,
88 int *flag
, int *ierr
, int keylen
)
92 int new_keylen
, lead_blanks
, i
;
94 if (key
<= (char *) 0) {
95 FPRINTF(stderr
, "MPI_Info_get_valuelen: 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_valuelen: 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 info_c
= MPI_Info_f2c(*info
);
118 *ierr
= MPI_Info_get_valuelen(info_c
, newkey
, valuelen
, flag
);