From f448609e49e430abc5092e2f1773830dc45ea89d Mon Sep 17 00:00:00 2001
From: Albert Cheng <acheng@hdfgroup.org>
Date: Thu, 20 May 2004 16:38:28 -0500
Subject: [svn-r8556] Purpose: Bug fix.

Description:
The Example dimension size is incorrect.  Changed it to 3.

Platforms tested:
Tested in TG-NCSA which detected the error.

Misc. update:
---
 fortran/examples/hyperslab.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/examples/hyperslab.f90 b/fortran/examples/hyperslab.f90
index f949f11..c6eef2e 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(HSIZE_T), DIMENSION(2) :: data_dims
+     INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
 
 
    !
-- 
cgit v0.12