mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-08-29 22:33:41 +02:00
Removed merging on same compute node
This commit is contained in:
parent
b837d4f346
commit
5d715b95d1
@ -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,8 +555,9 @@ 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"
|
||||||
(((Block_id.to_int block.Block.block_id)+1)/2))
|
(Compute_node.to_string block.Block.compute_node) block.Block.pid
|
||||||
|
(((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
|
||||||
|> Block_id.of_int )
|
|> Block_id.of_int )
|
||||||
@ -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 =
|
||||||
|
Loading…
Reference in New Issue
Block a user