This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
|
|
|
:- 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.
|
|
|