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:   write(lout,"(a)")         ""
    write(lout,"(a)")         "    Computing Time Summary"
    write(lout,"(a)")         "  =========================="
    write(lout,"(a,f14.3,a)") "    Preparating Calculations: ",pretime, " second(s)"
    write(lout,"(a,f14.3,a)") "    Particle Tracking:        ",trtime,  " second(s)"
    write(lout,"(a,f14.3,a)") "    Post Processing:          ",posttime," second(s)"
    write(lout,"(a,f14.3,a)") "    Total Time Used:          ",tottime, " second(s)"
    write(lout,"(a,i10)")     "    Particle Turns:           ",meta_nPartTurn
    write(lout,"(a)")         ""
    write(lout,"(a)")         str_divLine
  
  
negative.code:   ! collect a couple of goto statements, sending code flow
    !   to different plotting points, which are not actually
    !   inserted
  490 continue
  520 continue
    call fluka_close
  #endif
  
  