anchor.diff:    ! A.Mereghetti and D.Sinuela Pastor, for the FLUKA Team
     ! last modified: 17-07-2013
     ! print stable particles only
  -  ! inserted in main code by the 'fluka' compilation flag
     write(lout,"(a)") ""
     write(lout,"(a)") str_divLine
     if(napxo > 0) then
  
positive.code:   ! initialise energy/momentum/rest mass of reference particle in mod_fluka
    !     and synch magnetic rigidity with Fluka (for the time being, consider
    !     only protons);
    ! inserted in main code by the 'fluka' compilation flag
    if(fluka_enable) then
      write(lout,"(a)") "FLUKA> Updating the reference particle"
      write(fluka_log_unit,*) "# Updating ref particle"
  
negative.code:   write(lout,"(a)")         ""
    write(lout,"(a)")         "    Computing Time Summary"
    write(lout,"(a)")         "  =========================="
    write(lout,"(a,f12.3,a)") "    Preparating Calculations: ",pretime, " second(s)"
    write(lout,"(a,f12.3,a)") "    Particle Tracking:        ",trtime,  " second(s)"
    write(lout,"(a,f12.3,a)") "    Post Processing:          ",posttime," second(s)"
    write(lout,"(a,f12.3,a)") "    Total Time Used:          ",tottime, " second(s)"
    write(lout,"(a,i8)")      "    Particle Turns:           ",meta_nPartTurn
    write(lout,"(a)")         ""
    write(lout,"(a)")         str_divLine
  
  