anchor.diff:                  end if
               end do
   
  -        end subroutine lookup_hash_table_element
  +        end subroutine lookup_hash_table_entry
   
   !--- Hash table manipulation utilities ---
   
  
positive.code:             call check_allocate('ht%data_label', size(ht%data_label), ierr)
              allocate(ht%payload(ht%payload_len,ht%nentries*ht%nslots), stat=ierr)
              call check_allocate('ht%payload', size(ht%payload), ierr)
              allocate(ht%free_elements(ht%max_free_reqd), stat=ierr)
              call check_allocate('ht%free_elements', size(ht%free_elements), ierr)
  
              call reset_hash_table(ht)
  
  
negative.code:             ht%payload_len = 0
              ht%head = 0
              ht%max_free_reqd = 0
              ht%next_free_entry = 0
  
          end subroutine free_hash_table
  
  