mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 12:23:43 +01:00
removed warnings in ocaml
This commit is contained in:
parent
8185c9420e
commit
35e8e70a1f
@ -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
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user