LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-06-02 11:25:18 +02:00
Code Releases Activity

Fix running averages

Browse Source
This commit is contained in:
Anthony Scemama 2022-01-12 14:43:29 +01:00
parent bb64e47ac9
commit 70dbec8ab8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/Block.ml
View File

@ -110,7 +110,9 @@ let read_bytes b idx =
Bytes.get_int64_ne b idx Bytes.get_int64_ne b idx
|> Int64.to_int |> Int64.to_int
in in
try
Some (Bytes.sub b (idx+8) m, idx+8+m) Some (Bytes.sub b (idx+8) m, idx+8+m)
with Invalid_argument _ -> None