mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r4075]

Browse Source 
Purpose:
    Sync with hdf5 1.4. branch
Description:
    Brought changes made in the hdf5 1.4. branch into 1.5
This commit is contained in:
Elena Pourmal 2001-06-28 10:12:08 -05:00
parent 12c718ace3
commit 1b717e9452
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/testpar/Makefile.in
View File

@ -42,6 +42,6 @@ $(TEST_PROGS): $(LIBHDF5) $(LIBH5TEST)
$(TEST_OBJ): $(TEST_HDR)
ptesthdf5_fortran: thdf5.lo thyperslab_wr.lo tcheck.lo ptesthdf5_fortran.lo
@$(LT_LINK_FEXE) $(FFLAGS) -o $@ ptesthdf5_fortran.lo thyperslab_wr.lo tcheck.lo $(LIBFORTRAN) $(LIBHDF5) $(LIBS)
@$(LT_LINK_FEXE) $(FFLAGS) -o $@ ptesthdf5_fortran.lo thdf5.lo thyperslab_wr.lo tcheck.lo $(LIBFORTRAN) $(LIBHDF5) $(LIBS)
@CONCLUDE@

7
fortran/testpar/thyperslab_wr.f90
View File

@ -23,6 +23,7 @@
INTEGER, ALLOCATABLE :: data_out (:,:) ! Buffer to store data
INTEGER :: rank = 2 ! Dataset rank
INTEGER :: i, j
INTEGER :: dims(7)
INTEGER :: total_error, error ! Error flags
!
@ -85,6 +86,8 @@
! Initialize data buffer with trivial data.
!
ALLOCATE ( data(count(1),count(2)))
dims(1) = count(1)
dims(2) = count(2)
data = mpi_rank + 10
!
! Create property list for collective dataset write
@ -97,7 +100,7 @@
!
! Write the dataset collectively.
!
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data, error, &
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data, dims, error, &
file_space_id = filespace, mem_space_id = memspace, xfer_prp = plxfer_id)
CALL check("h5dwrite_f", error, total_error)
!
@ -178,7 +181,7 @@
!
! Write the dataset collectively.
!
CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, data_out, error, &
CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, data_out, dims, error, &
file_space_id = filespace, mem_space_id = memspace, xfer_prp = plxfer_id)
CALL check("h5dread_f", error, total_error)
do j = 1, count(2)