1.23
2.0
main
test-branch
|
Last change
on this file since a2cdf97 was c46e702, checked in by Manchun Zheng <zmanchun@…>, 12 years ago |
|
implemented MPI+Threads. Now hybrid.cvl with -min, -por=new terminates in a few seconds. But hybrid2.cvl still seems to run forever, need to look into it further.
git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@606 fb995dde-84ed-4084-dfe6-e5aef3e2452c
|
-
Property mode
set to
100644
|
|
File size:
381 bytes
|
| Line | |
|---|
| 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.
