mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r23092] Cleaned-up printed output and corrected output comments

Browse Source 
Tested: jam (gnu)
This commit is contained in:
Scot Breitenfeld 2012-12-11 23:30:22 -05:00
parent 7155aa6f1d
commit e92f4b1a7c
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/examples/h5_extend.f90
View File

@ -212,9 +212,9 @@ PROGRAM H5_EXTEND
CALL H5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, data_dims, & CALL H5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, data_dims, &
error, memspace, dataspace) error, memspace, dataspace)
PRINT *,"Dataset:" WRITE(*,'(A)') "Dataset:"
DO i = 1, dimsr(1) DO i = 1, dimsr(1)
PRINT *, rdata(i,1:dimsr(2)) WRITE(*,'(100(I0,1X))') rdata(i,1:dimsr(2))
END DO END DO
! !

13
fortran/examples/h5_subset.f90
View File

@ -107,11 +107,10 @@ PROGRAM H5_SUBSET
! !
! Data Written to File ! Data Written to File
! !
PRINT*, "Original Data Written to File:" WRITE(*,'(/,A)') "Original Data Written to File:"
DO i = 1, dim0 DO i = 1, dim0
PRINT*, DATA(i,1:dim1) WRITE(*,'(100(1X,I0,1X))') DATA(i,1:dim1)
END DO END DO
PRINT*, " "
! !
! !
@ -147,8 +146,8 @@ PROGRAM H5_SUBSET
! !
CALL h5screate_simple_f(rank, dimsm, memspace, error) CALL h5screate_simple_f(rank, dimsm, memspace, error)
PRINT *,"Write subset to file specifying:" WRITE(*,'(/,A)') "Write subset to file specifying:"
PRINT *, " offset=1x2 stride=1x1 count=3x4 block=1x1" WRITE(*,'(A,/)') " offset=2x1 stride=1x1 count=4x3 block=1x1"
! !
! Write subset to dataset ! Write subset to dataset
@ -163,9 +162,9 @@ PROGRAM H5_SUBSET
! !
! Read entire dataset back ! Read entire dataset back
! !
PRINT *,"Data in File after Subset Written:" WRITE(*,'(A)') "Data in File after Subset Written:"
DO i = 1, dim0 DO i = 1, dim0
PRINT *,rdata(i,1:dim1) WRITE(*,'(100(1X,I0,1X))') rdata(i,1:dim1)
END DO END DO
PRINT *, " " PRINT *, " "