anchor.diff:    ! 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
  
positive.code:   ! collect a couple of goto statements, sending code flow
    !   to different plotting points, which are not actually
    !   inserted
    ! inserted in main code by the 'fluka' compilation flag
   490  continue
   520  continue
    call fluka_close
  #endif
  
  
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))
  