1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2001 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
10 static int verbose = 0;
12 int main(int argc, char *argv[])
14 char value[MPI_MAX_INFO_VAL];
15 const char *keys[] = { "command", "argv", "maxprocs", "soft", "host", "arch", "wdir", "file",
22 for (i = 0; keys[i]; i++) {
23 MPI_Info_get(MPI_INFO_ENV, (char*)keys[i], MPI_MAX_INFO_VAL, value, &flag);
25 printf("command: %s\n", value);
28 printf(" No Errors\n");