dc_hash::dchashput Interface Reference

Private Member Functions
subroutine	dchashput0 (hashv, key, value)

Detailed Description

Definition at line 119 of file dc_hash.f90.

Member Function/Subroutine Documentation

dchashput0()

subroutine dc_hash::dchashput::dchashput0 ( type(hash), intent(inout)  hashv, character(*), intent(in)  key, character(*), intent(in)  value  )

private

Definition at line 181 of file dc_hash.f90.

    !
    ! *hashv* のキー *key* に値 *value* を関連付けます.
    !
    implicit none
    type(hash), intent(inout) :: hashv
    character(*), intent(in) :: key, value
    type(hash_internal), pointer :: hash_table_tmp(:) => null()
    integer :: table_size, new_index, i
    logical :: found
    character(STRING) :: search_value
  continue
    call dchashget(hashv, key, search_value, found)
    if (.not. found) then
      table_size = dchashnumber(hashv)
      if (table_size > 0) then
        allocate(hash_table_tmp(table_size))
        hash_table_tmp = hashv % hash_table
        deallocate(hashv % hash_table)
        allocate(hashv % hash_table(table_size + 1))
        hashv % hash_table(1:table_size) = hash_table_tmp(1:table_size)
        deallocate(hash_table_tmp)
        new_index = table_size + 1
      else
        allocate(hashv % hash_table(1))
        new_index = 1
      end if

      hashv % hash_table(new_index) % key = key
      hashv % hash_table(new_index) % value = value
    else
      do i = 1, size(hashv % hash_table)
        if (trim(hashv % hash_table(i) % key) == trim(key)) then
          hashv % hash_table(i) % value = value
        end if
      end do
    end if

---

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

• dc_utils/dc_hash.f90