diff options
| -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: |