crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Use C_SIZE_T consistently

Browse source
This commit is contained in:
Paul Romano 2018-04-19 12:35:14 -05:00
parent cfea8aa324
commit 012c8c9232
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/hdf5_interface.F90
View file

@ -101,16 +101,16 @@ module hdf5_interface
interface
function attribute_typesize(obj_id, name) result(sz) bind(C)
import HID_T, C_CHAR, SIZE_T
import HID_T, C_CHAR, C_SIZE_T
integer(HID_T), value :: obj_id
character(kind=C_CHAR), intent(in) :: name(*)
integer(SIZE_T) :: sz
integer(C_SIZE_T) :: sz
end function attribute_typesize
function dataset_typesize(dset) result(sz) bind(C)
import HID_T, SIZE_T
import HID_T, C_SIZE_T
integer(HID_T), value :: dset
integer(SIZE_T) :: sz
integer(C_SIZE_T) :: sz
end function dataset_typesize
subroutine file_close(file_id) bind(C)
@ -1058,7 +1058,7 @@ contains
logical, optional, intent(in) :: indep ! independent I/O
integer(HID_T) :: dset_id
integer(SIZE_T) :: i, n
integer(C_SIZE_T) :: i, n
logical(C_BOOL) :: indep_
character(kind=C_CHAR), allocatable, target :: buffer_(:)
@ -1128,7 +1128,7 @@ contains
logical, optional, intent(in) :: indep ! independent I/O
integer(HID_T) :: dset_id
integer(SIZE_T) :: i, j, k, n, m
integer(C_SIZE_T) :: i, j, k, n, m
logical(C_BOOL) :: indep_
character(kind=C_CHAR), allocatable, target :: buffer_(:)