anchor.diff:    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
  
positive.code: 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
  
negative.code: 10350 format(4X,I8,1X,'SURVIVING PARTICLES:')
  10360 format(2(1X,A8),8(1X,A16))
  10370 format(2(1X,I8),8(1X,1PE16.9))
  #endif
  end program maincr
  