2014-10-29 16:56:16 +01:00
|
|
|
open Qptypes;;
|
|
|
|
|
|
|
|
|
|
let test_module () =
|
|
|
|
|
let mo_tot_num = MO_number.of_int 10 in
|
|
|
|
|
let det =
|
|
|
|
|
[| 15L ; 7L |]
|
2014-11-04 00:10:17 +01:00
|
|
|
|> 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)
|
2014-10-29 16:56:16 +01:00
|
|
|
in
|
|
|
|
|
Printf.printf "%s\n" (Determinant.to_string (~mo_tot_num:mo_tot_num) det)
|
|
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
test_module ();;
|
