summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Tff.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2005-04-06 22:53:03 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2005-04-06 22:53:03 (GMT)
commitb72f2c328bfdce27baf0526603a3dcb182b9b24e (patch)
treebfa7e93fd090001d9f9cea18add723abfef96b88 /fortran/src/H5Tff.f90
parent686e4f35010249e0489b49431836e4d34cfd24bc (diff)
downloadhdf5-b72f2c328bfdce27baf0526603a3dcb182b9b24e.zip
hdf5-b72f2c328bfdce27baf0526603a3dcb182b9b24e.tar.gz
hdf5-b72f2c328bfdce27baf0526603a3dcb182b9b24e.tar.bz2
[svn-r10561] Purpose: Maintenance
Description: Added missing h5get_member_class_f function Solution: Platforms tested: heping; it is a simple change. I will watch daily tests and take care of failures. Misc. update:
Diffstat (limited to 'fortran/src/H5Tff.f90')
-rw-r--r--fortran/src/H5Tff.f9069
1 files changed, 69 insertions, 0 deletions
diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90
index 336372d..ce7d3d2 100644
--- a/fortran/src/H5Tff.f90
+++ b/fortran/src/H5Tff.f90
@@ -3179,4 +3179,73 @@
END SUBROUTINE h5tis_variable_str_f
!----------------------------------------------------------------------
+! Name: h5tget_member_class_f
+!
+! Purpose: Returns datatype class of compound datatype member.
+!
+! Inputs:
+! type_id - - datartpe identifier
+! member_no - index of compound datatype member
+! Outputs:
+! class - class type for compound dadtype member
+! Can be one of the follwoing classes:
+! H5T_NO_CLASS_F (error)
+! H5T_INTEGER_F
+! H5T_FLOAT_F
+! H5T_TIME_F
+! H5T_STRING_F
+! H5T_BITFIELD_F
+! H5T_OPAQUE_F
+! H5T_COMPOUND_F
+! H5T_REFERENCE_F
+! H5T_ENUM_F
+! H5T_VLEN_F
+! H5T_ARRAY_F
+! hdferr: - error code
+! Success: 0
+! Failure: -1
+! Optional parameters:
+! NONE
+!
+! Programmer: Elena Pourmal
+! April 6, 2005
+!
+! Modifications:
+!
+! Comment:
+!----------------------------------------------------------------------
+
+ SUBROUTINE h5tget_member_class_f(type_id, member_no, class, hdferr)
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5tget_member_class_f
+!DEC$endif
+!
+
+ IMPLICIT NONE
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: member_no ! Member number
+ INTEGER, INTENT(OUT) :: class ! Member class
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
+! MS FORTRAN needs explicit interface for C functions called here.
+!
+ INTERFACE
+ INTEGER FUNCTION h5tget_member_class_c(type_id, member_no, class)
+ USE H5GLOBAL
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+ !MS$ATTRIBUTES C,reference,alias:'_H5TGET_MEMBER_CLASS_C'::h5tget_member_class_c
+ !DEC$ ENDIF
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER, INTENT(IN) :: member_no
+ INTEGER, INTENT(OUT) :: class
+ END FUNCTION h5tget_member_class_c
+ END INTERFACE
+
+ hdferr = h5tget_member_class_c(type_id, member_no, class)
+
+ END SUBROUTINE h5tget_member_class_f
+
+!----------------------------------------------------------------------
END MODULE H5T