anchor.diff:         ! universe for each unique lattice element
          if (c % type == CELL_LATTICE) then
             lat => lattices(c % fill)
  -          call dict_create(dict)
             do x = 1, lat % n_x
                do y = 1, lat % n_y
  +                lat => lattices(cells(i_cell) % fill)
                   universe_num = lat % element(x,y)
  -                if (dict_has_key(dict, universe_num)) then
  -                   cycle
  -                else
  -                   call dict_add_key(dict, universe_num, 0)
  -
  +                if (.not. dict_has_key(build_dict, universe_num)) then
  +                   call dict_add_key(build_dict, universe_num, 0)
                      subuniverse => universes(universe_num)
                      call build_universe(subuniverse, i_cell, level + 1)
                   end if
  
positive.code:   use tally,            only: create_tally_map, TallyObject
    use timing,           only: timer_start, timer_stop
  
  contains
  
  !===============================================================================
  
negative.code: 
      ! Create special dictionary used in input_xml
      call dict_create(cells_in_univ_dict)
  
      ! Create special dictionary for building universes
      call dict_create(build_dict)
      
    end subroutine create_dictionaries
  
  