mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-14 01:53:55 +01:00
41 lines
1.1 KiB
OCaml
41 lines
1.1 KiB
OCaml
open Core.Std;;
|
|
open Qptypes;;
|
|
|
|
let test_prim () =
|
|
let p =
|
|
{ Primitive.sym = Symmetry.P ;
|
|
Primitive.expo = Positive_float.of_float 0.15} in
|
|
Primitive.to_string p
|
|
|> print_string
|
|
;;
|
|
|
|
let test_gto_1 () =
|
|
let in_channel = open_in "/home/scemama/quantum_package/data/basis/cc-pvdz" in
|
|
ignore (input_line in_channel);
|
|
let gto = Gto.read_one in_channel in
|
|
print_string (Gto.to_string gto);
|
|
let gto = Gto.read_one in_channel in
|
|
print_string (Gto.to_string gto);
|
|
let gto = Gto.read_one in_channel in
|
|
print_string (Gto.to_string gto);
|
|
;;
|
|
|
|
let test_gto_2 () =
|
|
let in_channel = open_in "/home/scemama/quantum_package/data/basis/cc-pvdz" in
|
|
ignore (input_line in_channel);
|
|
let basis = Basis.read in_channel in
|
|
List.iter basis ~f:(fun x-> Printf.printf "%s\n" (Gto.to_string x))
|
|
;;
|
|
|
|
let test_gto () =
|
|
let in_channel = open_in "/home/scemama/quantum_package/data/basis/cc-pvdz" in
|
|
let basis = Basis.read_element in_channel Element.C in
|
|
List.iter basis ~f:(fun x-> Printf.printf "%s\n" (Gto.to_string x))
|
|
;;
|
|
|
|
let test_module () =
|
|
test_gto()
|
|
;;
|
|
|
|
test_module ();;
|