diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-10-10 22:37:46 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-10-10 22:37:46 (GMT) |
| commit | 900862b2c39fdd2de3b5bfc630fd990b9eed8268 (patch) | |
| tree | 06207da1b9a1ecc5e31127cdc6c4f6dac6685a09 /fortran/src/H5Dff.f90 | |
| parent | 64b8f7fd738aec5c4683cdd457fbbf334c0b7bba (diff) | |
| download | hdf5-900862b2c39fdd2de3b5bfc630fd990b9eed8268.zip hdf5-900862b2c39fdd2de3b5bfc630fd990b9eed8268.tar.gz hdf5-900862b2c39fdd2de3b5bfc630fd990b9eed8268.tar.bz2 | |
[svn-r2658]
Purpose:
Buf fix
Description:
On DEC, H5Dff.f90 would not compile because of variables declaration
order. Other UNIX platforms including J90 did not care.
Solution:
Change the order of variables declarations.
Platforms tested:
DEC Unix (gondolin)
Diffstat (limited to 'fortran/src/H5Dff.f90')
| -rw-r--r-- | fortran/src/H5Dff.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90 index 000dd40..ba9f9a3 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -143,8 +143,8 @@ IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier - TYPE(hobj_ref_t_f), DIMENSION(N), INTENT(IN) :: buf ! Data buffer INTEGER, INTENT(IN) :: n ! size of the bufffer buf + TYPE(hobj_ref_t_f), DIMENSION(n), INTENT(IN) :: buf ! Data buffer INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id ! Memory dataspace identfier @@ -1301,8 +1301,8 @@ IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier - TYPE(hobj_ref_t_f), DIMENSION(N), INTENT(INOUT) :: buf ! Data buffer INTEGER, INTENT(IN) :: n ! Size of the budffer buf + TYPE(hobj_ref_t_f), DIMENSION(N), INTENT(INOUT) :: buf ! Data buffer INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id ! Memory dataspace identfier |