[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:

10 files changed, 11 insertions, 11 deletions

diff --git a/fortran/examples/attrexample.f90 b/fortran/examples/attrexample.f90
index aa46a91..1664568 100644
--- a/fortran/examples/attrexample.f90
+++ b/fortran/examples/attrexample.f90
@@ -41,7 +41,7 @@
      CHARACTER(LEN=80), DIMENSION(2) ::  attr_data  ! Attribute data
 
      INTEGER     ::   error ! Error flag
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      
 
      !
diff --git a/fortran/examples/compound.f90 b/fortran/examples/compound.f90
index b2f98c2..0cc7fc5 100644
--- a/fortran/examples/compound.f90
+++ b/fortran/examples/compound.f90
@@ -62,7 +62,7 @@
      DOUBLE PRECISION, DIMENSION(dimsize) :: double_member
      REAL, DIMENSION(dimsize)             :: real_member
      INTEGER :: i
-     INTEGER, DIMENSION(7) :: data_dims 
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims 
      data_dims(1) = dimsize
      !
      ! Initialize data buffer.
diff --git a/fortran/examples/grpdsetexample.f90 b/fortran/examples/grpdsetexample.f90
index 64d5308..81fe6f6 100644
--- a/fortran/examples/grpdsetexample.f90
+++ b/fortran/examples/grpdsetexample.f90
@@ -43,7 +43,7 @@
      
      INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/3,3/) ! Datasets dimensions
      INTEGER(HSIZE_T), DIMENSION(2) :: dims2 = (/2,10/)!
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
      INTEGER     ::   rank = 2 ! Datasets rank
 
diff --git a/fortran/examples/grpit.f90 b/fortran/examples/grpit.f90
index 6364e31..a17b577 100644
--- a/fortran/examples/grpit.f90
+++ b/fortran/examples/grpit.f90
@@ -51,7 +51,7 @@
      INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/3,3/) ! Dataset dimensions
      INTEGER(HSIZE_T), DIMENSION(2) :: dims2 = (/2,10/)!
      INTEGER     ::   rank = 2 ! Datasets rank 
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
      !
      ! Initialize dset1_data array.
diff --git a/fortran/examples/hyperslab.f90 b/fortran/examples/hyperslab.f90
index c1b9eef..f949f11 100644
--- a/fortran/examples/hyperslab.f90
+++ b/fortran/examples/hyperslab.f90
@@ -52,7 +52,7 @@
      INTEGER :: i, j, k 
 
      INTEGER :: error, error_n  ! Error flags
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
 
    !
diff --git a/fortran/examples/mountexample.f90 b/fortran/examples/mountexample.f90
index 29d2834..2c5ad11 100644
--- a/fortran/examples/mountexample.f90
+++ b/fortran/examples/mountexample.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
 
      !
      ! Initialize FORTRAN interface. 
diff --git a/fortran/examples/refobjexample.f90 b/fortran/examples/refobjexample.f90
index 6b6de55..127d5c0 100644
--- a/fortran/examples/refobjexample.f90
+++ b/fortran/examples/refobjexample.f90
@@ -50,7 +50,7 @@
      TYPE(hobj_ref_t_f), DIMENSION(4) ::  ref_out
      INTEGER, DIMENSION(5) :: data = (/1, 2, 3, 4, 5/)
      INTEGER :: class
-     INTEGER, DIMENSION(7) :: data_dims, ref_size
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims, ref_size
      !
      !  Initialize FORTRAN interface. 
      !
diff --git a/fortran/examples/refregexample.f90 b/fortran/examples/refregexample.f90
index 90b4551..5367da8 100644
--- a/fortran/examples/refregexample.f90
+++ b/fortran/examples/refregexample.f90
@@ -50,8 +50,8 @@
      INTEGER(HSSIZE_T) , DIMENSION(2,3) :: coord
      INTEGER(SIZE_T) ::num_points = 3  ! Number of selected points
      INTEGER :: i, j
-     INTEGER, DIMENSION(7) :: ref_size
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(1) :: ref_size
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      coord = reshape((/1,1,2,7,1,9/), (/2,3/))   ! Coordinates of selected points
      data = reshape ((/1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6/), (/2,9/))
      !
diff --git a/fortran/examples/rwdsetexample.f90 b/fortran/examples/rwdsetexample.f90
index 8ef00bd..e2c4d4b 100644
--- a/fortran/examples/rwdsetexample.f90
+++ b/fortran/examples/rwdsetexample.f90
@@ -36,7 +36,7 @@
      INTEGER     ::  i, j
 
      INTEGER, DIMENSION(4,6) :: dset_data, data_out ! Data buffers
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
      
      !
      ! Initialize the dset_data array.
diff --git a/fortran/examples/selectele.f90 b/fortran/examples/selectele.f90
index a076692..f476ec5 100644
--- a/fortran/examples/selectele.f90
+++ b/fortran/examples/selectele.f90
@@ -64,7 +64,7 @@
 
      INTEGER :: error  ! Error flag
      LOGICAL :: status
-     INTEGER, DIMENSION(7) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
 
 
    !