From 45e73b10bae6fc58f250281ea547320ed3423a60 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 8 Feb 2023 13:12:29 +0100 Subject: [PATCH] Fix warning in OCaml --- external/qp2-dependencies | 2 +- ocaml/Input_nuclei_by_hand.ml | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/external/qp2-dependencies b/external/qp2-dependencies index 242151e0..9e5b27ce 160000 --- a/external/qp2-dependencies +++ b/external/qp2-dependencies @@ -1 +1 @@ -Subproject commit 242151e03d1d6bf042387226431d82d35845686a +Subproject commit 9e5b27ce5a174901765cec9db9e7b2aa6170a5de diff --git a/ocaml/Input_nuclei_by_hand.ml b/ocaml/Input_nuclei_by_hand.ml index 44747f20..9921237c 100644 --- a/ocaml/Input_nuclei_by_hand.ml +++ b/ocaml/Input_nuclei_by_hand.ml @@ -84,7 +84,7 @@ end = struct Ezfio.get_nuclei_nucl_coord() |> Ezfio.flattened_ezfio in - let zero = Point3d.of_string Units.Bohr "0. 0. 0." in + let zero = Point3d.of_string ~units:Units.Bohr "0. 0. 0." in let result = Array.make nucl_num zero in for i=0 to (nucl_num-1) do @@ -218,7 +218,7 @@ Nuclear coordinates in xyz format (Angstroms) :: and lines = Array.of_list lines in List.init (Nucl_number.to_int nucl_num) (fun i -> - Atom.of_string Units.Angstrom lines.(i)) + Atom.of_string ~units:Units.Angstrom lines.(i)) end | _ -> failwith "Error in xyz format" in