dc_hash::delete Interface Reference

Public Member Functions
subroutine	dchashdelete0 (hashv, key)

Detailed Description

Definition at line 249 of file dc_hash.f90.

Member Function/Subroutine Documentation

dchashdelete0()

subroutine dc_hash::delete::dchashdelete0	(	type(hash), intent(inout)	hashv,
		character(*), intent(in), optional	key
	)

Delete associated value from hash with key

Deletes key and its associated value from hashv. If key is not found in hashv, nothing is done.

If key is omitted, all keys and values in hashv are deleted.

Parameters

[in,out]	hashv	Hash variable
[in]	key	Key string to delete (optional)

Definition at line 582 of file dc_hash.f90.

    implicit none
    type(HASH), intent(inout) :: hashv
    character(*), intent(in), optional :: key
    type(HASH_INTERNAL), pointer :: hash_table_tmp(:) => null()
    integer :: table_size, i, j
    logical :: found
    character(STRING) :: search_value
  continue
    if (present(key)) then
      call dchashget(hashv, key, search_value, found)
      table_size = dchashnumber(hashv)
      if (found .and. table_size > 1) then
        allocate(hash_table_tmp(table_size))
        hash_table_tmp = hashv % hash_table
        deallocate(hashv % hash_table)
        allocate(hashv % hash_table(table_size - 1))
        j = 1
        do i = 1, table_size
          if (trim(hash_table_tmp(i) % key) /= trim(key)) then
            hashv % hash_table(j) % key = hash_table_tmp(i) % key
            hashv % hash_table(j) % value = hash_table_tmp(i) % value
            j = j + 1
          end if
        end do
        
        deallocate(hash_table_tmp)
      elseif (found .and. table_size == 1) then
        deallocate(hashv % hash_table)
      end if
    else
      if (associated(hashv % hash_table)) deallocate(hashv % hash_table)
    end if
 

---

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

• dc_utils/dc_hash.f90