38 lines
600 B
Fortran
38 lines
600 B
Fortran
module test_HDF5_utilities
|
|
use prec
|
|
use HDF5
|
|
use HDF5_utilities
|
|
|
|
implicit none(type,external)
|
|
|
|
private
|
|
public :: test_HDF5_utilities_run
|
|
|
|
contains
|
|
|
|
subroutine test_HDF5_utilities_run()
|
|
|
|
call read_write()
|
|
|
|
end subroutine test_HDF5_utilities_run
|
|
|
|
|
|
subroutine 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 read_write
|
|
|
|
end module test_HDF5_utilities
|