diff options
Diffstat (limited to 'fortran/test/tH5Sselect.f90')
| -rw-r--r-- | fortran/test/tH5Sselect.f90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90 index 8f653d3..8b2e281 100644 --- a/fortran/test/tH5Sselect.f90 +++ b/fortran/test/tH5Sselect.f90 @@ -741,13 +741,12 @@ ! !start block for getting the selected hyperslab ! - INTEGER(HSIZE_T), DIMENSION(2) :: startblock = (/0,0/) + INTEGER(HSIZE_T) :: startblock = 0 ! !start point for getting the selected elements ! - INTEGER(HSIZE_T), DIMENSION(2) :: startpoint = (/0,0/) -! INTEGER(HSIZE_T), DIMENSION(2) :: startpoint = (/1,1/) + INTEGER(HSIZE_T) :: startpoint = 0 ! !Stride of the hyperslab in the file |