[svn-r8404]

Purpose: Maintenance

Description: h5dwrite/read_f and h5awrite_read_f functions were overloaded
             with dims argument being of type INTEGER and INTEGER(HSIZE_T).
             We promised to remove overloading in 1.4 release. It was
             removed from documentation but not from the source code.

Solution: Finish code cleanup.

Platforms tested: Solaris 2.7 32 and 64 bit, and copper with --enable-
                  parallel. Windows are broken, so Kent and Xuan
                  will test it with their changes later.

Misc. update:

13 files changed, 32 insertions, 36 deletions

diff --git a/fortran/test/fflush1.f90 b/fortran/test/fflush1.f90
index c318bb9..6c1cad8 100644
--- a/fortran/test/fflush1.f90
+++ b/fortran/test/fflush1.f90
@@ -82,7 +82,7 @@
      !data buffers 
      !         
      INTEGER, DIMENSION(NX,NY) :: data_in, data_out
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      data_dims(1) = NX
      data_dims(2) = NY
 
diff --git a/fortran/test/fflush2.f90 b/fortran/test/fflush2.f90
index b839153..acfe320 100644
--- a/fortran/test/fflush2.f90
+++ b/fortran/test/fflush2.f90
@@ -79,7 +79,7 @@
      !data buffers 
      !         
      INTEGER, DIMENSION(NX,NY) :: data_out
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      data_dims(1) = NX
      data_dims(2) = NY
 
diff --git a/fortran/test/tH5A.f90 b/fortran/test/tH5A.f90
index faeb481..59036a5 100644
--- a/fortran/test/tH5A.f90
+++ b/fortran/test/tH5A.f90
@@ -85,8 +85,7 @@
      DOUBLE PRECISION,  DIMENSION(1) ::  attr_double_data = 3.459
      REAL,         DIMENSION(1) ::  attr_real_data = 4.0
      INTEGER,      DIMENSION(1) ::  attr_integer_data = 5
-     INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
 
      
      CHARACTER :: aread_character_data ! variable to put read back Character attr data
@@ -255,8 +254,8 @@
      !
      ! Write the Real attribute data.
      !
-     data_dims_b(1) = 1 
-     CALL h5awrite_f(attr4_id, atype4_id, attr_real_data, data_dims_b, error)
+     data_dims(1) = 1 
+     CALL h5awrite_f(attr4_id, atype4_id, attr_real_data, data_dims, error)
      CALL check("h5awrite_f",error,total_error)
 
      !
diff --git a/fortran/test/tH5D.f90 b/fortran/test/tH5D.f90
index 6567f23..d71e61f 100644
--- a/fortran/test/tH5D.f90
+++ b/fortran/test/tH5D.f90
@@ -45,8 +45,7 @@
           INTEGER     ::   error ! Error flag
 
           INTEGER     :: i, j    !general purpose integers
-          INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
           !
           ! Initialize the dset_data array.
@@ -87,9 +86,9 @@
           !
           ! Write the dataset.
           !
-          data_dims_b(1) = 4
-          data_dims_b(2) = 6 
-          CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims_b, error)
+          data_dims(1) = 4
+          data_dims(2) = 6 
+          CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
               CALL check("h5dwrite_f", error, total_error)
 
 
@@ -254,7 +253,7 @@
           !  
           INTEGER(HSIZE_T), DIMENSION(2) :: dimsr, maxdimsr
           INTEGER :: rankr
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
           !
           !data initialization 
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90
index 8dba136..d37d94a 100644
--- a/fortran/test/tH5F.f90
+++ b/fortran/test/tH5F.f90
@@ -92,7 +92,7 @@
           !         
           INTEGER, DIMENSION(NX,NY) :: data_in, data_out
 
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
           filename1 = "mount1"
           filename2 = "mount2"
 
@@ -326,7 +326,7 @@
           !array to store data 
           !
           INTEGER, DIMENSION(4,6) :: dset_data, data_out
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      
           !
           !initialize the dset_data array which will be written to the "/dset"
diff --git a/fortran/test/tH5G.f90 b/fortran/test/tH5G.f90
index cb0b30d..ea8460c 100644
--- a/fortran/test/tH5G.f90
+++ b/fortran/test/tH5G.f90
@@ -58,7 +58,7 @@
      CHARACTER(LEN=100) :: commentout !comment to the file
      INTEGER     ::   nmembers
      INTEGER     :: obj_type
-     INTEGER, DIMENSION(7) :: data_dims 
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims 
      !
      ! Create the file.
      !
diff --git a/fortran/test/tH5I.f90 b/fortran/test/tH5I.f90
index 1ca21e4..ee9942b 100644
--- a/fortran/test/tH5I.f90
+++ b/fortran/test/tH5I.f90
@@ -50,7 +50,7 @@
 
      INTEGER     ::   type !object identifier
      INTEGER     ::   error ! Error flag
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      CHARACTER(LEN=80) name_buf
      INTEGER(SIZE_T)   buf_size
      INTEGER(SIZE_T)   name_size
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 15809bf..8972af8 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -164,8 +164,7 @@
           INTEGER     ::   error ! Error flag
 
           INTEGER     :: i, j    !general purpose integers
