diff options
Diffstat (limited to 'fortran/test/tH5Sselect.f90')
| -rw-r--r-- | fortran/test/tH5Sselect.f90 | 35 |
1 files changed, 29 insertions, 6 deletions
diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90 index a004ba7..2f77db9 100644 --- a/fortran/test/tH5Sselect.f90 +++ b/fortran/test/tH5Sselect.f90 @@ -52,6 +52,10 @@ ! INTEGER(HSIZE_T), DIMENSION(3) :: dimsm = (/7,7,3/) + ! + !to get Dataset dimensions + ! + INTEGER(HSIZE_T), DIMENSION(2) :: dims_out ! !Dataset dimensions @@ -99,18 +103,21 @@ ! INTEGER :: memrank = 3 - + ! + !integer to get the dataspace rank from dataset + ! + INTEGER :: rank ! !general purpose integer ! - INTEGER :: i, j + INTEGER :: i, j, k ! !flag to check operation success ! - INTEGER :: error + INTEGER :: error, error_n INTEGER(HSIZE_T), DIMENSION(3) :: data_dims @@ -390,7 +397,8 @@ ! !flag to check operation success ! - INTEGER :: error + INTEGER :: error + LOGICAL :: status INTEGER(HSIZE_T), DIMENSION(3) :: data_dims @@ -712,7 +720,8 @@ INTEGER(HID_T) :: file_id ! File identifier INTEGER(HID_T) :: dset_id ! Dataset identifier - INTEGER(HID_T) :: dataspace ! Dataspace identifier + INTEGER(HID_T) :: dataspace ! Dataspace identifier + INTEGER(HID_T) :: memspace ! memspace identifier ! !Dataset dimensions @@ -754,6 +763,10 @@ ! INTEGER(HSIZE_T), DIMENSION(RANK, NUMPS) :: coord + ! + !Size of the hyperslab in memory + ! + INTEGER(HSIZE_T), DIMENSION(3) :: count_out = (/3,4,1/) ! !Number of hyperslabs selected in the current dataspace @@ -789,9 +802,19 @@ INTEGER, DIMENSION(5,6) :: data ! + !output buffer + ! + INTEGER, DIMENSION(7,7,3) :: data_out + + ! + !general purpose integer + ! + INTEGER :: i, j, k + + ! !flag to check operation success ! - INTEGER :: error + INTEGER :: error, error_n INTEGER(HSIZE_T), DIMENSION(3) :: data_dims ! |