hdf5_close Subroutine

private subroutine hdf5_close(me)

Type Bound

hdf5_t

Arguments

Type IntentOptional Attributes Name
class(hdf5_t), intent(inout) :: me

Calls

proc~~hdf5_close~~CallsGraph proc~hdf5_close hdf5_t%hdf5_close h5close_f h5close_f proc~hdf5_close->h5close_f h5dclose_f h5dclose_f proc~hdf5_close->h5dclose_f h5fclose_f h5fclose_f proc~hdf5_close->h5fclose_f

Source Code

subroutine hdf5_close(me)
    class(hdf5_t), intent(inout) :: me
    integer :: i, error
    if (.not.me%write_results) return
    do i = 1, size(me%tables)
        if (me%tables(i)%dims(2)/=0) call h5dclose_f(me%tables(i)%dset,error)
    enddo
    call h5dclose_f(me%time%dset,   error)
    call h5dclose_f(me%global%dset, error)
    call h5fclose_f(me%file_id,     error)
    call h5close_f(error)
end subroutine hdf5_close