9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-09 17:33:05 +02:00
qp2/ocaml/tests/test_determinants.ml
2019-01-25 11:39:31 +01:00

16 lines
353 B
OCaml

open Qptypes;;
let test_module () =
let mo_num = MO_number.of_int 10 in
let det =
[| 15L ; 7L |]
|> Determinant.of_int64_array
~n_int:(N_int_number.of_int 1)
~alpha:(Elec_alpha_number.of_int 4)
~beta:(Elec_beta_number.of_int 3)
in
Printf.printf "%s\n" (Determinant.to_string (~mo_num:mo_num) det)
;;
test_module ();;