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;
}
