anchor.diff:             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_receive...'
  -         write(fluka_log_unit,'(A,i4,A)')'# Error ',ret, ' in Fluka communication returned by fluka_receive...'
  +         write(lerr,'(A,i0,A)')'FLUKA> ERROR ', ret, ' in Fluka communication returned by fluka_receive...'
  +         write(fluka_log_unit,'(A,i0,A)')'# Error ',ret, ' in Fluka communication returned by fluka_receive...'
            call prror
         end if
   
  
positive.code:             flpdgid, flq, flsx, flsy, flsz)
  
        if(n.lt.0) then
          write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Error sending Particle"
          fluka_cid = -1
          fluka_send = -1
          return
  
negative.code: 
      n = ntsendipt(fluka_cid, turn, ipt)
      if(n.lt.0) then
        write(fluka_log_unit,'(A,i0,A)') "# FlukaIO error: ", n, " - Error sending Insertion Point"
        fluka_cid = -1
        fluka_send = -1
        return
  