diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-27 15:58:54 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-09-27 15:58:54 (GMT) |
commit | dbf542c0080153740c1d7da9b5a812ef8c7f4e02 (patch) | |
tree | 305895f9e59a604dc53f91935eae63928dcbcf87 /fortran/src/H5FDmpiof.c | |
parent | 0ae06ebea6cd1b2d6d8ae01bf4612db877cd8a95 (diff) | |
download | hdf5-dbf542c0080153740c1d7da9b5a812ef8c7f4e02.zip hdf5-dbf542c0080153740c1d7da9b5a812ef8c7f4e02.tar.gz hdf5-dbf542c0080153740c1d7da9b5a812ef8c7f4e02.tar.bz2 |
[svn-r22822] Fix for HDFFV-7658: Add FORTRAN interface for H5Pget_mpio_actual_io_mode API routine
Test: jam (gnu)
Diffstat (limited to 'fortran/src/H5FDmpiof.c')
-rw-r--r-- | fortran/src/H5FDmpiof.c | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/fortran/src/H5FDmpiof.c b/fortran/src/H5FDmpiof.c index 89b4180..993b5ac 100644 --- a/fortran/src/H5FDmpiof.c +++ b/fortran/src/H5FDmpiof.c @@ -300,3 +300,40 @@ nh5pget_fapl_mpiposix_c(hid_t_f *prp_id, int_f* comm, int_f* flag) ret_value = 0; return ret_value; } + +/****if* H5Pf/h5pget_mpio_actual_io_mode_c + * NAME + * h5pget_mpio_actual_io_mode_c + * PURPOSE + * Calls H5Pget_mpio_actual_io_mode + * + * INPUTS + * dxpl_id - Dataset transfer property list identifier. + * OUTPUTS + * actual_io_mode - The type of I/O performed by this process. + * + * RETURNS + * 0 on success, -1 on failure + * AUTHOR + * M. Scot Breitenfeld + * July 27, 2012 + * SOURCE +*/ +int_f +nh5pget_mpio_actual_io_mode_c(hid_t_f *dxpl_id, int_f *actual_io_mode) +/******/ +{ + int ret_value = -1; + H5D_mpio_actual_io_mode_t c_actual_io_mode; + + /* + * Call H5Pget_mpio_actual_io_mode_f function. + */ + if( (H5Pget_mpio_actual_io_mode((hid_t)*dxpl_id, &c_actual_io_mode)) <0 ) + return ret_value; /* error occurred */ + + *actual_io_mode =(int_f)c_actual_io_mode; + + ret_value = 0; + return ret_value; +} |