LCPQ
/
QCaml
mirror of https://gitlab.com/scemama/QCaml.git
10
1
Fork 0
Code Releases Activity

Better load balancing

This commit is contained in:
Anthony Scemama 2018-10-23 16:11:15 +02:00
parent 56c8737019
commit 881db3a586
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Basis/ERI.ml
View File

@ -264,7 +264,7 @@ let of_basis_parallel basis =
let t0 = Unix.gettimeofday () in
let ishell = ref 0 in
let input_stream = Stream.of_list shell_pairs in
let input_stream = Stream.of_list (List.rev shell_pairs) in
let f shell_p =
let () =
@ -304,15 +304,6 @@ let of_basis_parallel basis =
with Exit -> List.concat !result |> Array.of_list
in
(*
let stream_map f stream =
let rec next i =
try Some (f (Stream.next stream))
with Stream.Failure -> None in
Stream.from next
in
stream_map f input_stream
*)
let eri_array =
if Parallel.master then
Fis.create ~size:n `Dense