diff options
Diffstat (limited to 'fortran/src/H5Iff.f90')
| -rw-r--r-- | fortran/src/H5Iff.f90 | 46 |
1 files changed, 43 insertions, 3 deletions
diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90 index cd50da3..7f73242 100644 --- a/fortran/src/H5Iff.f90 +++ b/fortran/src/H5Iff.f90 @@ -3,11 +3,40 @@ ! MODULE H5I - USE H5FORTRAN_TYPES - USE H5FORTRAN_FLAGS + USE H5GLOBAL CONTAINS +!---------------------------------------------------------------------- +! Name: h5iget_type_f +! +! Purpose: Retrieves the type of an object. +! +! Inputs: obj_id - object identifier +! Outputs: +! type - type of the object, possible values: +! H5I_FILE_F(1) +! H5I_GROUP_F(2) +! H5I_DATATYPE_F(3) +! H5I_DATASPACE_F(4) +! H5I_DATASET_F(5) +! H5I_ATTR_F(6) +! H5I_BADID_F(-1) +! hdferr: - error code +! Success: 0 +! Failure: -1 +! Optional parameters: +! NONE +! +! Programmer: Elena Pourmal +! August 12, 1999 +! +! Modifications: Explicit Fortran interfaces were added for +! called C functions (it is needed for Windows +! port). March 5, 2001 +! +! Comment: +!---------------------------------------------------------------------- SUBROUTINE h5iget_type_f(obj_id, type, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier @@ -21,7 +50,18 @@ !H5I_ATTR_F(6) !H5I_BADID_F(-1) INTEGER, INTENT(OUT) :: hdferr ! Error code - INTEGER, EXTERNAL :: h5iget_type_c + +! INTEGER, EXTERNAL :: h5iget_type_c +! Interface is needed for MS FORTRAN +! + INTERFACE + INTEGER FUNCTION h5iget_type_c(obj_id, type) + USE H5GLOBAL + !MS$ATTRIBUTES C,reference,alias:'_H5IGET_TYPE_C':: h5iget_type_c + INTEGER(HID_T), INTENT(IN) :: obj_id + INTEGER, INTENT(OUT) :: type + END FUNCTION h5iget_type_c + END INTERFACE hdferr = h5iget_type_c(obj_id, type) END SUBROUTINE h5iget_type_f |