YAP 7.1.0
hello.yap
1
2:- use_module(library(lam_mpi)).
3
4:- initialization(main).
5
6initialization :-
7 initialization,
9 mpi_comm_rank(Rank),
10 mpi_version(V0,V1),
11 format('MPI ~d.~d workers=~d id=~d~n', [V0,V1,Sz, Rank]),
12 format.
13
14
format(+ T, :L)
use_module( +Files )
initialization(+ G)
mpi_comm_rank(- Rank)
mpi_comm_size(- Size)
mpi_version(- Major,- Minor)