anchor.diff:  
   !===============================================================================
   ! CREATE_TALLY_MAP creates a map that allows a quick determination of which
  -! tallies and bins need to be scored to when a particle makes a collision.
  +! tallies and bins need to be scored to when a particle makes a collision. This
  +! subroutine also sets the stride attribute for each tally as well as allocating
  +! storage for the scores array.
   !===============================================================================
   
     subroutine create_tally_map()
   
  -    integer :: i
  -    integer :: j
  -    integer :: index
  -    integer :: n
  -    integer :: filter_bins
  -    integer :: score_bins
  -    character(MAX_LINE_LEN) :: msg        ! output/error message
  +    integer :: i                   ! loop index for tallies
  +    integer :: j                   ! loop index for filter arrays
  +    integer :: index               ! filter bin entries
  +    integer :: n                   ! number of bins
  +    integer :: filter_bins         ! running total of number of filter bins
  +    integer :: score_bins          ! number of scoring bins
  +    character(MAX_LINE_LEN) :: msg ! output/error message
       type(TallyObject), pointer :: t => null()
   
       ! allocate tally map array -- note that we don't need a tally map for the
  
positive.code:        end if
  
         ! =======================================================================
         ! DETERMINE INDEX IN SCORES ARRAY
  
         ! If we have made it here, we have a scoring combination of bins for this
         ! tally -- now we need to determine where in the scores array we should
         ! be accumulating the tally values
  
         score_index = sum((bins - 1) * t % stride) + 1
  
         ! =======================================================================
         ! CALCULATE SCORES AND ACCUMULATE TALLY
  
         do j = 1, t % n_macro_bins
            ! Determine score
  
negative.code:     integer, intent(in) :: index_tally ! index in tallies array
      integer, intent(in) :: index_bin   ! index in bins array
  
      integer :: n                       ! size of elements array
      type(TallyMapElement), allocatable :: temp(:)
  
      if (.not. allocated(item % elements)) then
  