mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-17 10:45:28 +02:00
20 lines
415 B
OCaml
20 lines
415 B
OCaml
open Core.Std
|
|
open Qptypes
|
|
|
|
let () =
|
|
let ezfio_filename =
|
|
Sys.argv.(1)
|
|
in
|
|
if (not (Sys.file_exists_exn ezfio_filename)) then
|
|
failwith "Error reading EZFIO file";
|
|
Ezfio.set_file ezfio_filename;
|
|
let basis =
|
|
match Input.Ao_basis.read () with
|
|
| Some basis -> basis
|
|
| _ -> failwith "Error reading basis set"
|
|
in
|
|
Input.Ao_basis.to_rst basis
|
|
|> Rst_string.to_string
|
|
|> print_endline
|
|
|