summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-10-10 22:37:46 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-10-10 22:37:46 (GMT)
commit900862b2c39fdd2de3b5bfc630fd990b9eed8268 (patch)
tree06207da1b9a1ecc5e31127cdc6c4f6dac6685a09
parent64b8f7fd738aec5c4683cdd457fbbf334c0b7bba (diff)
downloadhdf5-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)
-rw-r--r--fortran/src/H5Dff.f904
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