summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5FDmpiof.c
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2011-08-18 14:32:47 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2011-08-18 14:32:47 (GMT)
commita9c065c5ce65bb7dca560d53642574dba608dc78 (patch)
tree2d36b7afd3f3a83314db25aba081e95254d28841 /fortran/src/H5FDmpiof.c
parenta968e2d409d975ac5b584680620d2589b0409f88 (diff)
downloadhdf5-a9c065c5ce65bb7dca560d53642574dba608dc78.zip
hdf5-a9c065c5ce65bb7dca560d53642574dba608dc78.tar.gz
hdf5-a9c065c5ce65bb7dca560d53642574dba608dc78.tar.bz2
[svn-r21248] Mereged the F2003 branch into the trunk.
Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
Diffstat (limited to 'fortran/src/H5FDmpiof.c')
-rw-r--r--fortran/src/H5FDmpiof.c163
1 files changed, 109 insertions, 54 deletions
diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c
index 2f22b55..89b4180 100644
--- a/fortran/src/H5FDmpiof.c
+++ b/fortran/src/H5FDmpiof.c
@@ -1,4 +1,10 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+/****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. *
@@ -11,9 +17,10 @@
* 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. *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
-
-/* This files contains C stubs for Parallel Fortran APIs */
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ *
+ ******
+*/
#include "H5f90.h"
#include <mpi.h>
@@ -30,20 +37,28 @@
#define MPI_Info_f2c(info) (MPI_Info)(info)
#endif /*MPI Info*/
-/*----------------------------------------------------------------------------
- * Name: h5pset_fapl_mpio_c
- * Purpose: Call H5Pset_fapl_mpio to set mode for parallel I/O and the user
+/****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
+ * INPUTS
+ * prp_id - property list identifier
* comm - MPI communicator
* info - MPI info object
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Thursday, October 26, 2000
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+/******/
{
int ret_value = -1;
hid_t c_prp_id;
@@ -62,20 +77,27 @@ nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
ret_value = 0;
return ret_value;
}
-
-/*----------------------------------------------------------------------------
- * Name: h5pget_fapl_mpio_c
- * Purpose: Call H5Pget_fapl_mpio to retrieve communicator and info object
- * Inputs: prp_id - property list identifier
+/****if* H5FDmpiof/h5pget_fapl_mpio_c
+ * NAME
+ * h5pget_fapl_mpio_c
+ * PURPOSE
+ * Call H5Pget_fapl_mpio to retrieve communicator and info object
+ * INPUTS
+ * prp_id - property list identifier
* comm - buffer to return MPI communicator
* info - buffer to return MPI info object
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Thursday, October 26, 2000
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
+/******/
{
int ret_value = -1;
hid_t c_prp_id;
@@ -94,19 +116,27 @@ nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
ret_value = 0;
return ret_value;
}
-/*----------------------------------------------------------------------------
- * Name: h5pset_dxpl_mpio_c
- * Purpose: Call H5Pset_dxpl_mpio to set transfer mode of the dataset
+/****if* H5FDmpiof/h5pset_dxpl_mpio_c
+ * NAME
+ * h5pset_dxpl_mpio_c
+ * PURPOSE
+ * Call H5Pset_dxpl_mpio to set transfer mode of the dataset
* trasfer property list
- * Inputs: prp_id - property list identifier
+ * INPUTS
+ * prp_id - property list identifier
* data_xfer_mode - transfer mode
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Thursday, October 26, 2000
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+/******/
{
int ret_value = -1;
hid_t c_prp_id;
@@ -137,19 +167,27 @@ nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
return ret_value;
}
-/*----------------------------------------------------------------------------
- * Name: h5pget_dxpl_mpio_c
- * Purpose: Call H5Pget_dxpl_mpio to get transfer mode of the dataset
+/****if* H5FDmpiof/h5pget_dxpl_mpio_c
+ * NAME
+ * h5pget_dxpl_mpio_c
+ * PURPOSE
+ * Call H5Pget_dxpl_mpio to get transfer mode of the dataset
* trasfer property list
- * Inputs: prp_id - property list identifier
+ * INPUTS
+ * prp_id - property list identifier
* data_xfer_mode - buffer to retrieve transfer mode
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Thursday, June 15, 2000
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
+/******/
{
int ret_value = -1;
hid_t c_prp_id;
@@ -182,20 +220,28 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
return ret_value;
}
-/*----------------------------------------------------------------------------
- * Name: h5pset_fapl_mpiposix_c
- * Purpose: Call H5Pset_fapl_mpiposix to set mode for parallel I/O and the user
+/****if* H5FDmpiof/h5pset_fapl_mpiposix_c
+ * NAME
+ * h5pset_fapl_mpiposix_c
+ * PURPOSE
+ * Call H5Pset_fapl_mpiposix to set mode for parallel I/O and the user
* supplied communicator
- * Inputs: prp_id - property list identifier
+ * INPUTS
+ * prp_id - property list identifier
* comm - MPI communicator
* flag - flag to use GPFS hints
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Tuesday, May 6, 2003
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5pset_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
+/******/
{
int ret_value = -1;
hid_t c_prp_id;
@@ -214,19 +260,28 @@ nh5pset_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
return ret_value;
}
-/*----------------------------------------------------------------------------
- * Name: h5pget_fapl_mpiposix_c
- * Purpose: Call H5Pget_fapl_mpiposix to retrieve communicator and info object
- * Inputs: prp_id - property list identifier
- * Outputs: comm - buffer to return MPI communicator
+/****if* H5FDmpiof/h5pget_fapl_mpiposix_c
+ * NAME
+ * h5pget_fapl_mpiposix_c
+ * PURPOSE
+ * Call H5Pget_fapl_mpiposix to retrieve communicator and info object
+ * INPUTS
+ * prp_id - property list identifier
+ * OUTPUTS
+ * comm - buffer to return MPI communicator
* flag - flag to use GPFS hints
- * Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+ * RETURNS
+ * 0 on success, -1 on failure
+ * AUTHOR
+ * Elena Pourmal
* Tuesday, May 6, 2003
- * Modifications:
- *---------------------------------------------------------------------------*/
+ * HISTORY
+ *
+ * SOURCE
+*/
int_f
nh5pget_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
+/******/
{
int ret_value = -1;
hid_t c_prp_id;