PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 20:34:58 +01:00
Code Releases Activity

removed warnings in ocaml

Browse Source
This commit is contained in:
Anthony Scemama 2019-11-19 18:17:50 +01:00
parent 8185c9420e
commit 35e8e70a1f
2 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/Input_determinants_by_hand.ml
View File

@ -355,8 +355,6 @@ end = struct
let nstates = let nstates =
read_n_states () read_n_states ()
|> States_number.to_int |> States_number.to_int
and ndet =
Det_number.to_int b.n_det
and ndet_qp_edit = and ndet_qp_edit =
Det_number.to_int b.n_det_qp_edit Det_number.to_int b.n_det_qp_edit
in in

5
ocaml/qp_set_mo_class.ml
View File

@ -38,11 +38,6 @@ let set ~core ~inact ~act ~virt ~del =
let mo_num = let mo_num =
Ezfio.get_mo_basis_mo_num () Ezfio.get_mo_basis_mo_num ()
in 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 = let mo_class =
Array.init mo_num (fun i -> None) Array.init mo_num (fun i -> None)