1.23
2.0
acw/focus-triggers
main
test-branch
| Rev | Line | |
|---|
| [0be7a7ea] | 1 | void send(void *buf, int count, int dest, int tag) {
|
|---|
| 2 | $message out = $message_pack(rank, dest, tag, buf, count*sizeof(double));
|
|---|
| 3 | $comm_enqueue(&MPI_COMM_WORLD, out);
|
|---|
| 4 | }
|
|---|
| 5 |
|
|---|
| 6 | void recv(void *buf, int count, int source, int tag) {
|
|---|
| 7 | $message in = $comm_dequeue(&MPI_COMM_WORLD, source, rank, tag);
|
|---|
| 8 | $message_unpack(in, buf, count*sizeof(double));
|
|---|
| 9 | }
|
|---|
| 10 |
|
|---|
| 11 | $when (__start);
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
