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

remove the compile-time term size limit. do not clone before mpi_open/3 is invoked.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@392 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos
2002-02-27 13:41:24 +00:00
parent d5a0f6d9ec
commit c53dc217bb
5 changed files with 173 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
library/mpi/examples/demo2.pl
View File

@@ -26,22 +26,22 @@ do(0, Num) :-
mpe_create_event(Ev1),
mpe_create_event(Ev2),
format( "Ev1 == ~q, Ev2 == ~q~n", [Ev1,Ev2] ),
mpe_create_state(Ev1,Ev2),
mpe_create_state(Ev1,Ev2,state1,red),
format( "1 AA~n", [] ),
mpe_log(Ev1),
mpe_log(Ev1,0,event1),
format( "2 AA~n", [] ),
mpi_bcast( Num, 0 ),
mpi_bcast( Num, 0, 100 ),
format( 'Proc 0: broadcast ~q.~n', [Num] ),
mpe_log(Ev2).
mpe_log(Ev2,0,event2).
do(Rank, _) :-
!,
mpe_create_event(Ev1),
mpe_create_event(Ev2),
format( "Ev1 == ~q, Ev2 == ~q~n", [Ev1,Ev2] ),
mpe_log(Ev1),
mpi_bcast( Num, 0 ),
mpe_log(Ev1,0,event1),
mpi_bcast( Num, 0, 100 ),
format( 'Proc ~q: had ~q broadcast from 0.~n', [Rank, Num] ),
mpe_log(Ev2).
mpe_log(Ev2,0,event2).
%%
@@ -54,4 +54,4 @@ start(Msg) :-
mpe_open,
do(Rank, Msg),
format( 'Rank ~q finished!~n', [Rank] ),
mpe_close.
mpe_close( demo2 ).