2023-02-25 13:09:22 +05:30
|
|
|
module test_HDF5_utilities
|
|
|
|
|
use prec
|
|
|
|
|
use HDF5
|
|
|
|
|
use HDF5_utilities
|
|
|
|
|
|
|
|
|
|
implicit none(type,external)
|
|
|
|
|
|
|
|
|
|
private
|
|
|
|
|
public :: HDF5_utilities_test
|
|
|
|
|
|
|
|
|
|
contains
|
|
|
|
|
|
|
|
|
|
subroutine HDF5_utilities_test()
|
|
|
|
|
|
|
|
|
|
print*, 'begin test HDF5_utilities'
|
|
|
|
|
call test_read_write()
|
|
|
|
|
print*, 'end test HDF5_utilities'
|
|
|
|
|
|
|
|
|
|
end subroutine HDF5_utilities_test
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
subroutine test_read_write()
|
|
|
|
|
|
|
|
|
|
integer(HID_T) :: f
|
2023-06-04 10:52:25 +05:30
|
|
|
real(pREAL), dimension(3) :: d_in,d_out
|
2023-02-25 13:09:22 +05:30
|
|
|
|
|
|
|
|
|
|
|
|
|
call random_number(d_in)
|
|
|
|
|
|
|
|
|
|
f = HDF5_openFile('test.hdf5','w')
|
|
|
|
|
|
|
|
|
|
call HDF5_write(d_in,f,'test')
|
|
|
|
|
call HDF5_read(d_out,f,'test')
|
|
|
|
|
|
|
|
|
|
if (any(d_in /= d_out)) error stop 'test_read_write'
|
|
|
|
|
|
|
|
|
|
end subroutine test_read_write
|
|
|
|
|
|
|
|
|
|
end module test_HDF5_utilities
|
