Close the currently opened hdf5 file - requires a previous call to open()
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(lMat_hdf5_read_t) | :: | this |
subroutine close(this)
class(lMat_hdf5_read_t) :: this
integer :: err
call h5dclose_f(this%ds_vals, err)
call h5dclose_f(this%ds_inds, err)
! close the file, finalize hdf5
call h5gclose_f(this%grp_id, err)
call h5pclose_f(this%plist_id, err)
call h5fclose_f(this%file_id, err)
call h5close_f(err)
end subroutine close