add some MPI tests.

2012-02-02 10:00:17 +00:00
parent 4e6cc28cd3
commit c60514f89b
2 changed files with 43 additions and 0 deletions
--- a/library/lammpi/examples/hello.yap
+++ b/library/lammpi/examples/hello.yap
@@ -0,0 +1,13 @@
+
+:- use_module(library(lam_mpi)).
+
+:- initialization(main).
+
+main :-
+       mpi_init,
+       mpi_comm_size(Sz),
+       mpi_comm_rank(Rank),
+       mpi_version(V0,V1),
+       format('MPI ~d.~d workers=~d id=~d~n', [V0,V1,Sz, Rank]),
+       mpi_finalize.
+