[svn-r8357]

Purpose: Maintenance

Description: Fortran functions h5dwrite/read_f and h5awrite/read_f
             were overloaded with the dims parameter being of type
             INTEGER. It was a design flaw. dims should be of type
             INTEGER(HSIZE_T). Overloading was done to assure backward
             compatibility of 1.4.* branch with hdf5 1.2.* branch.

             We promised to remove the old function with INTEGER dims
             in 1.6.0. It was removed from the documentation but
             was not removed from the source code.

Solution: Finally cleaned up the code.

Platforms tested: Windows 2000 with DEC Fortran, LInux with Intel Fortran,
                  Solaris 2.7 32/64-bit mode.

Misc. update:

1 files changed, 31 insertions, 31 deletions

diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90
index a4bc6f6..88837f0 100644
--- a/fortran/src/H5Iff.f90
+++ b/fortran/src/H5Iff.f90
@@ -54,9 +54,9 @@
           SUBROUTINE h5iget_type_f(obj_id, type, hdferr) 
 !
 !This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5iget_type_f
-!DEC$endif
+!FooDECSif defined(BUILD_HDF5_DLL)
+!FooDECSattributes dllexport :: h5iget_type_f
+!FooDECSendif
 !
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: obj_id  !Object identifier 
@@ -77,9 +77,9 @@
             INTERFACE
               INTEGER FUNCTION h5iget_type_c(obj_id, type)
               USE H5GLOBAL
-              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5IGET_TYPE_C':: h5iget_type_c
-              !DEC$ ENDIF
+              !FooDECS IF DEFINED(HDF5F90_WINDOWS)
+              !FooMSSATTRIBUTES C,reference,alias:'_H5IGET_TYPE_C':: h5iget_type_c
+              !FooDECS ENDIF
               INTEGER(HID_T), INTENT(IN) :: obj_id 
               INTEGER, INTENT(OUT) :: type
               END FUNCTION h5iget_type_c
@@ -115,9 +115,9 @@
 
           SUBROUTINE h5iget_name_f(obj_id, buf, buf_size, name_size, hdferr) 
 !This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5iget_name_f
-!DEC$endif
+!FooDECSif defined(BUILD_HDF5_DLL)
+!FooDECSattributes dllexport :: h5iget_name_f
+!FooDECSendif
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: obj_id     ! Object identifier 
             INTEGER(SIZE_T), INTENT(IN) :: buf_size  ! Buffer size 
@@ -132,10 +132,10 @@
             INTERFACE
               INTEGER FUNCTION h5iget_name_c(obj_id, buf, buf_size, name_size)
               USE H5GLOBAL
-              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5IGET_NAME_C'::h5iget_name_c
-              !DEC$ ENDIF
-              !DEC$ATTRIBUTES reference :: buf
+              !FooDECS IF DEFINED(HDF5F90_WINDOWS)
+              !FooMSSATTRIBUTES C,reference,alias:'_H5IGET_NAME_C'::h5iget_name_c
+              !FooDECS ENDIF
+              !FooDECSATTRIBUTES reference :: buf
               INTEGER(HID_T), INTENT(IN) :: obj_id
               CHARACTER(LEN=*), INTENT(OUT) :: buf
               INTEGER(SIZE_T), INTENT(IN) :: buf_size
@@ -170,9 +170,9 @@
           SUBROUTINE h5iinc_ref_f(obj_id, ref_count, hdferr) 
 !
 !This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5iinc_ref_f
-!DEC$endif
+!FooDECSif defined(BUILD_HDF5_DLL)
+!FooDECSattributes dllexport :: h5iinc_ref_f
+!FooDECSendif
 !
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: obj_id  !Object identifier 
@@ -185,9 +185,9 @@
             INTERFACE
               INTEGER FUNCTION h5iinc_ref_c(obj_id, ref_count)
               USE H5GLOBAL
-              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5IINC_REF_C':: h5iinc_ref_c
-              !DEC$ ENDIF
+              !FooDECS IF DEFINED(HDF5F90_WINDOWS)
+              !FooMSSATTRIBUTES C,reference,alias:'_H5IINC_REF_C':: h5iinc_ref_c
+              !FooDECS ENDIF
               INTEGER(HID_T), INTENT(IN) :: obj_id 
               INTEGER, INTENT(OUT) :: ref_count
               END FUNCTION h5iinc_ref_c
@@ -219,9 +219,9 @@
           SUBROUTINE h5idec_ref_f(obj_id, ref_count, hdferr) 
 !
 !This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5idec_ref_f
-!DEC$endif
+!FooDECSif defined(BUILD_HDF5_DLL)
+!FooDECSattributes dllexport :: h5idec_ref_f
+!FooDECSendif
 !
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: obj_id  !Object identifier 
@@ -234,9 +234,9 @@
             INTERFACE
               INTEGER FUNCTION h5idec_ref_c(obj_id, ref_count)
               USE H5GLOBAL
-              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5IDEC_REF_C':: h5idec_ref_c
-              !DEC$ ENDIF
+              !FooDECS IF DEFINED(HDF5F90_WINDOWS)
+              !FooMSSATTRIBUTES C,reference,alias:'_H5IDEC_REF_C':: h5idec_ref_c
+              !FooDECS ENDIF
               INTEGER(HID_T), INTENT(IN) :: obj_id 
               INTEGER, INTENT(OUT) :: ref_count
               END FUNCTION h5idec_ref_c
@@ -268,9 +268,9 @@
           SUBROUTINE h5iget_ref_f(obj_id, ref_count, hdferr) 
 !
 !This definition is needed for Windows DLLs
-!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: h5iget_ref_f
-!DEC$endif
+!FooDECSif defined(BUILD_HDF5_DLL)
+!FooDECSattributes dllexport :: h5iget_ref_f
+!FooDECSendif
 !
             IMPLICIT NONE
             INTEGER(HID_T), INTENT(IN) :: obj_id  !Object identifier 
@@ -283,9 +283,9 @@
             INTERFACE
               INTEGER FUNCTION h5iget_ref_c(obj_id, ref_count)
               USE H5GLOBAL
-              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5IGET_REF_C':: h5iget_ref_c
-              !DEC$ ENDIF
+              !FooDECS IF DEFINED(HDF5F90_WINDOWS)
+              !FooMSSATTRIBUTES C,reference,alias:'_H5IGET_REF_C':: h5iget_ref_c
+              !FooDECS ENDIF
               INTEGER(HID_T), INTENT(IN) :: obj_id 
               INTEGER, INTENT(OUT) :: ref_count
               END FUNCTION h5iget_ref_c