diff options
Diffstat (limited to 'fortran/src/H5Lff_F03.f90')
| -rw-r--r-- | fortran/src/H5Lff_F03.f90 | 225 |
1 files changed, 225 insertions, 0 deletions
diff --git a/fortran/src/H5Lff_F03.f90 b/fortran/src/H5Lff_F03.f90 new file mode 100644 index 0000000..360dc93 --- /dev/null +++ b/fortran/src/H5Lff_F03.f90 @@ -0,0 +1,225 @@ +!****h* ROBODoc/H5L (F03) +! +! NAME +! H5L_PROVISIONAL +! +! FILE +! src/fortran/src/H5Lff_F03.f90 +! +! PURPOSE +! +! This file contains Fortran 90 and Fortran 2003 interfaces for H5L functions. +! It contains the same functions as H5Lff_DEPRECIATE.f90 but includes the +! Fortran 2003 functions and the interface listings. This file will be compiled +! instead of H5Lff_DEPRECIATE.f90 if Fortran 2003 functions are enabled. +! +! COPYRIGHT +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! 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 * +! terms governing use, modification, and redistribution, is contained in * +! the files COPYING and Copyright.html. COPYING can be found at the root * +! of the source code distribution tree; Copyright.html can be found at the * +! root level of an installed copy of the electronic HDF5 document set and * +! is linked from the top-level documents page. It can also be found at * +! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have * +! access to either file, you may request a copy from help@hdfgroup.org. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! NOTES +! *** IMPORTANT *** +! If you add a new H5A function you must add the function name to the +! Windows dll file 'hdf5_fortrandll.def' in the fortran/src directory. +! This is needed for Windows based operating systems. +! +!***** + +MODULE H5L_PROVISIONAL + + USE H5GLOBAL + +CONTAINS + +!****s* H5L (F03)/h5literate_f +! +! NAME +! h5literate_f +! +! PURPOSE +! Iterates through links in a group. +! +! INPUTS +! group_id - Identifier specifying subject group +! index_type - Type of index which determines the order +! order - Order within index +! idx - Iteration position at which to start +! op - Callback function passing data regarding the link to the calling application +! op_data - User-defined pointer to data required by the application for its processing of the link +! +! OUTPUTS +! idx - Position at which an interrupted iteration may be restarted +! hdferr - Error code: +! Success: 0 +! Failure: -1 +! AUTHOR +! M. Scot Breitenfeld +! July 8, 2008 +! +! SOURCE + SUBROUTINE h5literate_f(group_id, index_type, order, idx, op, op_data, return_value, hdferr) + USE ISO_C_BINDING + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: group_id ! Identifier specifying subject group + INTEGER, INTENT(IN) :: index_type ! Type of index which determines the order: + ! H5_INDEX_NAME_F - Alpha-numeric index on name + ! H5_INDEX_CRT_ORDER_F - Index on creation order + INTEGER, INTENT(IN) :: order ! Order within index: + ! H5_ITER_INC_F - Increasing order + ! H5_ITER_DEC_F - Decreasing order + ! H5_ITER_NATIVE_F - Fastest available order + INTEGER(HSIZE_T), INTENT(INOUT) :: idx ! IN : Iteration position at which to start + ! OUT: Position at which an interrupted iteration may be restarted + + TYPE(C_FUNPTR):: op ! Callback function passing data regarding the link to the calling application + TYPE(C_PTR) :: op_data ! User-defined pointer to data required by the application for its processing of the link + + INTEGER, INTENT(OUT) :: return_value ! Success: The return value of the first operator that + ! returns non-zero, or zero if all members were + ! processed with no operator returning non-zero. + + ! Failure: Negative if something goes wrong within the + ! library, or the negative value returned by one + ! of the operators. + + INTEGER, INTENT(OUT) :: hdferr ! Error code: + ! 0 on success and -1 on failure +!***** + INTERFACE + INTEGER FUNCTION h5literate_c(group_id, index_type, order, idx, op, op_data) + USE ISO_C_BINDING + USE H5GLOBAL + !DEC$IF DEFINED(HDF5F90_WINDOWS) + !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LITERATE_C'::h5literate_c + !DEC$ENDIF + INTEGER(HID_T), INTENT(IN) :: group_id + INTEGER, INTENT(IN) :: index_type + INTEGER, INTENT(IN) :: order + INTEGER(HSIZE_T), INTENT(INOUT) :: idx + TYPE(C_FUNPTR), VALUE :: op + TYPE(C_PTR), VALUE :: op_data + END FUNCTION h5literate_c + END INTERFACE + + return_value = h5literate_c(group_id, index_type, order, idx, op, op_data) + + IF(return_value.GE.0)THEN + hdferr = 0 + ELSE + hdferr = -1 + END IF + + END SUBROUTINE h5literate_f + +!****s* H5L (F03)/h5literate_by_name_f +! +! NAME +! h5literate_by_name_f +! +! PURPOSE +! Iterates through links in a group. +! +! INPUTS +! loc_id - File or group identifier specifying location of subject group +! group_name - Name of subject group +! index_type - Type of index which determines the order +! order - Order within index +! idx - Iteration position at which to start +! op - Callback function passing data regarding the link to the calling application +! op_data - User-defined pointer to data required by the application for its processing of the link +! +! OUTPUTS +! idx - Position at which an interrupted iteration may be restarted +! hdferr - Error code: +! Success: 0 +! Failure: -1 +! OPTIONAL PARAMETERS +! lapl_id - Link access property list +! +! AUTHOR +! M. Scot Breitenfeld +! Augest 18, 2008 +! +! SOURCE + SUBROUTINE h5literate_by_name_f(loc_id, group_name, index_type, order, idx, op, op_data, return_value, hdferr, lapl_id) + USE ISO_C_BINDING + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier specifying subject group + CHARACTER(LEN=*) :: group_name ! Name of subject group + INTEGER, INTENT(IN) :: index_type ! Type of index which determines the order: + ! H5_INDEX_NAME_F - Alpha-numeric index on name + ! H5_INDEX_CRT_ORDER_F - Index on creation order + INTEGER, INTENT(IN) :: order ! Order within index: + ! H5_ITER_INC_F - Increasing order + ! H5_ITER_DEC_F - Decreasing order + ! H5_ITER_NATIVE_F - Fastest available order + INTEGER(HSIZE_T), INTENT(INOUT) :: idx ! IN : Iteration position at which to start + ! OUT: Position at which an interrupted iteration may be restarted + + TYPE(C_FUNPTR):: op ! Callback function passing data regarding the link to the calling application + TYPE(C_PTR) :: op_data ! User-defined pointer to data required by the application for its processing of the link + + INTEGER, INTENT(OUT) :: return_value ! Success: The return value of the first operator that + ! returns non-zero, or zero if all members were + ! processed with no operator returning non-zero. + + ! Failure: Negative if something goes wrong within the + ! library, or the negative value returned by one + ! of the operators. + + INTEGER, INTENT(OUT) :: hdferr ! Error code: + ! 0 on success and -1 on failure + + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list +!***** + INTEGER(HID_T) :: lapl_id_default + INTEGER(SIZE_T) :: namelen + + INTERFACE + INTEGER FUNCTION h5literate_by_name_c(loc_id, name, namelen, index_type, order, idx, op, op_data, lapl_id_default) + USE ISO_C_BINDING + USE H5GLOBAL + !DEC$IF DEFINED(HDF5F90_WINDOWS) + !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LITERATE_BY_NAME_C'::h5literate_by_name_c + !DEC$ENDIF + INTEGER(HID_T), INTENT(IN) :: loc_id + CHARACTER(LEN=*) :: name + INTEGER(SIZE_T) :: namelen + INTEGER, INTENT(IN) :: index_type + INTEGER, INTENT(IN) :: order + INTEGER(HSIZE_T), INTENT(INOUT) :: idx + TYPE(C_FUNPTR), VALUE :: op + TYPE(C_PTR), VALUE :: op_data + INTEGER(HID_T) :: lapl_id_default + END FUNCTION +! h5literate_by_name_c + END INTERFACE + + namelen = LEN(group_name) + + lapl_id_default = H5P_DEFAULT_F + IF(PRESENT(lapl_id)) lapl_id_default = lapl_id + + return_value = h5literate_by_name_c(loc_id, group_name, namelen, index_type, order, idx, op, op_data,lapl_id_default) + + IF(return_value.GE.0)THEN + hdferr = 0 + ELSE + hdferr = -1 + END IF + + END SUBROUTINE h5literate_by_name_f + +END MODULE H5L_PROVISIONAL |