summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-21 20:09:56 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-21 20:09:56 (GMT)
commit68ad830cd919d61d6ac13877c0fcfaf9000ec646 (patch)
tree48642b02cd0a36e9550ea14c73cbc94e1472271e /fortran/src
parentc7529c3d838cf7b7ff7033fdc84a324159fc37c4 (diff)
downloadhdf5-68ad830cd919d61d6ac13877c0fcfaf9000ec646.zip
hdf5-68ad830cd919d61d6ac13877c0fcfaf9000ec646.tar.gz
hdf5-68ad830cd919d61d6ac13877c0fcfaf9000ec646.tar.bz2
[svn-r26874] Added interfaces to H5P parallel interfaces.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Pff.F9048
1 files changed, 44 insertions, 4 deletions
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90
index 3ec6e93..35f0827 100644
--- a/fortran/src/H5Pff.F90
+++ b/fortran/src/H5Pff.F90
@@ -7428,8 +7428,19 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
! as defined in MPI_FILE_OPEN of MPI-2
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
- INTEGER, EXTERNAL :: h5pset_fapl_mpio_c
+ INTERFACE
+ INTEGER FUNCTION h5pset_fapl_mpio_c(prp_id, comm, info) &
+ BIND(C,NAME='h5pset_fapl_mpio_c')
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER , INTENT(IN) :: comm
+ INTEGER , INTENT(IN) :: info
+ END FUNCTION h5pset_fapl_mpio_c
+ END INTERFACE
+
hdferr = h5pset_fapl_mpio_c(prp_id, comm, info)
+
END SUBROUTINE h5pset_fapl_mpio_f
!****s* H5P/h5pget_fapl_mpio_f
@@ -7460,8 +7471,19 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
! as defined in MPI_FILE_OPEN of MPI-2
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
- INTEGER, EXTERNAL :: h5pget_fapl_mpio_c
+ INTERFACE
+ INTEGER FUNCTION h5pget_fapl_mpio_c(prp_id, comm, info) &
+ BIND(C,NAME='h5pget_fapl_mpio_c')
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER , INTENT(OUT) :: comm
+ INTEGER , INTENT(OUT) :: info
+ END FUNCTION h5pget_fapl_mpio_c
+ END INTERFACE
+
hdferr = h5pget_fapl_mpio_c(prp_id, comm, info)
+
END SUBROUTINE h5pget_fapl_mpio_f
!****s* H5P/h5pset_dxpl_mpio_f
@@ -7492,7 +7514,16 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
! H5FD_MPIO_COLLECTIVE_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
- INTEGER, EXTERNAL :: h5pset_dxpl_mpio_c
+ INTERFACE
+ INTEGER FUNCTION h5pset_dxpl_mpio_c(prp_id, data_xfer_mode) &
+ BIND(C,NAME='h5pset_dxpl_mpio_c')
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER , INTENT(IN) :: data_xfer_mode
+ END FUNCTION h5pset_dxpl_mpio_c
+ END INTERFACE
+
hdferr = h5pset_dxpl_mpio_c(prp_id, data_xfer_mode)
END SUBROUTINE h5pset_dxpl_mpio_f
@@ -7525,7 +7556,16 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
! H5FD_MPIO_COLLECTIVE_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
- INTEGER, EXTERNAL :: h5pget_dxpl_mpio_c
+ INTERFACE
+ INTEGER FUNCTION h5pget_dxpl_mpio_c(prp_id, data_xfer_mode) &
+ BIND(C,NAME='h5pget_dxpl_mpio_c')
+ IMPORT :: HID_T
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER , INTENT(OUT) :: data_xfer_mode
+ END FUNCTION h5pget_dxpl_mpio_c
+ END INTERFACE
+
hdferr = h5pget_dxpl_mpio_c(prp_id, data_xfer_mode)
END SUBROUTINE h5pget_dxpl_mpio_f