summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Iff.f90
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Iff.f90')
-rw-r--r--fortran/src/H5Iff.f90132
1 files changed, 66 insertions, 66 deletions
diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90
index 83587ce..a082d5a 100644
--- a/fortran/src/H5Iff.f90
+++ b/fortran/src/H5Iff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains FORTRAN90 interfaces for H5I functions
@@ -19,17 +19,17 @@
MODULE H5I
USE H5GLOBAL
-
+
CONTAINS
!----------------------------------------------------------------------
-! Name: h5iget_type_f
+! Name: h5iget_type_f
!
-! Purpose: Retrieves the type of an object.
+! Purpose: Retrieves the type of an object.
!
-! Inputs: obj_id - object identifier
-! Outputs:
-! type - type of the object, possible values:
+! Inputs: obj_id - object identifier
+! Outputs:
+! type - type of the object, possible values:
! H5I_FILE_F
! H5I_GROUP_F
! H5I_DATATYPE_F
@@ -37,25 +37,25 @@
! H5I_DATASET_F
! H5I_ATTR_F
! H5I_BADID_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
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.
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER, INTENT(OUT) :: type !type of an object.
!possible values are:
!H5I_FILE_F
!H5I_GROUP_F
@@ -75,7 +75,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IGET_TYPE_C':: h5iget_type_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: type
END FUNCTION h5iget_type_c
END INTERFACE
@@ -83,35 +83,35 @@
END SUBROUTINE h5iget_type_f
!----------------------------------------------------------------------
-! Name: h5iget_name_f
+! Name: h5iget_name_f
!
-! Purpose: Gets a name of an object specified by its idetifier.
+! Purpose: Gets a name of an object specified by its idetifier.
!
-! Inputs:
+! Inputs:
! obj_id - attribute identifier
! buf_size - size of a buffer to read name in
-! Outputs:
+! Outputs:
! buf - buffer to read name in, name will be truncated if
! buffer is not big enough
! name_size - name size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
! March 12, 2003
!
-! Modifications:
+! Modifications:
!
!----------------------------------------------------------------------
SUBROUTINE h5iget_name_f(obj_id, buf, buf_size, name_size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
- INTEGER(SIZE_T), INTENT(IN) :: buf_size ! Buffer size
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(SIZE_T), INTENT(IN) :: buf_size ! Buffer size
CHARACTER(LEN=*), INTENT(OUT) :: buf ! Buffer to hold object name
INTEGER(SIZE_T), INTENT(OUT) :: name_size ! Actual name size
INTEGER, INTENT(OUT) :: hdferr ! Error code:
@@ -142,25 +142,25 @@
!
! Purpose: Increments the reference count of an ID
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! ref_count - Current reference count of the ID
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
-! December 9, 2003
+! December 9, 2003
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iinc_ref_f(obj_id, ref_count, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -173,7 +173,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IINC_REF_C':: h5iinc_ref_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: ref_count
END FUNCTION h5iinc_ref_c
END INTERFACE
@@ -185,25 +185,25 @@
!
! Purpose: Decrements the reference count of an ID
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! ref_count - Current reference count of the ID
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
-! December 9, 2003
+! December 9, 2003
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5idec_ref_f(obj_id, ref_count, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -216,7 +216,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IDEC_REF_C':: h5idec_ref_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: ref_count
END FUNCTION h5idec_ref_c
END INTERFACE
@@ -228,25 +228,25 @@
!
! Purpose: Retrieves the reference count of an ID
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! ref_count - Current reference count of the ID
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
-! December 9, 2003
+! December 9, 2003
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iget_ref_f(obj_id, ref_count, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -259,7 +259,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IGET_REF_C':: h5iget_ref_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: ref_count
END FUNCTION h5iget_ref_c
END INTERFACE
@@ -271,12 +271,12 @@
!
! Purpose: Obtains file identifier from the object identifier
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! file_id - file identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -285,11 +285,11 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iget_file_id_f(obj_id, file_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -299,8 +299,8 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IGET_FILE_ID_C':: h5iget_file_id_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
- INTEGER(HID_T), INTENT(OUT) :: file_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(OUT) :: file_id
END FUNCTION h5iget_file_id_c
END INTERFACE
hdferr = h5iget_file_id_c(obj_id, file_id)
@@ -311,20 +311,20 @@
!
! Purpose: Check if an ID is valid without producing an error message
!
-! Inputs: id - identifier
-! Outputs:
+! Inputs: id - identifier
+! Outputs:
! valid - status of id as a valid identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Programmer: M. Scot Breitenfeld
! April 13, 2009
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iis_valid_f(id, valid, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: id ! Identifier
+ INTEGER(HID_T), INTENT(IN) :: id ! Identifier
LOGICAL, INTENT(OUT) :: valid ! Status of id as a valid identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: c_valid ! 0 = .false, 1 = .true.
@@ -335,7 +335,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IIS_VALID_C':: h5iis_valid_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: id ! Identifier
+ INTEGER(HID_T), INTENT(IN) :: id ! Identifier
INTEGER :: c_valid
END FUNCTION h5iis_valid_c
END INTERFACE
@@ -344,7 +344,7 @@
valid = .FALSE. ! Default
IF(c_valid.EQ.1) valid = .TRUE.
-
+
END SUBROUTINE h5iis_valid_f