From 68ad830cd919d61d6ac13877c0fcfaf9000ec646 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 21 Apr 2015 15:09:56 -0500
Subject: [svn-r26874] Added interfaces to H5P parallel interfaces.

---
 fortran/src/H5Pff.F90 | 48 ++++++++++++++++++++++++++++++++++++++++++++----
 1 file 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
 
-- 
cgit v0.12