Line data    Source code

       1             : !> \file example_from_readme.f90
       2             : !! \brief Very short example to demonstrate the syntax of the dictionary_t object
       3             : 
       4             : !> Define a dictionary_t object, use the set and get methods.
       5           1 : program example_from_readme
       6           1 :   use dictionary_m
       7             :   implicit none
       8             : 
       9           1 :   type(dictionary_t) :: d
      10             : 
      11           1 :   call d%init(1024)
      12             : 
      13           1 :   call d%set('one', 'one')
      14           1 :   call d%set('pi', '3.14159')
      15             : 
      16           1 :   write(*,*) 'one', ' = ', d%get('one')
      17           1 :   write(*,*) 'pi', ' = ', d%get('pi')
      18             : 
      19           1 : end program example_from_readme