H5hut/src
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

examples/H5Part/write_{setviewf,stridedf}.f90:

Browse Source 
- bugfixes: take Fortran indexing into account
This commit is contained in:
gsell
2015-09-03 17:24:37 +02:00
parent 7bf3985219
commit d5fce5b2a0
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/H5Part/write_setviewf.f90
+2 -2
View File
@@ -37,12 +37,12 @@ program write_setview
! create fake data
allocate (data (npoints))
do i = 1, npoints
data (i) = i + rank*npoints
data (i) = (i-1) + rank*npoints
enddo
! open the a file for parallel writing and ceate step #0
file = h5_openfile (FNAME, H5_O_WRONLY, H5_PROP_DEFAULT)
status = h5_setstep(file, 0_8)
status = h5_setstep(file, 1_8)
! set the size of the 1D array
status = h5pt_setnpoints (file, int8(npoints))
examples/H5Part/write_stridedf.f90
+1 -1
View File
@@ -43,7 +43,7 @@ program write_stridedf
! open the a file for parallel writing and ceate step #0
file = h5_openfile (FNAME, H5_O_WRONLY, H5_PROP_DEFAULT)
status = h5_setstep(file, 0_8)
status = h5_setstep(file, 1_8)
! define number of items this processor will write and set the
! in-memory striding