anchor.diff:      do i = 1, univ % n_cells
          i_cell = univ % cells(i)
          c => cells(i_cell)
  -       c%parent = parent
  +       c % parent = parent
   
          ! if this cell is filled with another universe, recursively
          ! call this subroutine
  
positive.code: 
      ! Create special dictionary used in input_xml
      call dict_create(cells_in_univ_dict)
      
    end subroutine create_dictionaries
  
  
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
  