Merge pull request #116 from golosio/fix_mpi_send

Fixed small bug in MPI send
nest · Jun 4, 2024 · d3be46f · d3be46f
2 parents ebc740d + 3e0766b
commit d3be46f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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): "