dc_hash::dchashnext Interface Reference

Private Member Functions
subroutine	dchashnext0 (hashv, key, value, end)

Detailed Description

Definition at line 135 of file dc_hash.f90.

Member Function/Subroutine Documentation

dchashnext0()

subroutine dc_hash::dchashnext::dchashnext0 ( type(hash), intent(inout)  hashv, character(*), intent(out)  key, character(*), intent(out), optional  value, logical, intent(out)  end  )

private

Definition at line 267 of file dc_hash.f90.

    !

    ! *hashv* の内容を *key* と *value* に返します.
    ! 詳しくは DCHashRewind を参照してください.
    !
    implicit none
    type(hash), intent(inout) :: hashv
    character(*), intent(out) :: key
    character(*), intent(out), optional :: value
    logical, intent(out) :: end
    integer :: table_size
    character(STRING) :: value_tmp
  continue
    table_size = dchashnumber(hashv)
    if (table_size < hashv % search_index) then
      key = ''
      value_tmp = ''
      end = .true.
    else
      key = hashv % hash_table(hashv % search_index) % key
      value_tmp = hashv % hash_table(hashv % search_index) % value
      end = .false.
      hashv % search_index = hashv % search_index + 1
    end if
    if (present(value)) then
      value = value_tmp
    end if

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_hash.f90