Initiated parallel

Makefile.include

@@ -1,6 +1,6 @@
 .NOPARALLEL:
 
-INCLUDE_DIRS=Nuclei,Utils,Basis,SCF,MOBasis,CI
+INCLUDE_DIRS=Parallel,Nuclei,Utils,Basis,SCF,MOBasis,CI
 LIBS=
 PKGS=
 OCAMLBUILD=ocamlbuild -j 0 -cflags $(ocamlcflags) -lflags $(ocamlcflags) $(ocamldocflags) -Is $(INCLUDE_DIRS) -ocamlopt $(ocamloptflags)

Parallel/Parallel.ml

@@ -0,0 +1,6 @@
+(** Module for handling distributed parallelism *)
+
+let size = Mpi.comm_size Mpi.comm_world
+let rank = Mpi.comm_rank Mpi.comm_world
+
+

Parallel/Parallel.mli

@@ -0,0 +1,10 @@
+(** Module for handling distributed parallelism *)
+
+val size : int
+(** Number of distributed processes. *)
+
+val rank : Mpi.rank
+(** Rannk of the current distributed processe. *)
+
+
+

_tags

@@ -1,4 +1,4 @@
-true: package(str,unix,bigarray,lacaml,alcotest,zarith)
+true: package(str,unix,bigarray,lacaml,alcotest,zarith,mpi)
 <*.byte>  : linkdep(Utils/math_functions.o), custom
 <*.native>: linkdep(Utils/math_functions.o)
 <odoc-ltxhtml>: not_hygienic

run_parallel.ml

@@ -0,0 +1,5 @@
+
+let () =
+  Printf.printf "Hello from rank %d of %d.\n"
+  Parallel.rank Parallel.size
+