anchor.diff:      real(kind=fPrec)            :: flsx, flsy, flsz
   
       write(lout,'(A)') 'FLUKA> call to fluka_end'
  -    write(fluka_log_unit,*) "# FlukaIO: sending End of Computation signal"
  +    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,*) "# FlukaIO error: ", n, " - Error sending End of Computation"
  +      write(fluka_log_unit,'(A,i0,A)') "# FlukaIO error: ", n, " - Error sending End of Computation"
         flush(fluka_log_unit)
         return
       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
  