diff options
Diffstat (limited to 'perform/pio_perf.c')
| -rw-r--r-- | perform/pio_perf.c | 52 |
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 */ /* |