int main(int argc, char** argv) { bsp_init("e_bsp_vertical_mp.srec", argc, argv); bsp_begin(bsp_nprocs()); int n = bsp_nprocs(); int tagsize = sizeof(int); ebsp_set_tagsize(&tagsize); int tag = 0; int payload = 0; for (int s = 0; s < n; ++s) { tag = 0; payload = 1000 + s; ebsp_send_down(s, &tag, &payload, sizeof(int)); tag = 1; payload = 1234; ebsp_send_down(s, &tag, &payload, sizeof(int)); } ebsp_spmd(); int packets = 0; int accum_bytes = 0; ebsp_qsize(&packets, &accum_bytes); printf("packets: %i\n", packets); // FIXME nprocs // expect: (packets: 32) int* payloads = malloc(2 * n * sizeof(int)); int payload_size = 0; int tag_in = 0; for (int i = 0; i < packets; ++i) { ebsp_get_tag(&payload_size, &tag_in); ebsp_move(&payloads[tag_in], sizeof(int)); } for (int i = 0; i < n; ++i) { printf("$%02d: %i\n", i, payloads[i]); // expect_for_pid: (2000 + pid) } for (int i = n; i < 2 * n; ++i) { printf("$%02d: %i\n", i - bsp_nprocs(), payloads[i]); // expect_for_pid: (3) } free(payloads); bsp_end(); return 0; }
void send_data() { // Give it a tag. For example an integer int tag; int tagsize = sizeof(int); // Send the data // We divide it in nprocs parts int chunk_size = (data_count + nprocs - 1) / nprocs; ebsp_set_tagsize(&tagsize); for (int p = 0; p < nprocs; p++) { tag = 100 + p; // random tag ebsp_send_down(p, &tag, &data[p * chunk_size], sizeof(float) * chunk_size); } }
int main(int argc, char **argv) { bsp_init("e_dot_product.srec", argc, argv); bsp_begin(bsp_nprocs()); // allocate two random vectors of length 512 int l = 512; int* a = (int*)malloc(sizeof(int) * l); int* b = (int*)malloc(sizeof(int) * l); for (int i = 0; i < l; ++i) { a[i] = i; b[i] = 2*i; } // partition and write to processors int chunk = l / bsp_nprocs(); printf("chunk: %i\n", chunk); int tag; int tagsize = sizeof(int); ebsp_set_tagsize(&tagsize); for (int pid = 0; pid < bsp_nprocs(); pid++) { tag = 1; ebsp_send_down(pid, &tag, &chunk, sizeof(int)); tag = 2; ebsp_send_down(pid, &tag, &a[pid*chunk], sizeof(int)*chunk); tag = 3; ebsp_send_down(pid, &tag, &b[pid*chunk], sizeof(int)*chunk); } // enable memory inspector //ebsp_inspector_enable(); // run dotproduct ebsp_spmd(); // read output int packets, accum_bytes; ebsp_qsize(&packets, &accum_bytes); int status; int result; int sum = 0; printf("proc \t partial_sum\n"); printf("---- \t -----------\n"); for (int i = 0; i < packets; i++) { ebsp_get_tag(&status, &tag); ebsp_move(&result, sizeof(int)); printf("%i: \t %i\n", tag, result); sum += result; } printf("SUM: %i\n", sum); free(a); free(b); // finalize bsp_end(); return 0; }