diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-10 13:54:16 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-10 13:54:16 (GMT) |
| commit | 48741994ac625bf13d0aaa8906ac0e4bfe9e20f7 (patch) | |
| tree | 85ac0c959affd66cbabde93f6a054cb8ee25d8cd /fortran/examples/rwdset_fortran2003.f90 | |
| parent | 625fc9db698903a472d499d14739a3267aa60ad3 (diff) | |
| download | hdf5-48741994ac625bf13d0aaa8906ac0e4bfe9e20f7.zip hdf5-48741994ac625bf13d0aaa8906ac0e4bfe9e20f7.tar.gz hdf5-48741994ac625bf13d0aaa8906ac0e4bfe9e20f7.tar.bz2 | |
[svn-r27178] changed to using SELECTED_*_KIND with numerical precision specified
Diffstat (limited to 'fortran/examples/rwdset_fortran2003.f90')
| -rw-r--r-- | fortran/examples/rwdset_fortran2003.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fortran/examples/rwdset_fortran2003.f90 b/fortran/examples/rwdset_fortran2003.f90 index cd932bd..682676f 100644 --- a/fortran/examples/rwdset_fortran2003.f90 +++ b/fortran/examples/rwdset_fortran2003.f90 @@ -148,12 +148,12 @@ PROGRAM RWDSET_FORTRAN2003 CALL h5dread_f(dset_idr8, h5kind_to_type(real_kind_15,H5_REAL_KIND), f_ptr, error) ! memory type - WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(Fortran_INTEGER_1): ',data_out_i8a - WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(Fortran_INTEGER_4): ',data_out_i4 - WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(Fortran_INTEGER_8): ',data_out_i8 - WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(Fortran_INTEGER_16): ',data_out_i16 - WRITE(*,'(A,4(1x,f9.4))' )'SELECTED_REAL_KIND(Fortran_REAL_7): ',data_out_r7 - WRITE(*,'(A,4(1x,f16.10))' )'SELECTED_REAL_KIND(Fortran_REAL_15): ',data_out_r15 + WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(2): ',data_out_i8a + WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(4): ',data_out_i4 + WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(9): ',data_out_i8 + WRITE(*,'(A,4i8)' )'SELECTED_INT_KIND(18): ',data_out_i16 + WRITE(*,'(A,4(1x,f9.4))' )'SELECTED_REAL_KIND(6,37): ',data_out_r7 + WRITE(*,'(A,4(1x,f16.10))' )'SELECTED_REAL_KIND(15,307): ',data_out_r15 ! ! Close the dataset. ! |