9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 05:53:37 +01:00

removed warnings in ocaml

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

View File

@ -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

View File

@ -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)