diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-09-15 16:23:39 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-09-15 16:23:39 (GMT) |
| commit | 59a90368cdb696205bdf15040d1a48b4f69af97f (patch) | |
| tree | 7a035a9405e28382a555043eaa1738224f4c4a06 | |
| parent | 3479b51dc1aa9e9166e9549a96585bec8470012a (diff) | |
| download | hdf5-59a90368cdb696205bdf15040d1a48b4f69af97f.zip hdf5-59a90368cdb696205bdf15040d1a48b4f69af97f.tar.gz hdf5-59a90368cdb696205bdf15040d1a48b4f69af97f.tar.bz2 | |
fixed arg to C H5Dwrite_chunk (#3541)
| -rw-r--r-- | fortran/src/H5Dff.F90 | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90 index c8c1212..f4fe4ac 100644 --- a/fortran/src/H5Dff.F90 +++ b/fortran/src/H5Dff.F90 @@ -2402,7 +2402,7 @@ CONTAINS INTEGER(HID_T) , INTENT(IN), OPTIONAL :: dxpl_id INTEGER(HID_T) :: dxpl_id_default - INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: offset_c + INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: c_offset INTEGER(HSIZE_T) :: i, rank INTEGER(C_INT32_T) :: c_filters @@ -2427,7 +2427,7 @@ CONTAINS rank = SIZE(offset, KIND=HSIZE_T) - ALLOCATE(offset_c(rank), STAT=hdferr) + ALLOCATE(c_offset(rank), STAT=hdferr) IF (hdferr .NE. 0 ) THEN hdferr = -1 RETURN @@ -2437,14 +2437,14 @@ CONTAINS ! Reverse dimensions due to C-FORTRAN storage order ! DO i = 1, rank - offset_c(i) = offset(rank - i + 1) + c_offset(i) = offset(rank - i + 1) ENDDO - hdferr = INT(H5Dread_chunk(dset_id, dxpl_id_default, offset_c, c_filters, buf)) + hdferr = INT(H5Dread_chunk(dset_id, dxpl_id_default, c_offset, c_filters, buf)) filters = INT(c_filters) - DEALLOCATE(offset_c) + DEALLOCATE(c_offset) END SUBROUTINE h5dread_chunk_f @@ -2475,7 +2475,7 @@ CONTAINS INTEGER(HID_T) , INTENT(IN), OPTIONAL :: dxpl_id INTEGER(HID_T) :: dxpl_id_default - INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: offset_c + INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: c_offset INTEGER(HSIZE_T) :: i, rank INTEGER(C_INT32_T) :: c_filters @@ -2499,7 +2499,7 @@ CONTAINS rank = SIZE(offset, KIND=HSIZE_T) - ALLOCATE(offset_c(rank), STAT=hdferr) + ALLOCATE(c_offset(rank), STAT=hdferr) IF (hdferr .NE. 0 ) THEN hdferr = -1 RETURN @@ -2509,14 +2509,14 @@ CONTAINS ! Reverse dimensions due to C-FORTRAN storage order ! DO i = 1, rank - offset_c(i) = offset(rank - i + 1) + c_offset(i) = offset(rank - i + 1) ENDDO c_filters = INT(filters, C_INT32_T) - hdferr = INT(H5Dwrite_chunk(dset_id, dxpl_id_default, filters, offset_c, data_size, buf)) + hdferr = INT(H5Dwrite_chunk(dset_id, dxpl_id_default, c_filters, c_offset, data_size, buf)) - DEALLOCATE(offset_c) + DEALLOCATE(c_offset) END SUBROUTINE h5dwrite_chunk_f |