dc_hash::dchashnext Interface Reference

Public 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 )

Definition at line 266 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