mpi/examples/: minor fixes

mpi/examples/mpi_lu/plu_solve.c

@@ -168,7 +168,7 @@ void STARPU_PLU(compute_lux)(unsigned size, TYPE *x, TYPE *y, unsigned nblocks,
 	MPI_Reduce(yi, x, size, MPI_TYPE, MPI_SUM, 0, MPI_COMM_WORLD);
 	memset(yi, 0, size*sizeof(TYPE));
 
-	unsigned ind;
+//	unsigned ind;
 //	if (rank == 0)
 //	{
 //		fprintf(stderr, "INTERMEDIATE\n");

mpi/examples/mpi_lu/pxlu.c

@@ -178,8 +178,6 @@ static void receive_when_deps_are_done(unsigned ndeps, starpu_tag_t *deps_tags,
 
 static void create_task_11_recv(unsigned k)
 {
-	unsigned i, j;
-
 	/* The current node is not computing that task, so we receive the block
 	 * with MPI */
 
@@ -190,6 +188,7 @@ static void create_task_11_recv(unsigned k)
 	starpu_tag_t tag_array[2*nblocks];
 	
 #ifdef SINGLE_TMP11
+	unsigned i, j;
 	if (k > 0)
 	for (i = (k-1)+1; i < nblocks; i++)
 	{
@@ -833,8 +832,6 @@ double STARPU_PLU(plu_main)(unsigned _nblocks, int _rank, int _world_size)
 	rank = _rank;
 	world_size = _world_size;
 
-	struct starpu_task *entry_task = NULL;
-
 	/* create all the DAG nodes */
 	unsigned i,j,k;
 

mpi/examples/mpi_lu/pxlu_kernels.c

@@ -263,7 +263,6 @@ static inline void STARPU_PLU(common_u21)(void *descr[],
 
 #ifdef STARPU_USE_CUDA
 	cublasStatus status;
-	cudaError_t cures;
 #endif