-          INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
           INTEGER :: mdc_nelmts
           INTEGER(SIZE_T) :: rdcc_nelmts
           INTEGER(SIZE_T) :: rdcc_nbytes
@@ -253,9 +252,9 @@
           !
           ! Write the dataset.
           !
-          data_dims_b(1) = 4
-          data_dims_b(2) = 6 
-          CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims_b, error)
+          data_dims(1) = 4
+          data_dims(2) = 6 
+          CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
               CALL check("h5dwrite_f", error, total_error)
 
 
diff --git a/fortran/test/tH5R.f90 b/fortran/test/tH5R.f90
index 995a22c..7cc71a5 100644
--- a/fortran/test/tH5R.f90
+++ b/fortran/test/tH5R.f90
@@ -48,9 +48,9 @@
           INTEGER :: rankr = 1 
           TYPE(hobj_ref_t_f), DIMENSION(4) ::  ref
           TYPE(hobj_ref_t_f), DIMENSION(4) ::  ref_out
-          INTEGER, DIMENSION(7) :: ref_dim
+          INTEGER(HSIZE_T), DIMENSION(1) :: ref_dim
           INTEGER, DIMENSION(5) :: data = (/1, 2, 3, 4, 5/)
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
 
           !
@@ -219,8 +219,8 @@
           INTEGER     ::   error
           TYPE(hdset_reg_ref_t_f) , DIMENSION(2) :: ref     ! Buffers to store references
           TYPE(hdset_reg_ref_t_f) , DIMENSION(2) :: ref_out !
-          INTEGER, DIMENSION(7) :: ref_dim
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: ref_dim
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
           INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/2,9/)  ! Datasets dimensions
           INTEGER(HSIZE_T), DIMENSION(1) :: dimsr = (/2/)   ! 
           INTEGER(HSSIZE_T), DIMENSION(2) :: start
diff --git a/fortran/test/tH5S.f90 b/fortran/test/tH5S.f90
index 49e1f1f..6f9ee8a 100644
--- a/fortran/test/tH5S.f90
+++ b/fortran/test/tH5S.f90
@@ -58,7 +58,7 @@
 
           LOGICAL     ::   flag  !flag to test datyspace is simple or not
           INTEGER     :: i, j    !general purpose integers
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
           !
           ! Initialize the dset_data array.
diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90
index ae0d2d4..ad95ecf 100644
--- a/fortran/test/tH5Sselect.f90
+++ b/fortran/test/tH5Sselect.f90
@@ -117,7 +117,7 @@
     !flag to check operation success 
     !
     INTEGER :: error, error_n 
-    INTEGER, DIMENSION(7) :: data_dims
+    INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
 
 
     !
@@ -398,7 +398,7 @@
     !
     INTEGER :: error 
     LOGICAL :: status
-    INTEGER, DIMENSION(7) :: data_dims
+    INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
 
 
     !
@@ -814,7 +814,7 @@
      !flag to check operation success 
      !
      INTEGER :: error, error_n 
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
 
      !
      !initialize the coord array to give the selected points' position 
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90
index 76eb467..5e406b8 100644
--- a/fortran/test/tH5T.f90
+++ b/fortran/test/tH5T.f90
@@ -85,7 +85,7 @@
      INTEGER :: array_dims_range = 3
      INTEGER :: elements = 24 ! number of elements in the array_dims array.
      INTEGER(SIZE_T) :: sizechar
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      LOGICAL :: flag = .TRUE.
      data_dims(1) = dimsize
      !
diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90
index 7005e14..f6291a2 100644
--- a/fortran/test/tH5Z.f90
+++ b/fortran/test/tH5Z.f90
@@ -181,8 +181,7 @@
           INTEGER     ::   num_errors = 0 ! Number of data errors
 
           INTEGER     :: i, j    !general purpose integers
-          INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b
-          INTEGER, DIMENSION(7) :: data_dims
+          INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
           INTEGER(HID_T) ::  crp_list
           INTEGER :: options_mask, pix_per_block 
           LOGICAL :: flag
@@ -257,9 +256,9 @@
           !
           ! Write the dataset.
           !
-          data_dims_b(1) = N
-          data_dims_b(2) =  M
-          CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims_b, error)
+          data_dims(1) = N
+          data_dims(2) =  M
+          CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
               CALL check("h5dwrite_f", error, total_error)
 
 
@@ -310,7 +309,7 @@
           !
           ! Read the dataset.
           !
-          CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, data_dims_b, error)
+          CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, data_dims, error)
               CALL check("h5dread_f", error, total_error)
 
           !