anchor.diff:         ! =======================================================================
          ! ADJUST UNIVERSE INDICES FOR EACH TALLY
   
  -       if (associated(t % universe_bins)) then
  -          do j = 1, size(t % universe_bins)
  +       if (t % n_bins(T_UNIVERSE) > 0) then
  +          do j = 1, t % n_bins(T_UNIVERSE)
                uid = t % universe_bins(j) % scalar
                if (dict_has_key(universe_dict, uid)) then
                   t % universe_bins(j) % scalar = dict_get_key(universe_dict, uid)
  
positive.code:        ! =======================================================================
         ! ADJUST CELL INDICES FOR EACH TALLY
  
         if (associated(t % cell_bins)) then
            do j = 1, size(t % cell_bins)
               uid = t % cell_bins(j) % scalar
               if (dict_has_key(cell_dict, uid)) then
                  t % cell_bins(j) % scalar = dict_get_key(cell_dict, uid)
  
negative.code:        ! =======================================================================
         ! ADJUST SURFACE INDICES FOR EACH TALLY
  
         if (t % n_bins(T_SURFACE) > 0) then
            do j = 1, t % n_bins(T_SURFACE)
               uid = t % surface_bins(j) % scalar
               if (dict_has_key(surface_dict, uid)) then
                  t % surface_bins(j) % scalar = dict_get_key(surface_dict, uid)
  