diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LAM MPI interface support.

Browse Source
This commit is contained in:
Vítor Santos Costa
2012-02-02 23:25:31 +00:00
parent 6eea1fe1ea
commit ab33cacf7b
9 changed files with 4023 additions and 14247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
library/lammpi/examples/talk.yap
View File

@@ -12,14 +12,31 @@ main :-
do_comm(0) :-
between(1,10,I),
gen_list(I,List),
NI is I*1000,
gen_list(NI,List),
mpi_send(List, 1, I),
T =.. [f|List],
mpi_send(T, 1, I),
writeln(sent:I),
fail.
do_comm(0) :-
between(1,10,I),
NI is 2.3*I,
mpi_send(NI, 1, I),
fail.
do_comm(0).
do_comm(1) :-
between(1,10,I),
mpi_recv(0, I, List),
writeln(I:List),
% writeln(I:List),
mpi_recv(0, I, T),
% writeln(I:T),
writeln(received:I),
fail.
do_comm(1) :-
between(1,10,I),
mpi_recv(0, I, T),
writeln(I:T),
fail.
do_comm(1).