diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-30 13:43:23 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-30 13:43:23 (GMT) |
| commit | 29f4e850948469008c2a7c1734a1918b35a2a079 (patch) | |
| tree | 0975085bbbca9f12c5815c8f480527a4feda4616 | |
| parent | 0e742cb8d0218046f71ea79bb7be990ee066a52a (diff) | |
| download | hdf5-29f4e850948469008c2a7c1734a1918b35a2a079.zip hdf5-29f4e850948469008c2a7c1734a1918b35a2a079.tar.gz hdf5-29f4e850948469008c2a7c1734a1918b35a2a079.tar.bz2 | |
[svn-r26975] Renamed variable to eliminate conflict.
| -rw-r--r-- | hl/fortran/src/H5LTff.F90 | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/hl/fortran/src/H5LTff.F90 b/hl/fortran/src/H5LTff.F90 index 8f7ad6e..10169c5 100644 --- a/hl/fortran/src/H5LTff.F90 +++ b/hl/fortran/src/H5LTff.F90 @@ -280,7 +280,7 @@ MODULE h5lt END INTERFACE INTERFACE - INTEGER FUNCTION h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,buf,dtype, SizeOf) & + INTEGER FUNCTION h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,buf,dtype, SizeOf_buf) & BIND(C,NAME='h5ltget_attribute_c') IMPORT :: C_CHAR, C_PTR IMPORT :: HID_T, SIZE_T, HSIZE_T @@ -294,7 +294,7 @@ MODULE h5lt CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dtype ! flag indicating the datatype of the ! the buffer: ! R=Real, D=DOUBLE, I=Interger - INTEGER(size_t) :: SizeOf ! Sizeof the buf datatype + INTEGER(size_t) :: SizeOf_buf ! Sizeof the buf datatype END FUNCTION h5ltget_attribute_c END INTERFACE @@ -3564,18 +3564,18 @@ CONTAINS INTEGER(size_t) :: namelen ! name length INTEGER(size_t) :: attrlen ! name length TYPE(C_PTR) :: f_ptr - INTEGER(size_t) :: SizeOf + INTEGER(size_t) :: SizeOf_buf f_ptr = C_LOC(buf(1)) #ifdef H5_FORTRAN_HAVE_STORAGE_SIZE - SizeOf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t) + SizeOf_buf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t) #else - SizeOf = SIZEOF(buf(1)) + SizeOf_buf = SIZEOF(buf(1)) #endif namelen = LEN(dset_name) attrlen = LEN(attr_name) - errcode = h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,f_ptr,'I'//C_NULL_CHAR, SizeOf) + errcode = h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,f_ptr,'I'//C_NULL_CHAR, SizeOf_buf) END SUBROUTINE h5ltget_attribute_int_f @@ -3611,17 +3611,17 @@ CONTAINS INTEGER(size_t) :: namelen ! name length INTEGER(size_t) :: attrlen ! name length TYPE(C_PTR) :: f_ptr - INTEGER(size_t) :: SizeOf + INTEGER(size_t) :: SizeOf_buf f_ptr = C_LOC(buf(1)) #ifdef H5_FORTRAN_HAVE_STORAGE_SIZE - SizeOf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t) + SizeOf_buf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t) #else - SizeOf = SIZEOF(buf(1)) + SizeOf_buf = SIZEOF(buf(1)) #endif namelen = LEN(dset_name) attrlen = LEN(attr_name) - errcode = h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,f_ptr,'R'//C_NULL_CHAR, SizeOf) + errcode = h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,f_ptr,'R'//C_NULL_CHAR, SizeOf_buf) END SUBROUTINE h5ltget_attribute_float_f @@ -3657,19 +3657,19 @@ CONTAINS INTEGER(size_t) :: namelen ! name length INTEGER(size_t) :: attrlen ! name length TYPE(C_PTR) :: f_ptr - INTEGER(size_t) :: SizeOf + INTEGER(size_t) :: SizeOf_buf f_ptr = C_LOC(buf(1)) #ifdef H5_FORTRAN_HAVE_STORAGE_SIZE - SizeOf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t) + SizeOf_buf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t) #else - SizeOf = SIZEOF(buf(1)) + SizeOf_buf = SIZEOF(buf(1)) #endif namelen = LEN(dset_name) attrlen = LEN(attr_name) - errcode = h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,f_ptr,'R'//C_NULL_CHAR, SizeOf) + errcode = h5ltget_attribute_c(loc_id,namelen,dset_name,attrlen,attr_name,f_ptr,'R'//C_NULL_CHAR, SizeOf_buf) END SUBROUTINE h5ltget_attribute_double_f |