10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-22 10:47:33 +02:00

Corrected qp_print_basis

This commit is contained in:
Anthony Scemama 2016-01-26 15:17:25 +01:00
parent e2836ee5e0
commit 6162685051

View File

@ -1,7 +1,7 @@
open Core.Std open Core.Std
open Qptypes open Qptypes
let basis ()= let basis () =
let ezfio_filename = let ezfio_filename =
Sys.argv.(1) Sys.argv.(1)
in in
@ -18,7 +18,7 @@ let basis ()=
|> print_endline |> print_endline
let mo ()= let mo () =
let ezfio_filename = let ezfio_filename =
Sys.argv.(1) Sys.argv.(1)
in in
@ -35,5 +35,7 @@ let mo ()=
|> print_endline |> print_endline
basis ();; let () =
mo ();; basis ();
mo ()