anchor.diff:    ! 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"
  
positive.code:   ! P.Garcia Ortega, A.Mereghetti and V.Vlachoudis, for the FLUKA Team
    ! last modified: 26-08-2014
    ! send napx to fluka
    ! inserted in main code by the 'fluka' compilation flag
    if(fluka_enable) then
      write(lout,"(a,i0)") "FLUKA> Sending napx = ",napx
      write(fluka_log_unit,*) "# Sending napx: ", napx
  
negative.code: !     A.Mereghetti and D.Sinuela Pastor, for the FLUKA Team
  !     last modified: 17-07-2013
  !     print stable particles only (format directives)
  10350 format(4X,I8,1X,'SURVIVING PARTICLES:')
  10360 format(2(1X,A8),8(1X,A16))
  10370 format(2(1X,I8),8(1X,1PE16.9))
  