/* query the default values of hints being used */#include "mpi.h"#include <stdio.h>int main(int argc, char **argv){    int i, nkeys, flag, rank;    MPI_File fh;    MPI_Info info_used;    char key[MPI_MAX_INFO_KEY], value[MPI_MAX_INFO_VAL];    MPI_Init(&argc,&argv);    MPI_Comm_rank(MPI_COMM_WORLD, &rank);    MPI_File_open(MPI_COMM_WORLD, "/pfs/datafile", 		  MPI_MODE_CREATE | MPI_MODE_RDWR,                   MPI_INFO_NULL, &fh);    MPI_File_get_info(fh, &info_used);    MPI_Info_get_nkeys(info_used, &nkeys);    for (i=0; i<nkeys; i++) {	MPI_Info_get_nthkey(info_used, i, key);	MPI_Info_get(info_used, key, MPI_MAX_INFO_VAL,                      value, &flag);	printf("Process %d, Default: key = %s, value = %s\n",                rank, key, value);    }    MPI_File_close(&fh);    MPI_Info_free(&info_used);    MPI_Finalize();    return 0;}