mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-03-31 17:10:47 +08:00
[svn-r26876] changed argument to SIZEOF.
This commit is contained in:
parent
1ba402214d
commit
f981d2e11e
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user