From 72483935fcf09c4d45d56c21b193e1942197461f Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Thu, 5 Jan 2012 14:45:08 -0800 Subject: [PATCH] updated example dataset to a rank of 4 for HDF5 output --- src/cmfd_utils.F90 | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/src/cmfd_utils.F90 b/src/cmfd_utils.F90 index 7ec2c1a264..6cdc46895f 100644 --- a/src/cmfd_utils.F90 +++ b/src/cmfd_utils.F90 @@ -525,15 +525,19 @@ contains integer(HID_T) :: dataspace_id ! Data space identifier integer(HID_T) :: dataset_id ! Dataset identifier integer :: error ! Error flag - integer :: i,j - integer, dimension(3,3) :: dset_data - integer(HSIZE_T), dimension(2) :: dims = (/3,3/) - integer :: rank = 2 + integer :: i,j,k,l + integer, dimension(3,3,3,3) :: dset_data + integer(HSIZE_T), dimension(4) :: dims = (/3,3,3,3/) + integer :: rank = 4 ! Create example dataset do i = 1,3 do j = 1,3 - dset_data(i,j) = j + do k = 1,3 + do l = 1,3 + dset_data(i,j,k,l) = i*j*k*l + end do + end do end do end do