LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-09 07:33:40 +01:00
Code Releases Activity

Merge branch 'master' of https://gitlab.com/zetalpha321/QCaml

Browse Source
This commit is contained in:
Yann Damour 2020-07-08 11:40:06 +02:00
commit 44d459b96d
4 changed files with 7703 additions and 230 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5565
Notebooks/F12_fast.ipynb
View File

File diff suppressed because it is too large Load Diff

2
run_hartree_fock.ml
View File

@ -54,7 +54,7 @@ let () =
let guess = let guess =
match Command_line.get "guess" with match Command_line.get "guess" with
| None -> `Hcore | None -> `Huckel
| Some filename -> | Some filename ->
let s_guess = Simulation.of_filenames let s_guess = Simulation.of_filenames
~charge ~multiplicity ~nuclei:nuclei_file filename in ~charge ~multiplicity ~nuclei:nuclei_file filename in

15
run_integrals.ml
View File

@ -1,16 +1,22 @@
let out_file : string option ref = ref None let out_file : string option ref = ref None
let basis_file : string option ref = ref None let basis_file : string option ref = ref None
let nuclei_file : string option ref = ref None let nuclei_file : string option ref = ref None
let charge : int option ref = ref None
let multiplicity : int option ref = ref None
let range_separation : float option ref = ref None let range_separation : float option ref = ref None
let speclist = [ let speclist = [
( "-b" , Arg.String (fun x -> basis_file := Some x), ( "-b" , Arg.String (fun x -> basis_file := Some x),
"File containing the atomic basis set") ; "File containing the atomic basis set") ;
( "-c" , Arg.Int (fun x -> charge := Some x),
"Total charge of the system") ;
( "-m" , Arg.Int (fun x -> multiplicity := Some x),
"Multiplicity of the system") ;
( "-x" , Arg.String (fun x -> nuclei_file := Some x), ( "-x" , Arg.String (fun x -> nuclei_file := Some x),
"File containing the nuclear coordinates") ; "File containing the nuclear coordinates") ;
( "-m" , Arg.Float (fun x -> range_separation := Some x), ( "-u" , Arg.Float (fun x -> range_separation := Some x),
"Value of mu, the range separation factor.") ; "Value of mu, the range separation factor") ;
] ]
let run () = let run () =
@ -23,10 +29,13 @@ let run () =
| None -> raise (Invalid_argument "Coordinate file should be specified with -x") | None -> raise (Invalid_argument "Coordinate file should be specified with -x")
| Some x -> x | Some x -> x
and range_separation = !range_separation and range_separation = !range_separation
and charge = !charge
and multiplicity = !multiplicity
in in
let s = let s =
Simulation.of_filenames ?range_separation ~nuclei:nuclei_file basis_file Simulation.of_filenames ?range_separation ?charge ?multiplicity
~nuclei:nuclei_file basis_file
in in
print_endline @@ Nuclei.to_string @@ Simulation.nuclei s; print_endline @@ Nuclei.to_string @@ Simulation.nuclei s;

2309
run_test_f12.ml Normal file
View File

File diff suppressed because it is too large Load Diff