diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-10-20 20:49:32 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-10-20 20:49:32 (GMT) |
| commit | b1c8d95cdd9918c1a2ed4dcb90fd9a2d8c588a68 (patch) | |
| tree | e8c663224da7a24c202d3b79ceaa44be7a36a646 /fortran | |
| parent | 79d1d8258f57f099975c15185b97f0ce1529b902 (diff) | |
| download | hdf5-b1c8d95cdd9918c1a2ed4dcb90fd9a2d8c588a68.zip hdf5-b1c8d95cdd9918c1a2ed4dcb90fd9a2d8c588a68.tar.gz hdf5-b1c8d95cdd9918c1a2ed4dcb90fd9a2d8c588a68.tar.bz2 | |
[svn-r2713]
Purpose:
H5Aff.f90: Bug fix
Description:
Character string was not passed correctly from the user's application
to the write/read subroutines when buffer was decalred as assumed-shape
array.
Solution:
Declared date buffer to be assumed-size array.
Platforms tested:
Solaris 2.7, Linux
Purpose:
H5fortran_flags.f90: Bug fix
Description:
Fortran H5I_* types had incorrect values.
Solution:
Fixed.
Platforms tested:
Solaris 2.7, Linux
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Aff.f90 | 3 | ||||
| -rw-r--r-- | fortran/src/H5fortran_flags.f90 | 10 |
2 files changed, 7 insertions, 6 deletions
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90 index b24de00..1bc2225 100644 --- a/fortran/src/H5Aff.f90 +++ b/fortran/src/H5Aff.f90 @@ -73,6 +73,7 @@ MODULE PROCEDURE h5aread_real_7 ! Comment if on T3E MODULE PROCEDURE h5aread_double_scalar + MODULE PROCEDURE h5aread_double_1 MODULE PROCEDURE h5aread_double_2 MODULE PROCEDURE h5aread_double_3 MODULE PROCEDURE h5aread_double_4 @@ -866,7 +867,7 @@ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype ! identifier (in memory) - CHARACTER(LEN=*), DIMENSION(:), INTENT(OUT) :: buf + CHARACTER(LEN=*), DIMENSION(*), INTENT(OUT) :: buf ! Attribute data INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER, EXTERNAL :: h5areadc_c diff --git a/fortran/src/H5fortran_flags.f90 b/fortran/src/H5fortran_flags.f90 index d3bb5c0..f4ba649 100644 --- a/fortran/src/H5fortran_flags.f90 +++ b/fortran/src/H5fortran_flags.f90 @@ -96,11 +96,11 @@ !H5I interface related fortran flags: INTEGER, PARAMETER :: H5I_FILE_F = 1 - INTEGER, PARAMETER :: H5I_GROUP_F = 2 - INTEGER, PARAMETER :: H5I_DATATYPE_F = 3 - INTEGER, PARAMETER :: H5I_DATASPACE_F = 4 - INTEGER, PARAMETER :: H5I_DATASET_F = 5 - INTEGER, PARAMETER :: H5I_ATTR_F = 6 + INTEGER, PARAMETER :: H5I_GROUP_F = 12 + INTEGER, PARAMETER :: H5I_DATATYPE_F = 13 + INTEGER, PARAMETER :: H5I_DATASPACE_F = 14 + INTEGER, PARAMETER :: H5I_DATASET_F = 15 + INTEGER, PARAMETER :: H5I_ATTR_F = 16 INTEGER, PARAMETER :: H5I_BADID_F = -1 !H5E interface related fortran flags: |