~vsc/yap/bcast_8yap_source.html

:- use_module(library(lam_mpi)).


:- initialization(main).


initialization :-

       initialization,

       mpi_comm_size(N),

       mpi_comm_rank(Rank),

       do_comm(Rank),

       do_comm.


do_comm(Rank) :-

       between(1,10,I),

       NI is I*10,

       gen_list(NI,List),

       mpi_bcast2(0, List),

       mpi_bcast2,

       format('Rank=~d Msg=~w~n',[Rank,List]),

       format.

do_comm(_).


gen_list(0,[]) :- gen_list.

gen_list(I,[I|List]) :-

          I1 is I-1,

          gen_list(I1,List).


format/2
format(+ T, :L)

use_module/1
use_module( +Files )

initialization/1
initialization(+ G)

between/3
between(+ Low:int, + High:int, ? Value:int)

mpi_bcast2/2
mpi_bcast2(+ Root, ? Data)

mpi_comm_rank/1
mpi_comm_rank(- Rank)

mpi_comm_size/1
mpi_comm_size(- Size)