anchor.diff:      n = ntsendeob(fluka_cid)
   
       if(n.lt.0) then
  -      write(fluka_log_unit,*) "# FlukaIO error: Error sending End of Batch"
  +      write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Error sending End of Batch"
         fluka_cid = -1
         fluka_send = -1
         return
  
positive.code:            napx, xv1, xv2, yv1, yv2, sigmv, ejv, naa, nzz, nucm, nqq, pdgid, &
             spin_x, spin_y, spin_z )
  
        if (ret.eq.-1) then
           write(lerr,'(A)')'FLUKA> ERROR -1 in Fluka communication returned by fluka_send...'
           write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_send...'
           call prror
        end if
  
  
negative.code:     fluka_last_rcvd_mess = -1
  
      n = ntsendipt(fluka_cid, turn, ipt)
      if(n.lt.0) then
        write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Error sending Insertion Point"
        fluka_cid = -1
        fluka_send = -1
        return
  