summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Aff.f903
-rw-r--r--fortran/src/H5fortran_flags.f9010
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: