dc_hash Module Reference

Hash (associative array) module. More...

Data Types
type	hash
interface	dchashput
interface	dchashnumber
interface	dchashputline
interface	dchashrewind
interface	dchashnext
interface	dchashget
interface	dchashdelete
interface	put
interface	number
interface	putline
interface	rewind
interface	next
interface	get
interface	delete

Detailed Description

Hash (associative array) module.

Author

Youhei SASAKI, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2005-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

This module provides hash (associative array) which is familiar in script languages.

Currently, only character type can be given as "value".

Procedures List

Procedure	Description
DCHashPut	Add key and value to hash
DCHashGet	Get associated value from hash with key
DCHashRewind	Initialize for searching entire hash
DCHashNext	See Rewind
DCHashDelete	Delete associated value from hash with key
DCHashNumber	Return size of hash
DCHashPutLine	Print hash contents to stdout (for debug)

Usage

use dc_types
use dc_hash
type(HASH):: hashv
character(len = STRING):: key, value
logical:: end
 
call dchashput( hashv = hashv, key = 'key1', value = 'val1')
call dchashput( hashv = hashv, key = 'key2', value = 'val2')
call dchashput( hashv = hashv, key = 'key3', value = 'val3')
 
call dchashget( hashv = hashv, key = 'key1', value = value )
write(*,*) 'key=' // 'key1' // ', value=' // trim(value)
 
write(*,*) 'number(hashv)=', dchashnumber( hashv )
 
call dchashdelete( hashv = hashv, key = 'key1')
 
call dchashrewind( hashv )
do
  call dchashnext( hashv = hashv, key = key, value = value, end = end)
  if (end) exit
  write(*,*) 'key=' // trim(key) // ', value=' // trim(value)
enddo
 
call dchashdelete( hashv )

Output:

key=key1, value=val1
number(hashv)= 3
key=key2, value=val2
key=key3, value=val3