LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-10-05 07:46:07 +02:00
Code Releases Activity

Some cleaning

Browse Source
This commit is contained in:
Anthony Scemama 2019-03-01 11:50:48 +01:00
parent bdb547c346
commit 4b9e2016aa
2 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
run_fci.ml
View File

@ -23,17 +23,9 @@ let () =
end; end;
(* Handle options *) (* Handle options *)
let basis_file = let basis_file = Util.of_some Command_line.get "basis" in
match Command_line.get "basis" with
| Some x -> x
| None -> assert false
in
let nuclei_file = let nuclei_file = Util.of_some Command_line.get "xyz" in
match Command_line.get "xyz" with
| Some x -> x
| None -> assert false
in
let charge = let charge =
match Command_line.get "charge" with match Command_line.get "charge" with

12
run_hartree_fock.ml
View File

@ -23,17 +23,9 @@ let () =
end; end;
(* Handle options *) (* Handle options *)
let basis_file = let basis_file = Util.of_some Command_line.get "basis" in
match Command_line.get "basis" with
| Some x -> x
| None -> assert false
in
let nuclei_file = let nuclei_file = Util.of_some Command_line.get "xyz" in
match Command_line.get "xyz" with
| Some x -> x
| None -> assert false
in
let charge = let charge =
match Command_line.get "charge" with match Command_line.get "charge" with