40 lines
677 B
Fortran
40 lines
677 B
Fortran
|
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
|
||
|
|
real(pReal), dimension(3) :: d_in,d_out
|
||
|
|
|
||
|
|
|
||
|
|
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
|