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: !  WRITE TO FILES
  ! ================================================================================================ !
  
  ! ================================================================================================ !
  !  Writing of tracks2.dat
  ! ================================================================================================ !
  
negative.code:       yv2(j) = rcyp0(j) * c1e3 + torbyp(ie)
        ejv(j) = rcp0(j)  * c1e3
      end if
    end do
  
    if(dowrite_impact) then
      call coll_writeImpactAbsorb
    end if
  
    do j=1,napx
      if(part_hit_pos(j) == ie .and. part_hit_turn(j) == iturn) then
        ! Particle has impacted
        if(part_abs_pos(j) /= 0 .and. part_abs_turn(j) /= 0) then
          continue
        else if(part_abs_pos (j) == 0 .and. part_abs_turn(j) == 0) then
          nhit_type(j) = ior(nhit_type(j),cdb_cType(icoll)) ! Record the hit type
        else
          write(lerr,"(a)")          "COLL> ERROR Particle cannot be both absorbed and not absorbed"
  