diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-08-23 04:48:54 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-08-23 04:48:54 (GMT) |
commit | 33de371d0f194909fe1e033f50c868e40b4e438e (patch) | |
tree | fca797b837321ecd0ddb8ae6cfe7ea35b281d554 /fortran/src/H5_DBLE_InterfaceInclude.f90 | |
parent | ec7ca9abf0dadaac0718c8b1cbde45a2e11ffed6 (diff) | |
download | hdf5-33de371d0f194909fe1e033f50c868e40b4e438e.zip hdf5-33de371d0f194909fe1e033f50c868e40b4e438e.tar.gz hdf5-33de371d0f194909fe1e033f50c868e40b4e438e.tar.bz2 |
[svn-r21295] Description:
Removed duplicate h5p, h5a, and h5d, double precision functions in _F90 and _F03 files
that are already defined in H5_DBLE_InterfaceInclude
Tested: jam (gcc 4.5, intel 12.0)
Diffstat (limited to 'fortran/src/H5_DBLE_InterfaceInclude.f90')
-rw-r--r-- | fortran/src/H5_DBLE_InterfaceInclude.f90 | 235 |
1 files changed, 109 insertions, 126 deletions
diff --git a/fortran/src/H5_DBLE_InterfaceInclude.f90 b/fortran/src/H5_DBLE_InterfaceInclude.f90 index 7006693..11e0a85 100644 --- a/fortran/src/H5_DBLE_InterfaceInclude.f90 +++ b/fortran/src/H5_DBLE_InterfaceInclude.f90 @@ -1609,14 +1609,11 @@ CONTAINS IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of - ! of fillvalue datatype - ! (in memory) + ! of fillvalue datatype + ! (in memory) DOUBLE PRECISION, INTENT(IN) :: fillvalue ! Fillvalue INTEGER, INTENT(OUT) :: hdferr ! Error code - ! INTEGER, EXTERNAL :: h5pset_fill_value_double_c - ! MS FORTRAN needs explicit interface for C functions called here. - ! INTERFACE INTEGER FUNCTION h5pset_fill_value_double_c(prp_id, type_id, fillvalue) USE H5GLOBAL @@ -1632,20 +1629,16 @@ CONTAINS hdferr = h5pset_fill_value_double_c(prp_id, type_id, fillvalue) END SUBROUTINE h5pset_fill_value_double - SUBROUTINE h5pget_fill_value_double(prp_id, type_id, fillvalue, & hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of - ! of fillvalue datatype - ! (in memory) + ! of fillvalue datatype + ! (in memory) DOUBLE PRECISION, INTENT(IN) :: fillvalue ! Fillvalue INTEGER, INTENT(OUT) :: hdferr ! Error code - ! INTEGER, EXTERNAL :: h5pget_fill_value_double_c - ! MS FORTRAN needs explicit interface for C functions called here. - ! INTERFACE INTEGER FUNCTION h5pget_fill_value_double_c(prp_id, type_id, fillvalue) USE H5GLOBAL @@ -1661,37 +1654,34 @@ CONTAINS hdferr = h5pget_fill_value_double_c(prp_id, type_id, fillvalue) END SUBROUTINE h5pget_fill_value_double - - !---------------------------------------------------------------------- - ! Name: h5pset_double - ! - ! Purpose: Sets a property list value - ! - ! Inputs: - ! prp_id - iproperty list identifier to modify - ! name - name of property to modify - ! value - value to set property to - ! Outputs: - ! hdferr: - error code - ! Success: 0 - ! Failure: -1 - ! Optional parameters: - ! NONE - ! - ! Programmer: Elena Pourmal - ! October 9, 2002 - ! - ! Modifications: - ! - ! Comment: - !---------------------------------------------------------------------- - +! +!****s* H5P (F90)/h5pset_double +! +! NAME +! h5pset_double +! +! PURPOSE +! Sets a property list value +! +! INPUTS +! prp_id - iproperty list identifier to modify +! name - name of property to modify +! value - value to set property to +! OUTPUTS +! hdferr: - error code +! Success: 0 +! Failure: -1 +! AUTHOR +! Elena Pourmal +! October 9, 2002 +! SOURCE SUBROUTINE h5pset_double(prp_id, name, value, hdferr) IMPLICIT NONE - INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier - CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify + INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier + CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify DOUBLE PRECISION, INTENT(IN) :: value ! Property value - INTEGER, INTENT(OUT) :: hdferr ! Error code + INTEGER, INTENT(OUT) :: hdferr ! Error code +!***** INTEGER :: name_len INTERFACE @@ -1712,37 +1702,34 @@ CONTAINS hdferr = h5pset_double_c(prp_id, name , name_len, value) END SUBROUTINE h5pset_double - - !---------------------------------------------------------------------- - ! Name: h5pget_double - ! - ! Purpose: Gets a property list value - ! - ! Inputs: - ! prp_id - iproperty list identifier to modify - ! name - name of property to modify - ! Outputs: - ! value - value of property - ! hdferr: - error code - ! Success: 0 - ! Failure: -1 - ! Optional parameters: - ! NONE - ! - ! Programmer: Elena Pourmal - ! October 9, 2002 - ! - ! Modifications: - ! - ! Comment: - !---------------------------------------------------------------------- - +!****s* H5P (F90)/h5pget_double +! +! NAME +! h5pget_double +! +! PURPOSE +! Gets a property list value +! +! INPUTS +! prp_id - iproperty list identifier to modify +! name - name of property to modify +! OUTPUTS +! value - value of property +! hdferr - error code +! Success: 0 +! Failure: -1 +! AUTHOR +! Elena Pourmal +! October 9, 2002 +! +! SOURCE SUBROUTINE h5pget_double(prp_id, name, value, hdferr) IMPLICIT NONE - INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier - CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify + INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier + CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify DOUBLE PRECISION, INTENT(OUT) :: value ! Property value - INTEGER, INTENT(OUT) :: hdferr ! Error code + INTEGER, INTENT(OUT) :: hdferr ! Error code +!***** INTEGER :: name_len INTERFACE @@ -1763,41 +1750,39 @@ CONTAINS hdferr = h5pget_double_c(prp_id, name , name_len, value) END SUBROUTINE h5pget_double - - !---------------------------------------------------------------------- - ! Name: h5pregister_double - ! - ! Purpose: Registers a permanent property with a property list class. - ! - ! Inputs: - ! class - property list class to register - ! permanent property within - ! name - name of property to register - ! size - size of property in bytes - ! value - default value for property in newly - ! created property lists - ! Outputs: - ! hdferr: - error code - ! Success: 0 - ! Failure: -1 - ! Optional parameters: - ! NONE - ! - ! Programmer: Elena Pourmal - ! October 10, 2002 - ! - ! Modifications: - ! - ! Comment: - !---------------------------------------------------------------------- - +! +!****s* H5P (F90)/h5pregister_double +! +! NAME +! h5pregister_double +! +! PURPOSE +! Registers a permanent property with a property list class. +! +! INPUTS +! class - property list class to register +! permanent property within +! name - name of property to register +! size - size of property in bytes +! value - default value for property in newly +! created property lists +! OUTPUTS +! hdferr - error code +! Success: 0 +! Failure: -1 +! AUTHOR +! Elena Pourmal +! October 10, 2002 +! +! SOURCE SUBROUTINE h5pregister_double(class, name, size, value, hdferr) IMPLICIT NONE - INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier - CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to register - INTEGER(SIZE_T), INTENT(IN) :: size ! size of the property value - DOUBLE PRECISION, INTENT(IN) :: value ! Property value - INTEGER, INTENT(OUT) :: hdferr ! Error code + INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier + CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to register + INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the property value + DOUBLE PRECISION, INTENT(IN) :: value ! Property value + INTEGER, INTENT(OUT) :: hdferr ! Error code +!***** INTEGER :: name_len INTERFACE @@ -1819,32 +1804,29 @@ CONTAINS hdferr = h5pregister_double_c(class, name , name_len, size, value) END SUBROUTINE h5pregister_double - !---------------------------------------------------------------------- - ! Name: h5pinsert_double - ! - ! Purpose: Registers a temporary property with a property list class. - ! - ! Inputs: - ! plist - property list identifier - ! permanent property within - ! name - name of property to insert - ! size - size of property in bytes - ! value - initial value for the property - ! Outputs: - ! hdferr: - error code - ! Success: 0 - ! Failure: -1 - ! Optional parameters: - ! NONE - ! - ! Programmer: Elena Pourmal - ! October 10, 2002 - ! - ! Modifications: - ! - ! Comment: - !---------------------------------------------------------------------- - +!****s* H5P (F90)/h5pinsert_double +! +! NAME +! +! h5pinsert_double +! +! PURPOSE +! Registers a temporary property with a property list class. +! +! INPUTS +! plist - property list identifier +! permanent property within +! name - name of property to insert +! size - size of property in bytes +! value - initial value for the property +! OUTPUTS +! hdferr - error code +! Success: 0 +! Failure: -1 +! AUTHOR +! Elena Pourmal +! October 10, 2002 +! SOURCE SUBROUTINE h5pinsert_double(plist, name, size, value, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier @@ -1852,6 +1834,7 @@ CONTAINS INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the property value DOUBLE PRECISION, INTENT(IN) :: value ! Property value INTEGER, INTENT(OUT) :: hdferr ! Error code +!***** INTEGER :: name_len INTERFACE |