vchoi_fork

/****h* H5FDmpiof/H5FDmpiof

 *

 * PURPOSE

 *   This file contains C stubs for Parallel Fortran APIs

 *

 * COPYRIGHT

 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

 * 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.     *

 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

 *

 ******

*/

​

#include "H5f90.h"

#include <mpi.h>

#include "H5public.h"

​

​

/* Support for C to Fortran translation in MPI */

#ifndef H5_HAVE_MPI_MULTI_LANG_Comm

#define MPI_Comm_c2f(comm) (int_f)(comm)

#define MPI_Comm_f2c(comm) (MPI_Comm)(comm)

#endif /*MPI Comm*/

#ifndef H5_HAVE_MPI_MULTI_LANG_Info

#define MPI_Info_c2f(info) (int_f)(info)

#define MPI_Info_f2c(info) (MPI_Info)(info)

#endif /*MPI Info*/

​

/****if* H5FDmpiof/h5pset_fapl_mpio_c

 * NAME

 *        h5pset_fapl_mpio_c

 * PURPOSE

 *     Call H5Pset_fapl_mpio to set mode for parallel I/O and the user

 *              supplied communicator and info object

 * INPUTS

 *      prp_id - property list identifier

 *              comm   - MPI communicator

 *              info   - MPI info object

 * RETURNS

 *     0 on success, -1 on failure