diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-10-10 22:19:00 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-10-10 22:19:00 (GMT) |
| commit | c72601e0d6246b6dc72d0c45c226e92b0ef4c2d7 (patch) | |
| tree | 09c85d2572492a12ece9aac6761e97a75f191d63 /fortran/src/H5Pff.f90 | |
| parent | c4b72f1579cbfcf7ad8ad3f5318cd425cf35feb8 (diff) | |
| download | hdf5-c72601e0d6246b6dc72d0c45c226e92b0ef4c2d7.zip hdf5-c72601e0d6246b6dc72d0c45c226e92b0ef4c2d7.tar.gz hdf5-c72601e0d6246b6dc72d0c45c226e92b0ef4c2d7.tar.bz2 | |
[svn-r7601]
Purpose: Bug fix
Description: Parameter rdcc_nelmts of the h5pget_cache_f subroutine
had wrong INTEGER(SIZE_T) instead of INTEGER type.
Solution: Fixed the type
Platforms tested: arabica in 64-bit mode (where INTEGER(SIZE_T) is not
the same as INTEGER)
Misc. update:
Diffstat (limited to 'fortran/src/H5Pff.f90')
| -rw-r--r-- | fortran/src/H5Pff.f90 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90 index 26b8f78..9de252e 100644 --- a/fortran/src/H5Pff.f90 +++ b/fortran/src/H5Pff.f90 @@ -2165,6 +2165,9 @@ ! called C functions (it is needed for Windows ! port). March 14, 2001 ! +! Bug fix: type of the rdcc_nelmts parameter should be INTEGER +! instead of INTEGER(SIZE_T) October 10, 2003 +! ! Comment: !---------------------------------------------------------------------- @@ -2179,7 +2182,7 @@ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier INTEGER, INTENT(OUT) :: mdc_nelmts !Number of elements (objects) ! in the meta data cache - INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nelmts !Number of elements (objects) + INTEGER, INTENT(OUT) :: rdcc_nelmts !Number of elements (objects) ! in the meta data cache INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes !Total size of the raw data !chunk cache, in bytes @@ -2198,7 +2201,7 @@ !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(OUT) :: mdc_nelmts - INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nelmts + INTEGER, INTENT(OUT) :: rdcc_nelmts INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes REAL, INTENT(OUT) :: rdcc_w0 END FUNCTION h5pget_cache_c |