mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-23 04:43:50 +01:00
16 lines
365 B
OCaml
16 lines
365 B
OCaml
open Qptypes;;
|
|
|
|
let test_module () =
|
|
let mo_tot_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_tot_num:mo_tot_num) det)
|
|
;;
|
|
|
|
test_module ();;
|