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

[svn-r26876] changed argument to SIZEOF.

Browse Source
This commit is contained in:
Scot Breitenfeld 2015-04-21 15:59:45 -05:00
parent 1ba402214d
commit f981d2e11e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5Pff.F90
View File

@ -7433,8 +7433,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
BIND(C,NAME='h5pset_fapl_mpio_c')
IMPORT :: HID_T
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER , INTENT(IN) :: comm
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER , INTENT(IN) :: comm
INTEGER , INTENT(IN) :: info
END FUNCTION h5pset_fapl_mpio_c
END INTERFACE

4
fortran/test/tf.F90
View File

@ -461,9 +461,9 @@ CONTAINS
CHARACTER(LEN=*), INTENT(in) :: a
#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
H5_SIZEOF_CHR = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t)
H5_SIZEOF_CHR = storage_size(a(1:1), c_size_t)/storage_size(c_char_'a',c_size_t)
#else
H5_SIZEOF_CHR = SIZEOF(a)
H5_SIZEOF_CHR = SIZEOF(a(1:1))
#endif
END FUNCTION H5_SIZEOF_CHR