Fixed gpu selection -_-

lattice_boltzmann/main.c

@@ -83,7 +83,7 @@ int main(int argc, char *argv[]) {
 #endif
     char device[4] = {0};
     snprintf(device, sizeof(device), "#%d", my_rank % nb_devices);
-    futhark_context_config_set_device(fut_config, "AMD");
+    futhark_context_config_set_device(fut_config, device);
 #endif
     struct futhark_context *fut_context = futhark_context_new(fut_config);
 
@@ -103,7 +103,10 @@ int main(int argc, char *argv[]) {
     MPI_Type_commit(&lbm_type);
 
     struct dispatch_context *disp_context = dispatch_context_new(lbm_dimensions, lbm_type, 3);
+    dispatch_context_print(disp_context);
     chunk_info_t ci = get_chunk_info(disp_context);
+    chunk_info_print(&ci);
+    MPI_Abort(MPI_COMM_WORLD, 1);
     init_chunk_lbm(&ci);
 
     for (int i = 0; i < N_MEASURES; ++i) {