anchor.diff:  10260 format(/4x,"Particle ",i7,"                     Random seed: ",i0," Momentum deviation: ",g12.5/)
   10270 format(/4x,"Particle ",i7," and ",i7, " Stable. Random seed: ",i0," Momentum deviation: ",g12.5," Revolution: ",i0/)
   10271 format( 4x,"Particle ",i7," and ",i7, " Stable. Random seed: ",i0," Momentum deviation: ",g12.5," Revolution: ",i0)
  -10280 format(4x,f47.33)
  -10320 format(//131('-')//t10,'DATA BLOCK FLUCTUATIONS OF MULTIPOLES'//  &
  -     &t10,'RANDOM STARTING NUMBER=  ',i20/ t10,                         &
  -     &'RANDOM NUMBERS GENERATED:',i20/ t10,'MEAN VALUE=',f15.7,         &
  -     &'  -   DEVIATION=',f15.7)
  -10330 format(/10x,'ERROR IN OPENING FILES')
   #ifdef FLUKA
   !     A.Mereghetti and D.Sinuela Pastor, for the FLUKA Team
   !     last modified: 17-07-2013
  
positive.code:   write(lout,"(a)") ""
    write(lout,"(a)") str_divLine
    write(lout,"(a)") ""
  #ifndef STF
    call writeFort12
  #endif
    call time_timeStamp(time_afterTracking)
  
    if(st_partsum .eqv. .false.) then
  
negative.code: 
    do ia=1,napxo,2
      ie=ia+1
      napxto = napxto+numxv(ia)+numxv(ie)
  
      if(pstop(ia).and.pstop(ie)) then !-- BOTH PARTICLES LOST
        write(lout,10000) ia,nms(ia)*izu0,dp0v(ia),numxv(ia),abs(xv1(ia)),aperv(ia,1),abs(xv2(ia)),aperv(ia,2)
        write(lout,10000) ie,nms(ia)*izu0,dp0v(ia),numxv(ie),abs(xv1(ie)),aperv(ie,1),abs(xv2(ie)),aperv(ie,2)
      end if
  
      if(.not.pstop(ia).and.pstop(ie)) then !-- SECOND PARTICLE LOST
        if(st_quiet == 0) then
          write(lout,10240) ia,nms(ia)*izu0,dp0v(ia),numxv(ia)
        else if(st_quiet == 1) then
          write(lout,10241) ia,nms(ia)*izu0,dp0v(ia),numxv(ia)
        end if
        write(lout,10000) ie,nms(ia)*izu0,dp0v(ia),numxv(ie),abs(xv1(ie)),aperv(ie,1),abs(xv2(ie)),aperv(ie,2)
      end if
  
      if(pstop(ia).and..not.pstop(ie)) then !-- FIRST PARTICLE LOST
        write(lout,10000) ia,nms(ia)*izu0,dp0v(ia),numxv(ia),abs(xv1(ia)),aperv(ia,1),abs(xv2(ia)),aperv(ia,2)
        if(st_quiet == 0) then
          write(lout,10240) ie,nms(ia)*izu0,dp0v(ia),numxv(ie)
        else if(st_quiet == 1) then
          write(lout,10241) ie,nms(ia)*izu0,dp0v(ia),numxv(ie)
        end if
      end if
  
      if(.not.pstop(ia).and..not.pstop(ie)) then !-- BOTH PARTICLES STABLE
        if(st_quiet == 0) then
          write(lout,10270) ia,ie,nms(ia)*izu0,dp0v(ia),numxv(ia)
        else if(st_quiet == 1) then
          write(lout,10271) ia,ie,nms(ia)*izu0,dp0v(ia),numxv(ia)
        end if
      end if
  
      if(st_quiet == 0) then
        write(lout,"(4x,f47.33)") xv1(ia),yv1(ia),xv2(ia),yv2(ia),sigmv(ia),dpsv(ia), &
          xv1(ie),yv1(ie),xv2(ie),yv2(ie),sigmv(ie),dpsv(ie),e0,ejv(ia),ejv(ie)
      end if
    end do
  
  