LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-07-26 04:37:26 +02:00
Code Releases Activity

Parallel and single-core give exact same result

Browse Source
This commit is contained in:
Anthony Scemama 2019-04-04 14:35:13 +02:00
parent e56e01197d
commit e64e6c73dc
1 changed files with 27 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Basis/TwoElectronIntegralsNonSeparable.ml
View File

@ -235,7 +235,7 @@ module Make(Zero_m : Zero_mType) = struct
let t0 = Unix.gettimeofday () in
let ishell = ref max_int in
let input_stream = Stream.of_list (List.rev shell_pairs) in
let input_stream = Stream.of_list shell_pairs in
let f shell_p =
let () =
@ -248,6 +248,7 @@ module Make(Zero_m : Zero_mType) = struct
in
let result = ref [] in
let () =
try
List.iter (fun shell_q ->
let () =
@ -271,8 +272,9 @@ module Make(Zero_m : Zero_mType) = struct
result := (store_class_parallel ~cutoff cspc cls) :: !result;
| None -> ()
) shell_pairs;
raise Exit
with Exit -> List.concat !result |> Array.of_list
with Exit -> ()
in
List.concat !result |> Array.of_list
in
let eri_array =