diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-03-25 15:00:31 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-03-25 15:00:31 (GMT) |
| commit | b2423350f49bd90f3a4a1355df78cb815dcc0312 (patch) | |
| tree | 6200503b15c21ca68112dcdd5d272de1aad44088 /hl/fortran/src/H5IMff.F90 | |
| parent | b01b84f245bcaf02c718463b38f1e693d5408de9 (diff) | |
| download | hdf5-b2423350f49bd90f3a4a1355df78cb815dcc0312.zip hdf5-b2423350f49bd90f3a4a1355df78cb815dcc0312.tar.gz hdf5-b2423350f49bd90f3a4a1355df78cb815dcc0312.tar.bz2 | |
HDFFV-10738 Wrong INTENT for H5LTread_dataset_double_f
Fixed.
Also fixed INTENT issues for H5DS, H5IM and H5TB when reading or getting.
Diffstat (limited to 'hl/fortran/src/H5IMff.F90')
| -rw-r--r-- | hl/fortran/src/H5IMff.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hl/fortran/src/H5IMff.F90 b/hl/fortran/src/H5IMff.F90 index 6646828..ac4b794 100644 --- a/hl/fortran/src/H5IMff.F90 +++ b/hl/fortran/src/H5IMff.F90 @@ -539,7 +539,7 @@ CONTAINS INTEGER, INTENT(in) :: pal_number ! palette number INTEGER(hsize_t), DIMENSION(*), INTENT(inout) :: dims ! dimensions INTEGER :: errcode ! error code - INTEGER(size_t) :: namelen ! name length + INTEGER(size_t) :: namelen ! name length INTERFACE INTEGER FUNCTION h5imget_palette_info_c(loc_id,namelen,dset_name,pal_number,dims) & @@ -551,7 +551,7 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: pal_number ! palette number INTEGER(hsize_t), DIMENSION(*), INTENT(inout) :: dims ! dimensions - INTEGER(size_t) :: namelen ! name length + INTEGER(size_t) :: namelen ! name length END FUNCTION h5imget_palette_info_c END INTERFACE |