anchor.diff:  
       n = ntsendipt(fluka_cid, turn, ipt)
       if(n.lt.0) then
  -      write(fluka_log_unit,*) "# FlukaIO error: ", n, " - Error sending Insertion Point"
  +      write(fluka_log_unit,'(A,i0,A)') "# FlukaIO error: ", n, " - Error sending Insertion Point"
         fluka_cid = -1
         fluka_send = -1
         return
  
positive.code:            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
  
  
negative.code:     real(kind=fPrec)            :: flsx, flsy, flsz
  
      write(lout,'(A)') 'FLUKA> call to fluka_end'
      write(fluka_log_unit,'(A)') "# FlukaIO: sending End of Computation signal"
  
      ! Send end of computation
      n = ntsendeoc(fluka_cid)
      if(n.lt.0) then
        write(fluka_log_unit,'(A,i0,A)') "# FlukaIO error: ", n, " - Error sending End of Computation"
        flush(fluka_log_unit)
        return
      end if
  