crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

updated example dataset to a rank of 4 for HDF5 output

Browse source
This commit is contained in:
Bryan Herman 2012-01-05 14:45:08 -08:00
parent 67fc7ce085
commit 72483935fc
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/cmfd_utils.F90
View file

@ -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