dc_hash::get Interface Reference

Private Member Functions
subroutine	dchashget0 (hashv, key, value, found)

Detailed Description

Definition at line 170 of file dc_hash.f90.

Member Function/Subroutine Documentation

dchashget0()

subroutine dc_hash::get::dchashget0 ( type(hash), intent(inout)  hashv, character(*), intent(in)  key, character(*), intent(out)  value, logical, intent(out), optional  found  )

private

Definition at line 326 of file dc_hash.f90.

    !
    ! *hashv* のキー *key* に関連する値を *value* に返します.
    ! *key* に関連する値が存在しない場合は *value* に
    ! 空文字を返します.
    !
    ! *found* を与えると, *key* に関連する値が見つからなかった
    ! 場合に .false. を返します.
    !
    use dc_types, only: string
    implicit none
    type(hash), intent(inout) :: hashv
    character(*), intent(in)  :: key
    character(*), intent(out) :: value
    logical, intent(out), optional :: found
    character(STRING) :: search_key, search_value
    logical :: end
  continue
    call dchashrewind(hashv)
    do
      call dchashnext(hashv, search_key, search_value, end)
      if (end) then
        value = ''
        if (present(found)) found = .false.
        exit
      end if

      if (trim(search_key) == trim(key)) then
        value = search_value
        if (present(found)) found = .true.
        exit
      end if
    enddo

---

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

• dc_utils/dc_hash.f90