LCPQ
/
QCaml
mirror of https://gitlab.com/scemama/QCaml.git
10
1
Fork 0
Code Releases Activity

Envoi Nico

This commit is contained in:
Anthony Scemama 2020-03-30 18:06:21 +02:00
parent c01b984277
commit 4dccd121e0
2 changed files with 842 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

900
Notebooks/F12_fast.ipynb
View File

File diff suppressed because it is too large Load Diff

16
Simulation.ml
View File

@ -1,6 +1,6 @@
type t = {
charge : Charge.t;
electrons : Electrons.t ;
electrons : Electrons.t;
nuclei : Nuclei.t;
basis : Basis.t;
ao_basis : AOBasis.t;
@ -19,12 +19,12 @@ let mu_erf t = t.mu_erf
let f12 t = t.f12
let make ?cartesian:(cartesian=false)
?multiplicity:(multiplicity=1)
?charge:(charge=0)
?f12
?mu_erf
~nuclei
basis
?multiplicity:(multiplicity=1)
?charge:(charge=0)
?f12
?mu_erf
~nuclei
basis
=
(* Tune Garbage Collector *)
@ -35,7 +35,7 @@ let make ?cartesian:(cartesian=false)
Electrons.make ~multiplicity ~charge nuclei
in
let charge =
let chargre =
Charge.(Nuclei.charge nuclei + Electrons.charge electrons)
in