From 3e0766b1750ee7047be8d8cf7e763680b9981f03 Mon Sep 17 00:00:00 2001
From: Bruno Golosio <golosio@unica.it>
Date: Tue, 4 Jun 2024 14:22:55 +0200
Subject: [PATCH] Fixed small bug in MPI send

---
 src/spike_mpi.cu | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/spike_mpi.cu b/src/spike_mpi.cu
index babe29c01..ae058c79c 100644
--- a/src/spike_mpi.cu
+++ b/src/spike_mpi.cu
@@ -324,6 +324,7 @@ int ConnectMpi::SendSpikeToRemote(int n_hosts, int max_spike_per_host)
     // nonblocking sent of spike packet to MPI proc ih
     MPI_Isend(&h_ExternalTargetSpikeNodeId[array_idx],
 	      n_spikes, MPI_INT, ih, tag, MPI_COMM_WORLD, &request);
+    MPI_Request_free(&request);
     //printf("MPI_Send nspikes (src,tgt,nspike): "
     //	   "%d %d %d\n", mpi_id, ih, n_spikes);
     //printf("MPI_Send 1st-neuron-idx (src,tgt,idx): "