326
327
328
329
330
331
332
333
335 implicit none
336 type(HASH), intent(inout) :: hashv
337 character(*), intent(in) :: key
338 character(*), intent(out) :: value
339 logical, intent(out), optional :: found
340 character(STRING) :: search_key, search_value
341 logical :: end
342 continue
343 call dchashrewind(hashv)
344 do
345 call dchashnext(hashv, search_key, search_value, end)
346 if (end) then
347 value = ''
348 if (present(found)) found = .false.
349 exit
350 end if
351
352 if (trim(search_key) == trim(key)) then
353 value = search_value
354 if (present(found)) found = .true.
355 exit
356 end if
357 enddo
358
Provides kind type parameter values.
integer, parameter, public string
Character length for string