summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5FDmpiof.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5FDmpiof.c')
-rw-r--r--fortran/src/H5FDmpiof.c80
1 files changed, 40 insertions, 40 deletions
diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c
index 1a8aa13..6803674 100644
--- a/fortran/src/H5FDmpiof.c
+++ b/fortran/src/H5FDmpiof.c
@@ -15,12 +15,12 @@
/* This files contains C stubs for Parallel Fortran APIs */
#include "H5f90.h"
-#include <mpi.h>
+#include <mpi.h>
#include "H5public.h"
/* Support for C to Fortran translation in MPI */
-#ifndef H5_HAVE_MPI_MULTI_LANG_Comm
+#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*/
@@ -31,14 +31,14 @@
/*----------------------------------------------------------------------------
* 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
+ * 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
+ * comm - MPI communicator
+ * info - MPI info object
* Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
- * Thursday, October 26, 2000
+ * Programmer: Elena Pourmal
+ * Thursday, October 26, 2000
* Modifications:
*---------------------------------------------------------------------------*/
int_f
@@ -48,8 +48,8 @@ nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
hid_t c_prp_id;
herr_t ret;
MPI_Comm c_comm;
- MPI_Info c_info;
- c_comm = MPI_Comm_f2c(*comm);
+ MPI_Info c_info;
+ c_comm = MPI_Comm_f2c(*comm);
c_info = MPI_Info_f2c(*info);
/*
@@ -60,17 +60,17 @@ nh5pset_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
if (ret < 0) return ret_value;
ret_value = 0;
return ret_value;
-}
+}
/*----------------------------------------------------------------------------
* Name: h5pget_fapl_mpio_c
- * Purpose: Call H5Pget_fapl_mpio to retrieve communicator and info object
+ * 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
+ * comm - buffer to return MPI communicator
+ * info - buffer to return MPI info object
* Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
- * Thursday, October 26, 2000
+ * Programmer: Elena Pourmal
+ * Thursday, October 26, 2000
* Modifications:
*---------------------------------------------------------------------------*/
int_f
@@ -80,7 +80,7 @@ nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
hid_t c_prp_id;
herr_t ret;
MPI_Comm c_comm;
- MPI_Info c_info;
+ MPI_Info c_info;
/*
* Call H5Pget_mpi function.
@@ -92,16 +92,16 @@ nh5pget_fapl_mpio_c(hid_t_f *prp_id, int_f* comm, int_f* info)
*info = (int_f) MPI_Info_c2f(c_info);
ret_value = 0;
return ret_value;
-}
+}
/*----------------------------------------------------------------------------
* Name: h5pset_dxpl_mpio_c
- * Purpose: Call H5Pset_dxpl_mpio to set transfer mode of the dataset
- * trasfer property list
+ * Purpose: Call H5Pset_dxpl_mpio to set transfer mode of the dataset
+ * trasfer property list
* Inputs: prp_id - property list identifier
* data_xfer_mode - transfer mode
* Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
- * Thursday, October 26, 2000
+ * Programmer: Elena Pourmal
+ * Thursday, October 26, 2000
* Modifications:
*---------------------------------------------------------------------------*/
int_f
@@ -134,17 +134,17 @@ nh5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
if (ret < 0) return ret_value;
ret_value = 0;
return ret_value;
-}
+}
/*----------------------------------------------------------------------------
* Name: h5pget_dxpl_mpio_c
- * Purpose: Call H5Pget_dxpl_mpio to get transfer mode of the dataset
- * trasfer property list
+ * Purpose: Call H5Pget_dxpl_mpio to get transfer mode of the dataset
+ * trasfer property list
* Inputs: prp_id - property list identifier
* data_xfer_mode - buffer to retrieve transfer mode
* Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
- * Thursday, June 15, 2000
+ * Programmer: Elena Pourmal
+ * Thursday, June 15, 2000
* Modifications:
*---------------------------------------------------------------------------*/
int_f
@@ -161,7 +161,7 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
c_prp_id = *prp_id;
ret = H5Pget_dxpl_mpio(c_prp_id, &c_data_xfer_mode);
if (ret < 0) return ret_value;
- *data_xfer_mode = (int_f)c_data_xfer_mode;
+ *data_xfer_mode = (int_f)c_data_xfer_mode;
/*
switch (c_data_xfer_mode) {
@@ -179,17 +179,17 @@ nh5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f* data_xfer_mode)
*/
ret_value = 0;
return ret_value;
-}
+}
/*----------------------------------------------------------------------------
* Name: h5pset_fapl_mpiposix_c
- * Purpose: Call H5Pset_fapl_mpiposix to set mode for parallel I/O and the user
- * supplied communicator
+ * Purpose: Call H5Pset_fapl_mpiposix to set mode for parallel I/O and the user
+ * supplied communicator
* Inputs: prp_id - property list identifier
- * comm - MPI communicator
+ * comm - MPI communicator
* flag - flag to use GPFS hints
* Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
+ * Programmer: Elena Pourmal
* Tuesday, May 6, 2003
* Modifications:
*---------------------------------------------------------------------------*/
@@ -201,7 +201,7 @@ nh5pset_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
herr_t ret;
hbool_t c_flag;
MPI_Comm c_comm;
- c_comm = MPI_Comm_f2c(*comm);
+ c_comm = MPI_Comm_f2c(*comm);
c_flag = (hbool_t)*flag;
/*
* Call H5Pset_fapl_mpiposix function.
@@ -211,17 +211,17 @@ nh5pset_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
if (ret < 0) return ret_value;
ret_value = 0;
return ret_value;
-}
+}
/*----------------------------------------------------------------------------
* Name: h5pget_fapl_mpiposix_c
- * Purpose: Call H5Pget_fapl_mpiposix to retrieve communicator and info object
+ * Purpose: Call H5Pget_fapl_mpiposix to retrieve communicator and info object
* Inputs: prp_id - property list identifier
- * Outputs: comm - buffer to return MPI communicator
+ * Outputs: comm - buffer to return MPI communicator
* flag - flag to use GPFS hints
* Returns: 0 on success, -1 on failure
- * Programmer: Elena Pourmal
- * Tuesday, May 6, 2003
+ * Programmer: Elena Pourmal
+ * Tuesday, May 6, 2003
* Modifications:
*---------------------------------------------------------------------------*/
int_f
@@ -243,4 +243,4 @@ nh5pget_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag)
*flag = (int_f) c_flag;
ret_value = 0;
return ret_value;
-}
+}
generated by cgit v0.12 at 2024-07-07 16:20:34 (GMT)