From b1c8d95cdd9918c1a2ed4dcb90fd9a2d8c588a68 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Fri, 20 Oct 2000 15:49:32 -0500 Subject: [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 --- fortran/src/H5Aff.f90 | 3 ++- 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: -- cgit v0.12