anchor.diff:           if( .not. fluka_connected ) then
   !              temporarily connect to fluka, to properly terminate the run
              fluka_con = fluka_connect()
  -           if(fluka_con.eq.-1) then
  +           if(fluka_con.lt.0) 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'
  
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_receive...'
           write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_send_receive...'
           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
  