diff options
| author | Bill Wendling <wendling@ncsa.uiuc.edu> | 2000-09-19 20:06:49 (GMT) |
|---|---|---|
| committer | Bill Wendling <wendling@ncsa.uiuc.edu> | 2000-09-19 20:06:49 (GMT) |
| commit | 8055378bcecfc77af85b2bb07e7904edc9492789 (patch) | |
| tree | 01c100c34cd727b9dc15ae21c89b6e0dfa361303 /fortran/src/H5Iff.f90 | |
| parent | 8272da0b67a9ef3a7299fd10cc5f3ccbf80cbeae (diff) | |
| download | hdf5-8055378bcecfc77af85b2bb07e7904edc9492789.zip hdf5-8055378bcecfc77af85b2bb07e7904edc9492789.tar.gz hdf5-8055378bcecfc77af85b2bb07e7904edc9492789.tar.bz2 | |
[svn-r2576] Purpose:
Adding the Fortran interface to the HDF5 library
Description:
Fortran is now a subdirectory of the HDF5 library tree.
Platforms tested:
Solaris and IRIX (O2K)
Diffstat (limited to 'fortran/src/H5Iff.f90')
| -rw-r--r-- | fortran/src/H5Iff.f90 | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90 new file mode 100644 index 0000000..cd50da3 --- /dev/null +++ b/fortran/src/H5Iff.f90 @@ -0,0 +1,33 @@ +! +! This file contains FORTRAN90 interfaces for H5I functions +! + MODULE H5I + + USE H5FORTRAN_TYPES + USE H5FORTRAN_FLAGS + + CONTAINS + + SUBROUTINE h5iget_type_f(obj_id, type, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier + INTEGER, INTENT(OUT) :: type !type of an object. + !possible values are: + !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) + INTEGER, INTENT(OUT) :: hdferr ! Error code + INTEGER, EXTERNAL :: h5iget_type_c + hdferr = h5iget_type_c(obj_id, type) + END SUBROUTINE h5iget_type_f + + END MODULE H5I + + + + + |