anchor.diff:                     j = j - 1
                      if (has_filter(j)) indent = indent - 2
                   end if
  +
  +             ! =================================================================
  +             ! VALID BIN -- WRITE FILTER INFORMATION OR EXIT TO WRITE SCORES
  +
                else
                   if (j == last_filter) then
                      exit find_bin
  
positive.code: 
  !===============================================================================
  ! 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.
  !===============================================================================
  
    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
      type(TallyObject), pointer :: t => null()
  
      ! allocate tally map array -- note that we don't need a tally map for the
  
negative.code:   end subroutine synchronize_tallies
  
  !===============================================================================
  ! WRITE_TALLIES creates an output file and writes out the mean values of all
  ! tallies and their standard deviations
  !===============================================================================
  
    subroutine write_tallies()
  
      integer :: i                       ! index in tallies array
      integer :: j                       ! level in tally hierarchy
      integer :: k                       ! loop index for scoring bins
      integer :: bins(TALLY_TYPES) = 0   ! bins corresponding to each filter
      integer :: indent                  ! number of spaces to preceed output
      integer :: io_error                ! error in opening/writing file
      integer :: last_filter             ! lowest level filter type
      integer :: score_index             ! index in scores array for filters
      logical :: file_exists             ! does tallies.out file already exists? 
      logical :: has_filter(TALLY_TYPES) ! does tally have this filter?
      character(MAX_LINE_LEN) :: filename                 ! name of output file
      character(15)           :: filter_name(TALLY_TYPES) ! names of tally filters
      character(20)           :: macro_name(6)            ! names of macro scores
      character(80)           :: space = " "              ! spaces
      type(TallyObject), pointer :: t
  
      ! Initialize names for tally filter types
  