anchor.diff:        end if
       end if
     end do
  -
  -!GRD THIS LOOP MUST NOT BE WRITTEN INTO THE "IF(FIRSTRUN)" LOOP !!!!!
  -  if(dowrite_tracks) then
  -    call coll_writeTracks2(1)
  -  end if
   
     do j=1,napx
       if(part_hit_pos(j) == ie .and. part_hit_turn(j) == iturn) then
  
positive.code: subroutine collimate_end_collimator(stracki)
  
    use crcoall
    use parpro
    use coll_common
    use mod_common
    use mod_commons
    use mod_common_da
    use mod_common_main
    use mod_common_track
    use numerical_constants, only : c5m4
    use coll_db
    use mod_units
    use string_tools
  #ifdef HDF5
    use hdf5_output
    use hdf5_tracks2
  #endif
  #ifdef G4COLLIMATION
    use geant4
  #endif
  
negative.code: !++  End of check for hit this turn and element
      end if
    end do ! end do j = 1, napx
  
    if(dowrite_tracks) then
      call coll_writeTracks2(1)
    end if
  
  !++  Calculate statistical observables and save into files...
    if (n_impact.gt.0) then
  