vchoi_fork

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

 * Copyright by The HDF Group.                                               *

 * Copyright by the Board of Trustees of the University of Illinois.         *

 * All rights reserved.                                                      *

 *                                                                           *

 * This file is part of HDF5.  The full HDF5 copyright notice, including     *

 * terms governing use, modification, and redistribution, is contained in    *

 * the files COPYING and Copyright.html.  COPYING can be found at the root   *

 * of the source code distribution tree; Copyright.html can be found at the  *

 * root level of an installed copy of the electronic HDF5 document set and   *

 * is linked from the top-level documents page.  It can also be found at     *

 * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *

 * access to either file, you may request a copy from help@hdfgroup.org.     *

 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

​

/*

 * Author: Albert Cheng of NCSA, May 1, 2001.

 * This is derived from code given to me by Robert Ross.

 *

 * NOTE: This code assumes that all command line arguments make it out to all

 * the processes that make up the parallel job, which isn't always the case.

 * So if it doesn't work on some platform, that might be why.

 */

​

#include "hdf5.h"

#include "H5private.h"

#ifdef H5_HAVE_PARALLEL

#include <stdio.h>

#include <stdlib.h>

#include <fcntl.h>

#include <unistd.h>

#include <errno.h>

#include <string.h>

#include <sys/time.h>

#include <mpi.h>

#ifndef MPI_FILE_NULL           /*MPIO may be defined in mpi.h already       */

#   include <mpio.h>

#endif

​

​

/* Macro definitions */

/* Verify:

 * if val is false (0), print mesg and if fatal is true (non-zero), die.

 */

#define H5FATAL 1

#define VRFY(val, mesg, fatal) do {                                            \

    if (!val) {                                                                \

    printf("Proc %d: ", mynod);                        \

        printf("*** Assertion failed (%s) at line %4d in %s\n",                \

        mesg, (int)__LINE__, __FILE__);                        \

    if (fatal){                                \