anchor.diff:         current => current % next
       end do
   
  -    ! delete linked list
  +    ! delete linked list and dictionary
       call list_delete(list)
  +    call dict_delete(already_added)
   
     end subroutine unionized_grid
   
  
positive.code: 
    subroutine unionized_grid()
  
      integer :: i ! index over materials
      integer :: j ! index over nuclides
      type(ListReal), pointer :: list => null()
      type(ListReal), pointer :: current => null()
      type(Material), pointer :: mat => null()
      type(Nuclide),  pointer :: nuc => null()
  
      message = "Creating unionized energy grid..."
      call write_message(5)
  
      ! loop over all materials
      do i = 1, n_materials
         mat => materials(i)
         
         ! loop over all nuclides
         do j = 1, mat % n_nuclides
            nuc => nuclides(mat % nuclide(j))
  
            ! loop over energy points
            call add_grid_points(list, nuc % energy)
         end do
      end do
  
  
negative.code: module energy_grid
  
    use constants,        only: MAX_LINE_LEN
    use datatypes,        only: list_insert, list_size, list_delete, &
                                dict_create, dict_get_key, dict_has_key, &
                                dict_add_key, dict_delete
    use datatypes_header, only: ListReal, DictionaryCI
    use global
    use output,           only: write_message
  
  