From 900862b2c39fdd2de3b5bfc630fd990b9eed8268 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Tue, 10 Oct 2000 17:37:46 -0500 Subject: [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) --- fortran/src/H5Dff.f90 | 4 ++-- 1 file 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 -- cgit v0.12