source:
CIVL/examples/messagePassing/mp_proc.cvh@
c905758
| Last change on this file since c905758 was b482f11, checked in by , 12 years ago | |
|---|---|
|
|
| File size: 377 bytes | |
| Line | |
|---|---|
| 1 | void send(void *buf, int count, int dest, int tag, $comm comm) { |
| 2 | $message out = $message_pack(rank, dest, tag, buf, count*sizeof(double)); |
| 3 | $comm_enqueue(comm, out); |
| 4 | } |
| 5 | |
| 6 | void recv(void *buf, int count, int source, int tag, $comm comm) { |
| 7 | $message in = $comm_dequeue(comm, source, tag); |
| 8 | $message_unpack(in, buf, count*sizeof(double)); |
| 9 | } |
| 10 | |
| 11 | $when (__start); |
Note:
See TracBrowser
for help on using the repository browser.
