print_dict Subroutine

      subroutine print_dict()
      integer :: i
         ! the dictionary is just three arrays
         write(*,'("DICTIONARY:")')
         write(*,'(*(a,"==>","[",a,"]",/))') &
         & (trim(table%key(i)),               &
         & table%value(i)(:table%count(i)),    &
         & i=1,size(table%key))
         !
      end subroutine print_dict