From 35e8e70a1f68fe65255aaf53ba39b62d3d5fa98f Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Tue, 19 Nov 2019 18:17:50 +0100 Subject: [PATCH] removed warnings in ocaml --- ocaml/Input_determinants_by_hand.ml | 2 -- ocaml/qp_set_mo_class.ml | 5 ----- 2 files changed, 7 deletions(-) diff --git a/ocaml/Input_determinants_by_hand.ml b/ocaml/Input_determinants_by_hand.ml index 9c316f8c..dee338e3 100644 --- a/ocaml/Input_determinants_by_hand.ml +++ b/ocaml/Input_determinants_by_hand.ml @@ -355,8 +355,6 @@ end = struct let nstates = read_n_states () |> States_number.to_int - and ndet = - Det_number.to_int b.n_det and ndet_qp_edit = Det_number.to_int b.n_det_qp_edit in diff --git a/ocaml/qp_set_mo_class.ml b/ocaml/qp_set_mo_class.ml index 7ab861e2..5447c93c 100644 --- a/ocaml/qp_set_mo_class.ml +++ b/ocaml/qp_set_mo_class.ml @@ -38,11 +38,6 @@ let set ~core ~inact ~act ~virt ~del = let mo_num = Ezfio.get_mo_basis_mo_num () in - let n_int = - try N_int_number.of_int (Ezfio.get_determinants_n_int ()) - with _ -> Bitlist.n_int_of_mo_num mo_num - in - let mo_class = Array.init mo_num (fun i -> None)