mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-31 00:03:45 +02:00
16 lines
353 B
OCaml
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 ();;
|