LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-11-07 14:43:39 +01:00
Code Releases Activity

Removed merging on same compute node

Browse Source
This commit is contained in:
Anthony Scemama 2020-06-01 23:30:07 +02:00
parent b837d4f346
commit 5d715b95d1
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ocaml/Random_variable.ml
View File

@ -429,7 +429,7 @@ let merge ~create_key ?update_block_id ?update_value ?update_weight t =
if (x>y) then 1 if (x>y) then 1
else if (x<y) then -1 else if (x<y) then -1
else 0) else 0)
|> List.rev_map (fun (x,y) -> y) |> List.rev_map snd
|> List.rev |> List.rev
} }
@ -555,7 +555,8 @@ let ( /! ) = two_variable_operator
let compress = let compress =
merge merge
~create_key:(fun block -> ~create_key:(fun block ->
Printf.sprintf "%s %10.10d" (Compute_node.to_string block.Block.compute_node) Printf.sprintf "%s %10.10d %10.10d"
(Compute_node.to_string block.Block.compute_node) block.Block.pid
(((Block_id.to_int block.Block.block_id)+1)/2)) (((Block_id.to_int block.Block.block_id)+1)/2))
~update_block_id:(fun block_id -> ~update_block_id:(fun block_id ->
((Block_id.to_int block_id)+1)/2 ((Block_id.to_int block_id)+1)/2
@ -678,6 +679,7 @@ let compress_files () =
| Not_found -> true | Not_found -> true
) )
|> List.rev_map (fun x -> dir_name^x) |> List.rev_map (fun x -> dir_name^x)
|> List.rev
in in
let out_channel_dir = let out_channel_dir =