anchor.diff:                flm, flet, flt, &
                 flpdgid, flq, flsx, flsy, flsz)
   
  -      if(n.eq.-1) then
  -        write(fluka_log_unit,*) "# FlukaIO error: Server timed out while waiting for message"
  +      if(n.lt.0) then
  +        write(fluka_log_unit,*) "# FlukaIO error: ", n ," - Server timed out while waiting for message"
           fluka_cid = -1
           fluka_receive = -1
           return
  
positive.code:          if( .not. fluka_connected ) then
  !              temporarily connect to fluka, to properly terminate the run
             fluka_con = fluka_connect()
             if(fluka_con.eq.-1) then
  !                no hope to properly close the run
               write(lerr,'(A)') 'FLUKA> ERROR Unable to connect to fluka while closing the simulation:'
               write(lerr,'(A)') 'FLUKA>       please, manually kill all its instances'
  
negative.code:            napx, xv1, xv2, yv1, yv2, sigmv, ejv, naa, nzz, nucm, nqq, pdgid, &
             spin_x, spin_y, spin_z )
  
        if (ret.lt.0) then
           write(lerr,'(A,i4,A)')'FLUKA> ERROR ', ret, ' in Fluka communication returned by fluka_send_receive...'
           write(fluka_log_unit,'(A,i4,A)')'# Error ', ret, ' in Fluka communication returned by fluka_send_receive...'
           call prror
        end if
  
  