anchor.diff:      type(Cell),     pointer :: c => null()
       type(Universe), pointer :: subuniverse => null()
       type(Lattice),  pointer :: lat => null()
  -    type(DictionaryII), pointer :: dict => null()
   
       ! set level of the universe
       univ % level = level
  
positive.code:   use tally,            only: create_tally_map, TallyObject
    use timing,           only: timer_start, timer_stop
  
  contains
  
  !===============================================================================
  
negative.code:        ! universe for each unique lattice element
         if (c % type == CELL_LATTICE) then
            lat => lattices(c % fill)
            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 (.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
  