summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-06-11 19:28:10 (GMT)
committerM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-06-11 19:28:10 (GMT)
commit893641990a23adae72df309d601416169b9e848c (patch)
treebb110850da33b0eff77d4fe463370cbd59545c39 /fortran/src
parent2c7924311198802b688e2270041cfbd472b8e0b2 (diff)
downloadhdf5-893641990a23adae72df309d601416169b9e848c.zip
hdf5-893641990a23adae72df309d601416169b9e848c.tar.gz
hdf5-893641990a23adae72df309d601416169b9e848c.tar.bz2
move the vol_info to an optional parameter
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Pff.F9021
1 files changed, 14 insertions, 7 deletions
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90
index 8ad3573..0c0500d 100644
--- a/fortran/src/H5Pff.F90
+++ b/fortran/src/H5Pff.F90
@@ -9,7 +9,7 @@
! COPYRIGHT
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
-! Copyright by the Board of Trustees of the University of Illinois. *S
+! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
! *
! This file is part of HDF5. The full HDF5 copyright notice, including *
@@ -8125,25 +8125,29 @@ END SUBROUTINE h5pget_virtual_dsetname_f
! INPUTS
! plist_id - access property list identifier.
! new_vol_id - VOL connector id.
-! new_vol_info - VOL connector info.
!
! OUTPUTS
-! hdferr - error code:
-! 0 on success and -1 on failure
+! hdferr - error code:
+! 0 on success and -1 on failure
+!
+! OPTIONAL
+! new_vol_info - VOL connector info.
!
! AUTHOR
! M.S. Breitenfeld
! May 2019
!
! Fortran Interface:
- SUBROUTINE h5pset_vol_f(plist_id, new_vol_id, new_vol_info, hdferr)
+ SUBROUTINE h5pset_vol_f(plist_id, new_vol_id, hdferr, new_vol_info)
IMPLICIT NONE
INTEGER(HID_T) , INTENT(IN) :: plist_id
INTEGER(HID_T) , INTENT(IN) :: new_vol_id
- TYPE(C_PTR) , INTENT(IN) :: new_vol_info
INTEGER , INTENT(OUT) :: hdferr
+ TYPE(C_PTR) , OPTIONAL :: new_vol_info
!*****
+ TYPE(C_PTR) :: new_vol_info_default
+
INTERFACE
INTEGER FUNCTION h5pset_vol(plist_id, new_vol_id, new_vol_info) BIND(C, NAME='H5Pset_vol')
IMPORT :: HID_T, C_PTR
@@ -8154,7 +8158,10 @@ END SUBROUTINE h5pget_virtual_dsetname_f
END FUNCTION h5pset_vol
END INTERFACE
- hdferr = INT(h5pset_vol(plist_id, new_vol_id, new_vol_info))
+ new_vol_info_default = C_NULL_PTR
+ IF(PRESENT(new_vol_info)) new_vol_info_default=new_vol_info
+
+ hdferr = INT(h5pset_vol(plist_id, new_vol_id, new_vol_info_default))
END SUBROUTINE h5pset_vol_f