Преглед изворни кода

mpi_lu: fix undefined data in outofcore case

Samuel Thibault пре 4 година
родитељ
комит
bfe491d1c9
1 измењених фајлова са 14 додато и 0 уклоњено
  1. 14 0
      mpi/examples/mpi_lu/plu_outofcore_example.c

+ 14 - 0
mpi/examples/mpi_lu/plu_outofcore_example.c

@@ -231,6 +231,20 @@ static void init_matrix(int rank)
 				starpu_matrix_data_register(handleptr, disk_node,
 					(uintptr_t) disk_objs[j+nblocks*i], size/nblocks,
 					size/nblocks, size/nblocks, sizeof(TYPE));
+				starpu_data_acquire_on_node(*handleptr, STARPU_MAIN_RAM, STARPU_W);
+				void *interface = starpu_data_get_interface_on_node(*handleptr, STARPU_MAIN_RAM);
+				TYPE *data = (void*) STARPU_MATRIX_GET_PTR(interface);
+				fill_block_with_random(data, size, nblocks);
+				if (i == j)
+				{
+					unsigned tmp;
+					for (tmp = 0; tmp < size/nblocks; tmp++)
+					{
+						data[tmp*((size/nblocks)+1)] += 1;
+						data[tmp*((size/nblocks)+1)] *= 100;
+					}
+				}
+				starpu_data_release_on_node(*handleptr, STARPU_MAIN_RAM);
 			}
 			else
 			{