summaryrefslogtreecommitdiffstats
path: root/perform/pio_perf.c
diff options
context:
space:
mode:
Diffstat (limited to 'perform/pio_perf.c')
-rw-r--r--perform/pio_perf.c52
1 files changed, 1 insertions, 51 deletions
diff --git a/perform/pio_perf.c b/perform/pio_perf.c
index 81ba8da..0f6cec6 100644
--- a/perform/pio_perf.c
+++ b/perform/pio_perf.c
@@ -284,7 +284,7 @@ main(int argc, char **argv)
pio_comm_g = MPI_COMM_WORLD;
- parse_environment();
+ h5_set_info_object();
opts = parse_command_line(argc, argv);
if (!opts) {
@@ -1044,56 +1044,6 @@ usage(const char *prog)
}
}
-/*
- * Function: parse_environment
- * Purpose: Process all environment variables setting.
- * Return: 0 if all is fine; otherwise non-zero.
- * Programmer: Albert Cheng, 15 May 2002.
- * Modifications:
- */
-static int
-parse_environment(void)
-{
- char *envp; /* environment pointer */
- char *envendp; /* end of environment string */
- char *namep, *valp; /* name, value pointers */
- int mpi_err;
- int ret_value=0;
-
- /* handle any MPI INFO hints via $HDF5_MPI_INFO */
- if ((envp = getenv("HDF5_MPI_INFO")) != NULL){
- envp = HDstrdup(envp);
- envendp = HDstrchr(envp, NULL); /* remember end of string */
-
- /* create an INFO object if not created yet */
- if (pio_info_g==MPI_INFO_NULL)
- MPI_Info_create (&pio_info_g);
-
- /* parse only one setting. Need to extend it to handle multiple */
- /* settings. LATER */
- namep=envp;
- valp=HDstrchr(namep, '=');
- if (valp != NULL){
- /* change '=' to NULL, move valp down one */
- *valp++ = NULL;
- if (MPI_SUCCESS!=MPI_Info_set(pio_info_g, namep, valp)){
- printf("MPI_Info_set failed\n");
- ret_value = -1;
- }else{
- /* will not print because debug option is not parsed yet? */
- if (pio_debug_level>=4){
- printf("MPI_Info_set with %s=%s.\n", namep, valp);
- }
- }
-
- }
- }
-
- if (envp)
- HDfree(envp);
- return(ret_value);
-}
-
#else /* H5_HAVE_PARALLEL */
/*