diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-01 15:15:26 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-04-01 15:15:26 (GMT) |
| commit | c86aedeba1f683daaf0289435450fd4e518fecc4 (patch) | |
| tree | 34465d58fba592f9e2764decdabedc7326b4e097 /fortran/src/H5Fff_F03.f90 | |
| parent | 0fcac5670573e802100c2a099cdc6eb8af229d12 (diff) | |
| download | hdf5-c86aedeba1f683daaf0289435450fd4e518fecc4.zip hdf5-c86aedeba1f683daaf0289435450fd4e518fecc4.tar.gz hdf5-c86aedeba1f683daaf0289435450fd4e518fecc4.tar.bz2 | |
[svn-r24939] Fix for HDFFV-8309 Fortran wrappers for H5Pget/set_file_image functions
Tested: jam (gnu, intel, pgi)
Diffstat (limited to 'fortran/src/H5Fff_F03.f90')
| -rw-r--r-- | fortran/src/H5Fff_F03.f90 | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/fortran/src/H5Fff_F03.f90 b/fortran/src/H5Fff_F03.f90 index 83d46be..d819c34 100644 --- a/fortran/src/H5Fff_F03.f90 +++ b/fortran/src/H5Fff_F03.f90 @@ -30,13 +30,11 @@ ! !***** - MODULE H5F_PROVISIONAL USE H5GLOBAL USE, INTRINSIC :: ISO_C_BINDING - CONTAINS !****s* H5F (F03)/h5fget_file_image_f_F03 ! @@ -82,14 +80,13 @@ CONTAINS !DEC$IF DEFINED(HDF5F90_WINDOWS) !DEC$ATTRIBUTES C,reference,decorate,alias:'H5FGET_FILE_IMAGE_C'::h5fget_file_image_c !DEC$ENDIF - INTEGER(HID_T) , INTENT(IN) :: file_id - TYPE(C_PTR) , VALUE :: buf_ptr - INTEGER(SIZE_T) , INTENT(IN) :: buf_len - INTEGER(SIZE_T), INTENT(IN) :: buf_size + INTEGER(HID_T) , INTENT(IN) :: file_id + TYPE(C_PTR) , VALUE :: buf_ptr + INTEGER(SIZE_T), INTENT(IN) :: buf_len + INTEGER(SIZE_T), INTENT(IN) :: buf_size END FUNCTION h5fget_file_image_c END INTERFACE - IF(PRESENT(buf_size))THEN buf_ptr = C_NULL_PTR ENDIF |