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

Parallelized ERI with Domainslib

Browse Source
This commit is contained in:
Anthony Scemama 2023-06-16 18:27:23 +02:00
parent b4211b8d85
commit 3f0dbfc928
21 changed files with 671 additions and 397 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/README.org
View File

@ -48,6 +48,7 @@ with open(dunetest,'w') as f:
(synopsis "Test for {name} library") (synopsis "Test for {name} library")
(libraries (libraries
alcotest alcotest
unix
qcaml.{name} qcaml.{name}
) )
) )
@ -61,6 +62,7 @@ with open(dunetest,'w') as f:
str str
zarith zarith
getopt getopt
unix
) )
#+end_src #+end_src

1
common/lib/dune
View File

@ -10,6 +10,7 @@
zarith zarith
getopt getopt
camlp-streams camlp-streams
unix
) )
(c_names (c_names

13
common/lib/qcaml.ml
View File

@ -1,7 +1,8 @@
(* | ~root~ | Path to the QCaml source directory | (* | ~root~ | Path to the QCaml source directory |
* | ~name~ | ~"QCaml"~ | *) * | ~name~ | ~"QCaml"~ |
* | ~num_domains~ | Number of threads in parallel computations | *)
(* [[file:~/QCaml/common/qcaml.org::*QCaml][QCaml:2]] *) (* [[file:~/QCaml/common/qcaml.org::*QCaml][QCaml:2]] *)
@ -18,4 +19,14 @@ let root =
|> chop |> chop
|> List.rev |> List.rev
|> String.concat Filename.dir_sep |> String.concat Filename.dir_sep
let num_domains =
let result =
try
Unix.getenv "OMP_NUM_THREADS"
|> int_of_string
with Not_found -> 1
in
result - 1
(* QCaml:2 ends here *) (* QCaml:2 ends here *)

1
common/lib/qcaml.mli
View File

@ -9,4 +9,5 @@
(* [[file:~/QCaml/common/qcaml.org::*QCaml][QCaml:1]] *) (* [[file:~/QCaml/common/qcaml.org::*QCaml][QCaml:1]] *)
val root : string val root : string
val name : string val name : string
val num_domains : int
(* QCaml:1 ends here *) (* QCaml:1 ends here *)

11
common/qcaml.org
View File

@ -19,10 +19,12 @@
#+begin_src ocaml :tangle (eval mli) #+begin_src ocaml :tangle (eval mli)
val root : string val root : string
val name : string val name : string
val num_domains : int
#+end_src #+end_src
| ~root~ | Path to the QCaml source directory | | ~root~ | Path to the QCaml source directory |
| ~name~ | ~"QCaml"~ | | ~name~ | ~"QCaml"~ |
| ~num_domains~ | Number of threads in parallel computations |
#+begin_src ocaml :tangle (eval ml) :exports none #+begin_src ocaml :tangle (eval ml) :exports none
let name = "QCaml" let name = "QCaml"
@ -40,5 +42,14 @@ let root =
|> String.concat Filename.dir_sep |> String.concat Filename.dir_sep
let num_domains =
let result =
try
Unix.getenv "OMP_NUM_THREADS"
|> int_of_string
with Not_found -> 1
in
result - 1
#+end_src #+end_src

522
docs/common.html
View File

File diff suppressed because it is too large Load Diff

104
docs/gaussian.html
View File

@ -3,7 +3,7 @@
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head> <head>
<!-- 2023-04-24 Mon 19:28 --> <!-- 2023-06-16 Fri 09:49 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" /> <meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Gaussian</title> <title>Gaussian</title>
@ -272,41 +272,41 @@ org_html_manager.setup(); // activate after the parameters are set
<h2>Table of Contents</h2> <h2>Table of Contents</h2>
<div id="text-table-of-contents"> <div id="text-table-of-contents">
<ul> <ul>
<li><a href="#org8752877">1. Summary</a></li> <li><a href="#org418bb17">1. Summary</a></li>
<li><a href="#orgc12310c">2. Atomic shell</a> <li><a href="#org3107c2d">2. Atomic shell</a>
<ul> <ul>
<li><a href="#org3e413df">2.1. Type</a></li> <li><a href="#orgd3e8a3d">2.1. Type</a></li>
<li><a href="#orgaa9e5a8">2.2. Access</a></li> <li><a href="#org3a79952">2.2. Access</a></li>
<li><a href="#org40ea971">2.3. Creation</a></li> <li><a href="#orgf649255">2.3. Creation</a></li>
<li><a href="#org76ce11e">2.4. Printers</a></li> <li><a href="#orgb538194">2.4. Printers</a></li>
</ul> </ul>
</li> </li>
<li><a href="#org20ddf7f">3. Atomic shell pair couple</a> <li><a href="#org055d620">3. Atomic shell pair couple</a>
<ul> <ul>
<li><a href="#org79cc56e">3.1. Type</a></li> <li><a href="#org85660fe">3.1. Type</a></li>
<li><a href="#org2486daa">3.2. Access</a></li> <li><a href="#orgca1d510">3.2. Access</a></li>
<li><a href="#org682c85c">3.3. Creation</a></li> <li><a href="#orgd5c48bb">3.3. Creation</a></li>
<li><a href="#org6d637d8">3.4. Printers</a></li> <li><a href="#org2949ca5">3.4. Printers</a></li>
</ul> </ul>
</li> </li>
<li><a href="#orge37a5fe">4. Atomic shell pair</a> <li><a href="#orge44bc1a">4. Atomic shell pair</a>
<ul> <ul>
<li><a href="#org791264a">4.1. Type</a></li> <li><a href="#org8d76a2d">4.1. Type</a></li>
<li><a href="#orge08787d">4.2. Access</a></li> <li><a href="#orgdb75218">4.2. Access</a></li>
<li><a href="#org49ac790">4.3. Creation</a></li> <li><a href="#org813d710">4.3. Creation</a></li>
<li><a href="#orgb4a074f">4.4. Printers</a></li> <li><a href="#org864a734">4.4. Printers</a></li>
</ul> </ul>
</li> </li>
</ul> </ul>
</div> </div>
</div> </div>
<div id="outline-container-org8752877" class="outline-2"> <div id="outline-container-org418bb17" class="outline-2">
<h2 id="org8752877"><span class="section-number-2">1</span> Summary</h2> <h2 id="org418bb17"><span class="section-number-2">1</span> Summary</h2>
</div> </div>
<div id="outline-container-orgc12310c" class="outline-2"> <div id="outline-container-org3107c2d" class="outline-2">
<h2 id="orgc12310c"><span class="section-number-2">2</span> Atomic shell</h2> <h2 id="org3107c2d"><span class="section-number-2">2</span> Atomic shell</h2>
<div class="outline-text-2" id="text-2"> <div class="outline-text-2" id="text-2">
<p> <p>
Set of contracted Gaussians differing only by the powers of \(x\), \(y\) and \(z\), with a Set of contracted Gaussians differing only by the powers of \(x\), \(y\) and \(z\), with a
@ -339,8 +339,8 @@ particular powers of \(x,y,z\) (<code>PrimitiveShell.norm_coef_scale</code>)</li
</div> </div>
<div id="outline-container-org3e413df" class="outline-3"> <div id="outline-container-orgd3e8a3d" class="outline-3">
<h3 id="org3e413df"><span class="section-number-3">2.1</span> Type</h3> <h3 id="orgd3e8a3d"><span class="section-number-3">2.1</span> Type</h3>
<div class="outline-text-3" id="text-2-1"> <div class="outline-text-3" id="text-2-1">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">type</span> <span class="org-type">t</span> <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">type</span> <span class="org-type">t</span>
@ -351,8 +351,8 @@ particular powers of \(x,y,z\) (<code>PrimitiveShell.norm_coef_scale</code>)</li
</div> </div>
</div> </div>
<div id="outline-container-orgaa9e5a8" class="outline-3"> <div id="outline-container-org3a79952" class="outline-3">
<h3 id="orgaa9e5a8"><span class="section-number-3">2.2</span> Access</h3> <h3 id="org3a79952"><span class="section-number-3">2.2</span> Access</h3>
<div class="outline-text-3" id="text-2-2"> <div class="outline-text-3" id="text-2-2">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">ang_mom</span> <span class="org-tuareg-font-lock-operator">:</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Angular_momentum.</span>t <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">ang_mom</span> <span class="org-tuareg-font-lock-operator">:</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Angular_momentum.</span>t
@ -429,14 +429,14 @@ particular powers of \(x,y,z\) (<code>PrimitiveShell.norm_coef_scale</code>)</li
</tbody> </tbody>
</table> </table>
<pre class="example" id="orgd663d82"> <pre class="example" id="org2dea601">
</pre> </pre>
</div> </div>
</div> </div>
<div id="outline-container-org40ea971" class="outline-3"> <div id="outline-container-orgf649255" class="outline-3">
<h3 id="org40ea971"><span class="section-number-3">2.3</span> Creation</h3> <h3 id="orgf649255"><span class="section-number-3">2.3</span> Creation</h3>
<div class="outline-text-3" id="text-2-3"> <div class="outline-text-3" id="text-2-3">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">make</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-label">?index</span><span class="org-tuareg-font-lock-operator">:</span>int <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Contracted_shell.</span>t array <span class="org-tuareg-font-lock-operator">-&gt;</span> t <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">make</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-label">?index</span><span class="org-tuareg-font-lock-operator">:</span>int <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Contracted_shell.</span>t array <span class="org-tuareg-font-lock-operator">-&gt;</span> t
@ -468,8 +468,8 @@ particular powers of \(x,y,z\) (<code>PrimitiveShell.norm_coef_scale</code>)</li
</div> </div>
</div> </div>
<div id="outline-container-org76ce11e" class="outline-3"> <div id="outline-container-orgb538194" class="outline-3">
<h3 id="org76ce11e"><span class="section-number-3">2.4</span> Printers</h3> <h3 id="orgb538194"><span class="section-number-3">2.4</span> Printers</h3>
<div class="outline-text-3" id="text-2-4"> <div class="outline-text-3" id="text-2-4">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">pp</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-module">Format.</span>formatter <span class="org-tuareg-font-lock-operator">-&gt;</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> unit <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">pp</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-module">Format.</span>formatter <span class="org-tuareg-font-lock-operator">-&gt;</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> unit
@ -479,8 +479,8 @@ particular powers of \(x,y,z\) (<code>PrimitiveShell.norm_coef_scale</code>)</li
</div> </div>
</div> </div>
<div id="outline-container-org20ddf7f" class="outline-2"> <div id="outline-container-org055d620" class="outline-2">
<h2 id="org20ddf7f"><span class="section-number-2">3</span> Atomic shell pair couple</h2> <h2 id="org055d620"><span class="section-number-2">3</span> Atomic shell pair couple</h2>
<div class="outline-text-2" id="text-3"> <div class="outline-text-2" id="text-3">
<p> <p>
An atomic shell pair couple is the cartesian product between two sets of functions, one An atomic shell pair couple is the cartesian product between two sets of functions, one
@ -496,8 +496,8 @@ acting on different electrons, since they will be coupled by a two-electron oper
</div> </div>
<div id="outline-container-org79cc56e" class="outline-3"> <div id="outline-container-org85660fe" class="outline-3">
<h3 id="org79cc56e"><span class="section-number-3">3.1</span> Type</h3> <h3 id="org85660fe"><span class="section-number-3">3.1</span> Type</h3>
<div class="outline-text-3" id="text-3-1"> <div class="outline-text-3" id="text-3-1">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">type</span> <span class="org-type">t</span> <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">type</span> <span class="org-type">t</span>
@ -508,8 +508,8 @@ acting on different electrons, since they will be coupled by a two-electron oper
</div> </div>
</div> </div>
<div id="outline-container-org2486daa" class="outline-3"> <div id="outline-container-orgca1d510" class="outline-3">
<h3 id="org2486daa"><span class="section-number-3">3.2</span> Access</h3> <h3 id="orgca1d510"><span class="section-number-3">3.2</span> Access</h3>
<div class="outline-text-3" id="text-3-2"> <div class="outline-text-3" id="text-3-2">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">ang_mom</span> <span class="org-tuareg-font-lock-operator">:</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Angular_momentum.</span>t <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">ang_mom</span> <span class="org-tuareg-font-lock-operator">:</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Angular_momentum.</span>t
@ -594,8 +594,8 @@ acting on different electrons, since they will be coupled by a two-electron oper
</div> </div>
</div> </div>
<div id="outline-container-org682c85c" class="outline-3"> <div id="outline-container-orgd5c48bb" class="outline-3">
<h3 id="org682c85c"><span class="section-number-3">3.3</span> Creation</h3> <h3 id="orgd5c48bb"><span class="section-number-3">3.3</span> Creation</h3>
<div class="outline-text-3" id="text-3-3"> <div class="outline-text-3" id="text-3-3">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">make</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-label">?cutoff</span><span class="org-tuareg-font-lock-operator">:</span>float <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell_pair.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell_pair.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> t option <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">make</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-label">?cutoff</span><span class="org-tuareg-font-lock-operator">:</span>float <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell_pair.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell_pair.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> t option
@ -621,14 +621,14 @@ Default cutoff is \(\epsilon\).
</tbody> </tbody>
</table> </table>
<pre class="example" id="orgff2a8ea"> <pre class="example" id="org1d1eb7f">
</pre> </pre>
</div> </div>
</div> </div>
<div id="outline-container-org6d637d8" class="outline-3"> <div id="outline-container-org2949ca5" class="outline-3">
<h3 id="org6d637d8"><span class="section-number-3">3.4</span> Printers</h3> <h3 id="org2949ca5"><span class="section-number-3">3.4</span> Printers</h3>
<div class="outline-text-3" id="text-3-4"> <div class="outline-text-3" id="text-3-4">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">pp</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-module">Format.</span>formatter <span class="org-tuareg-font-lock-operator">-&gt;</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> unit <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">pp</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-module">Format.</span>formatter <span class="org-tuareg-font-lock-operator">-&gt;</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> unit
@ -638,8 +638,8 @@ Default cutoff is \(\epsilon\).
</div> </div>
</div> </div>
<div id="outline-container-orge37a5fe" class="outline-2"> <div id="outline-container-orge44bc1a" class="outline-2">
<h2 id="orge37a5fe"><span class="section-number-2">4</span> Atomic shell pair</h2> <h2 id="orge44bc1a"><span class="section-number-2">4</span> Atomic shell pair</h2>
<div class="outline-text-2" id="text-4"> <div class="outline-text-2" id="text-4">
<p> <p>
Data structure to represent pairs of atomic shells. The products of Data structure to represent pairs of atomic shells. The products of
@ -651,8 +651,8 @@ An atomic shell pair is an array of pairs of contracted shells.
</p> </p>
</div> </div>
<div id="outline-container-org791264a" class="outline-3"> <div id="outline-container-org8d76a2d" class="outline-3">
<h3 id="org791264a"><span class="section-number-3">4.1</span> Type</h3> <h3 id="org8d76a2d"><span class="section-number-3">4.1</span> Type</h3>
<div class="outline-text-3" id="text-4-1"> <div class="outline-text-3" id="text-4-1">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">type</span> <span class="org-type">t</span> <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">type</span> <span class="org-type">t</span>
@ -663,8 +663,8 @@ An atomic shell pair is an array of pairs of contracted shells.
</div> </div>
</div> </div>
<div id="outline-container-orge08787d" class="outline-3"> <div id="outline-container-orgdb75218" class="outline-3">
<h3 id="orge08787d"><span class="section-number-3">4.2</span> Access</h3> <h3 id="orgdb75218"><span class="section-number-3">4.2</span> Access</h3>
<div class="outline-text-3" id="text-4-2"> <div class="outline-text-3" id="text-4-2">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">atomic_shell_a</span> <span class="org-tuareg-font-lock-operator">:</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell.</span>t <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">atomic_shell_a</span> <span class="org-tuareg-font-lock-operator">:</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell.</span>t
@ -731,8 +731,8 @@ An atomic shell pair is an array of pairs of contracted shells.
</div> </div>
</div> </div>
<div id="outline-container-org49ac790" class="outline-3"> <div id="outline-container-org813d710" class="outline-3">
<h3 id="org49ac790"><span class="section-number-3">4.3</span> Creation</h3> <h3 id="org813d710"><span class="section-number-3">4.3</span> Creation</h3>
<div class="outline-text-3" id="text-4-3"> <div class="outline-text-3" id="text-4-3">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">make</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-label">?cutoff</span><span class="org-tuareg-font-lock-operator">:</span>float <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> t option <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">make</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-label">?cutoff</span><span class="org-tuareg-font-lock-operator">:</span>float <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> <span class="org-tuareg-font-lock-module">Atomic_shell.</span>t <span class="org-tuareg-font-lock-operator">-&gt;</span> t option
@ -765,8 +765,8 @@ If an atomic shell pair is not significant, sets the value to <code>None</code>.
</div> </div>
</div> </div>
<div id="outline-container-orgb4a074f" class="outline-3"> <div id="outline-container-org864a734" class="outline-3">
<h3 id="orgb4a074f"><span class="section-number-3">4.4</span> Printers</h3> <h3 id="org864a734"><span class="section-number-3">4.4</span> Printers</h3>
<div class="outline-text-3" id="text-4-4"> <div class="outline-text-3" id="text-4-4">
<div class="org-src-container"> <div class="org-src-container">
<pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">pp</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-module">Format.</span>formatter <span class="org-tuareg-font-lock-operator">-&gt;</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> unit <pre class="src src-ocaml"><span class="org-tuareg-font-lock-governing">val</span> <span class="org-function-name">pp</span> <span class="org-tuareg-font-lock-operator">:</span> <span class="org-tuareg-font-lock-module">Format.</span>formatter <span class="org-tuareg-font-lock-operator">-&gt;</span> t <span class="org-tuareg-font-lock-operator">-&gt;</span> unit
@ -778,7 +778,7 @@ If an atomic shell pair is not significant, sets the value to <code>None</code>.
</div> </div>
<div id="postamble" class="status"> <div id="postamble" class="status">
<p class="author">Author: Anthony Scemama</p> <p class="author">Author: Anthony Scemama</p>
<p class="date">Created: 2023-04-24 Mon 19:28</p> <p class="date">Created: 2023-06-16 Fri 09:49</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p> <p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div> </div>
</body> </body>

10
docs/gaussian_integrals.html
View File

@ -3,7 +3,7 @@
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head> <head>
<!-- 2023-04-24 Mon 13:50 --> <!-- 2023-06-16 Fri 18:25 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" /> <meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Gaussian integrals</title> <title>Gaussian integrals</title>
@ -250,18 +250,18 @@ org_html_manager.setup(); // activate after the parameters are set
<h2>Table of Contents</h2> <h2>Table of Contents</h2>
<div id="text-table-of-contents"> <div id="text-table-of-contents">
<ul> <ul>
<li><a href="#orgdc976ae">1. Summary</a></li> <li><a href="#org78d032d">1. Summary</a></li>
</ul> </ul>
</div> </div>
</div> </div>
<div id="outline-container-orgdc976ae" class="outline-2"> <div id="outline-container-org78d032d" class="outline-2">
<h2 id="orgdc976ae"><span class="section-number-2">1</span> Summary</h2> <h2 id="org78d032d"><span class="section-number-2">1</span> Summary</h2>
</div> </div>
</div> </div>
<div id="postamble" class="status"> <div id="postamble" class="status">
<p class="author">Author: Anthony Scemama</p> <p class="author">Author: Anthony Scemama</p>
<p class="date">Created: 2023-04-24 Mon 13:50</p> <p class="date">Created: 2023-06-16 Fri 18:25</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p> <p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div> </div>
</body> </body>

10
docs/linear_algebra.html
View File

@ -3,7 +3,7 @@
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head> <head>
<!-- 2022-12-13 Tue 10:55 --> <!-- 2023-05-26 Fri 15:34 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" /> <meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Linear Algebra</title> <title>Linear Algebra</title>
@ -250,18 +250,18 @@ org_html_manager.setup(); // activate after the parameters are set
<h2>Table of Contents</h2> <h2>Table of Contents</h2>
<div id="text-table-of-contents"> <div id="text-table-of-contents">
<ul> <ul>
<li><a href="#orgb899d84">1. Summary</a></li> <li><a href="#orgdf211e4">1. Summary</a></li>
</ul> </ul>
</div> </div>
</div> </div>
<div id="outline-container-orgb899d84" class="outline-2"> <div id="outline-container-orgdf211e4" class="outline-2">
<h2 id="orgb899d84"><span class="section-number-2">1</span> Summary</h2> <h2 id="orgdf211e4"><span class="section-number-2">1</span> Summary</h2>
</div> </div>
</div> </div>
<div id="postamble" class="status"> <div id="postamble" class="status">
<p class="author">Author: Anthony Scemama</p> <p class="author">Author: Anthony Scemama</p>
<p class="date">Created: 2022-12-13 Tue 10:55</p> <p class="date">Created: 2023-05-26 Fri 15:34</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p> <p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div> </div>
</body> </body>

10
docs/top.html
View File

@ -3,7 +3,7 @@
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head> <head>
<!-- 2023-04-24 Mon 19:28 --> <!-- 2023-06-16 Fri 18:25 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" /> <meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Top-level</title> <title>Top-level</title>
@ -250,18 +250,18 @@ org_html_manager.setup(); // activate after the parameters are set
<h2>Table of Contents</h2> <h2>Table of Contents</h2>
<div id="text-table-of-contents"> <div id="text-table-of-contents">
<ul> <ul>
<li><a href="#orgab35359">1. Summary</a></li> <li><a href="#orga2f9258">1. Summary</a></li>
</ul> </ul>
</div> </div>
</div> </div>
<div id="outline-container-orgab35359" class="outline-2"> <div id="outline-container-orga2f9258" class="outline-2">
<h2 id="orgab35359"><span class="section-number-2">1</span> Summary</h2> <h2 id="orga2f9258"><span class="section-number-2">1</span> Summary</h2>
</div> </div>
</div> </div>
<div id="postamble" class="status"> <div id="postamble" class="status">
<p class="author">Author: Anthony Scemama</p> <p class="author">Author: Anthony Scemama</p>
<p class="date">Created: 2023-04-24 Mon 19:28</p> <p class="date">Created: 2023-06-16 Fri 18:25</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p> <p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div> </div>
</body> </body>

3
dune-project
View File

@ -25,7 +25,7 @@
QCaml provides a programming framewrok work wave function methods QCaml provides a programming framewrok work wave function methods
in quantum chemistry.") in quantum chemistry.")
(depends (depends
(ocaml (>= 4.10)) (ocaml (>= 5.0))
(dune (>= 1.10)) (dune (>= 1.10))
(camlp-streams (>= 5.0)) (camlp-streams (>= 5.0))
trexio trexio
@ -33,6 +33,7 @@ in quantum chemistry.")
getopt getopt
zarith zarith
alcotest alcotest
domainslib
) )
) )

18
examples/ex_hartree_fock.ml
View File

@ -1,11 +1,11 @@
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Header][Header:1]] *) (* [[file:ex_hartree_fock.org::*Header][Header:1]] *)
module Command_line = Qcaml.Common.Command_line module Command_line = Qcaml.Common.Command_line
module Util = Qcaml.Common.Util module Util = Qcaml.Common.Util
let () = let () =
(* Header:1 ends here *) (* Header:1 ends here *)
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Definition][Definition:1]] *) (* [[file:ex_hartree_fock.org::*Definition][Definition:1]] *)
let open Command_line in let open Command_line in
begin begin
set_header_doc (Sys.argv.(0)); set_header_doc (Sys.argv.(0));
@ -31,7 +31,7 @@ begin
end; end;
(* Definition:1 ends here *) (* Definition:1 ends here *)
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Interpretation][Interpretation:1]] *) (* [[file:ex_hartree_fock.org::*Interpretation][Interpretation:1]] *)
let basis_file = Util.of_some @@ Command_line.get "basis" in let basis_file = Util.of_some @@ Command_line.get "basis" in
let nuclei_file = Util.of_some @@ Command_line.get "xyz" in let nuclei_file = Util.of_some @@ Command_line.get "xyz" in
@ -51,26 +51,26 @@ let multiplicity =
in in
(* Interpretation:1 ends here *) (* Interpretation:1 ends here *)
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Computation][Computation:1]] *) (* [[file:ex_hartree_fock.org::*Computation][Computation:1]] *)
let nuclei = let nuclei =
Qcaml.Particles.Nuclei.of_xyz_file nuclei_file Qcaml.Particles.Nuclei.of_xyz_file nuclei_file
in in
(* Computation:1 ends here *) (* Computation:1 ends here *)
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Computation][Computation:2]] *) (* [[file:ex_hartree_fock.org::*Computation][Computation:2]] *)
let ao_basis = let ao_basis =
Qcaml.Ao.Basis.of_nuclei_and_basis_filename ~nuclei basis_file Qcaml.Ao.Basis.of_nuclei_and_basis_filename ~nuclei basis_file
in in
(* Computation:2 ends here *) (* Computation:2 ends here *)
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Computation][Computation:3]] *) (* [[file:ex_hartree_fock.org::*Computation][Computation:3]] *)
let simulation = Qcaml.Simulation.make ~charge ~multiplicity ~nuclei ao_basis in let simulation = Qcaml.Simulation.make ~multiplicity ~charge ~nuclei ao_basis in
(* Computation:3 ends here *) (* Computation:3 ends here *)
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Computation][Computation:4]] *) (* [[file:ex_hartree_fock.org::*Computation][Computation:4]] *)
let hf = Qcaml.Mo.Hartree_fock.make ~guess:`Huckel simulation in let hf = Qcaml.Mo.Hartree_fock.make ~guess:`Huckel simulation in
(* Computation:4 ends here *) (* Computation:4 ends here *)
(* [[file:~/QCaml/examples/ex_hartree_fock.org::*Output][Output:1]] *) (* [[file:ex_hartree_fock.org::*Output][Output:1]] *)
Format.printf "@[%a@]" (Mo.Hartree_fock.pp) hf Format.printf "@[%a@]" (Mo.Hartree_fock.pp) hf
(* Output:1 ends here *) (* Output:1 ends here *)

6
examples/ex_hartree_fock.org
View File

@ -75,14 +75,16 @@ in
#+END_SRC #+END_SRC
* Computation * Computation
We first read the =xyz= file to create a molecule: We first read the =xyz= file to create a molecule:
#+BEGIN_SRC ocaml :comments link :exports code :tangle ex_hartree_fock.ml #+BEGIN_SRC ocaml :comments link :exports code :tangle ex_hartree_fock.ml
let nuclei = let nuclei =
Qcaml.Particles.Nuclei.of_xyz_file nuclei_file Qcaml.Particles.Nuclei.of_xyz_file nuclei_file
in in
#+END_SRC #+END_SRC
Then we create an Gaussian AO basis using the atomic coordinates: Then we create a Gaussian AO basis using the atomic coordinates:
#+BEGIN_SRC ocaml :comments link :exports code :tangle ex_hartree_fock.ml #+BEGIN_SRC ocaml :comments link :exports code :tangle ex_hartree_fock.ml
let ao_basis = let ao_basis =
Qcaml.Ao.Basis.of_nuclei_and_basis_filename ~nuclei basis_file Qcaml.Ao.Basis.of_nuclei_and_basis_filename ~nuclei basis_file
@ -91,7 +93,7 @@ in
We create a simulation from the nuclei and the basis set: We create a simulation from the nuclei and the basis set:
#+BEGIN_SRC ocaml :comments link :exports code :tangle ex_hartree_fock.ml #+BEGIN_SRC ocaml :comments link :exports code :tangle ex_hartree_fock.ml
let simulation = Qcaml.Simulation.make ~nuclei ao_basis in let simulation = Qcaml.Simulation.make ~multiplicity ~charge ~nuclei ao_basis in
#+END_SRC #+END_SRC
and we can make the Hartree-Fock computation: and we can make the Hartree-Fock computation:

24
gaussian/lib/basis.ml
View File

@ -107,13 +107,6 @@ let of_nuclei_and_basis_filenames ~nuclei filenames =
let of_trexio f = let of_trexio f =
let nuclei = Particles.Nuclei.of_trexio f in let nuclei = Particles.Nuclei.of_trexio f in
(*
let nucl_num = Array.length nuclei in
let prim_num = Trexio.read_basis_prim_num f in
let shell_num = Trexio.read_basis_shell_num f in
let shell_factor = Trexio.read_basis_shell_factor f in
let prim_factor = Trexio.read_basis_prim_factor f in
*)
let shell_ang_mom = Trexio.read_basis_shell_ang_mom f let shell_ang_mom = Trexio.read_basis_shell_ang_mom f
|> Array.map Common.Angular_momentum.of_int |> Array.map Common.Angular_momentum.of_int
in in
@ -181,8 +174,23 @@ let of_trexio f =
general_basis = []; general_basis = [];
} }
let to_trexio _ _ = let to_trexio _f _t =
failwith "Not implemented"
(*
Trexio.write_basis_type f "Gaussian" ;
Trexio.write_basis_shell_num f t.size;
let prim_num =
Array.fold_left (fun accu i -> accu + Array.length i) 0 t.contracted_shells
in
Trexio.read_basis_prim_num f prim_num;
let nucleus_index =
Array.map
in
let shell_factor = Trexio.read_basis_shell_factor f in
let prim_factor =
Trexio.read_basis_prim_factor f in
() ()
*)
let pp ppf t = let pp ppf t =
Format.fprintf ppf "@[%s@]" (to_string t) Format.fprintf ppf "@[%s@]" (to_string t)

1
gaussian_integrals/README.org
View File

@ -50,6 +50,7 @@ with open(dunetest,'w') as f:
alcotest alcotest
unix unix
trexio trexio
domainslib
qcaml.{name} qcaml.{name}
) )
) )

1
gaussian_integrals/lib/dune
View File

@ -11,6 +11,7 @@
qcaml.gaussian qcaml.gaussian
qcaml.operators qcaml.operators
unix unix
domainslib
) )
(modules_without_implementation matrix_on_basis) (modules_without_implementation matrix_on_basis)

33
gaussian_integrals/lib/two_electron_integrals.ml
View File

@ -1,6 +1,7 @@
(** Two electron integrals (** Two electron integrals
*) *)
open Common open Common
open Linear_algebra open Linear_algebra
open Gaussian open Gaussian
@ -15,6 +16,7 @@ module Csp = Contracted_shell_pair
module Cspc = Contracted_shell_pair_couple module Cspc = Contracted_shell_pair_couple
module Fis = Four_idx_storage module Fis = Four_idx_storage
module type Two_ei_structure = module type Two_ei_structure =
sig sig
val name : string val name : string
@ -23,6 +25,7 @@ module type Two_ei_structure =
end end
module Make(T : Two_ei_structure) = struct module Make(T : Two_ei_structure) = struct
include Four_idx_storage include Four_idx_storage
@ -92,19 +95,11 @@ module Make(T : Two_ei_structure) = struct
Printf.printf "%d significant shell pairs computed in %f seconds\n" Printf.printf "%d significant shell pairs computed in %f seconds\n"
(List.length shell_pairs) (Unix.gettimeofday () -. t0); (List.length shell_pairs) (Unix.gettimeofday () -. t0);
let ishell = ref max_int in
let t0 = Unix.gettimeofday () in let t0 = Unix.gettimeofday () in
let f shell_p = let f shell_p =
let () = let () =
(* Printf.printf "%3d %3d\n%!" (Cs.index (Csp.shell_a shell_p)) (Cs.index (Csp.shell_b shell_p))
if Parallel.rank < 2 && Cs.index (Csp.shell_a shell_p) < !ishell then
*)
if Cs.index (Csp.shell_a shell_p) < !ishell then
(ishell := Cs.index (Csp.shell_a shell_p) ; print_int !ishell ; print_newline ())
in in
let sp = let sp =
@ -137,15 +132,19 @@ module Make(T : Two_ei_structure) = struct
with Exit -> () with Exit -> ()
in in
(*
List.rev shell_pairs
*) let pool = Domainslib.Task.setup_pool ~num_domains:Qcaml.num_domains () in
let _ =
Domainslib.Task.run pool (fun _ ->
shell_pairs shell_pairs
(* |> List.map (fun sp ->
|> Parallel.list_iter f ; Domainslib.Task.async pool (fun _ -> f sp) )
*) |> List.iter (fun task -> ignore (Domainslib.Task.await pool task) ) ;
|> List.iter f; )
Printf.printf "Computed %s Integrals in parallel in %f seconds\n%!" in
Domainslib.Task.teardown_pool pool;
Printf.printf "Computed %s Integrals in %f seconds\n%!"
T.name (Unix.gettimeofday () -. t0); T.name (Unix.gettimeofday () -. t0);
eri_array eri_array

229
linear_algebra/lib/cholesky.ml Normal file
View File

@ -0,0 +1,229 @@
open Lacaml.D
let full_ldl m_A =
let n = Mat.dim1 m_A in
assert (Mat.dim2 m_A = n);
let v_D = Vec.make0 n in
let m_Lt = Mat.identity n in
let v_D_inv = Vec.make0 n in
let compute_d j =
let l_jk =
Mat.col m_Lt j
in
let l_jk__d_k =
Vec.mul ~n:(j-1) l_jk v_D
in
m_A.{j,j} -. dot ~n:(j-1) l_jk l_jk__d_k
in
let compute_l i =
let l_ik__d_k =
Mat.col m_Lt i
|> Vec.mul ~n:(i-1) v_D
in
fun j ->
assert (i > j);
let l_jk =
Mat.col m_Lt j
in
v_D_inv.{j} *. ( m_A.{j,i} -. dot ~n:(j-1) l_ik__d_k l_jk )
in
for i=1 to n do
for j=1 to (i-1) do
m_Lt.{j,i} <- compute_l i j;
done;
let d_i = compute_d i in
v_D.{i} <- d_i;
v_D_inv.{i} <- 1. /. d_i;
done;
m_Lt, v_D
let pivoted_ldl threshold m_A =
(* {% $P A P^\dagger = L D L^\dagger$. %}
Input : Matrix $A$
Output : Matrices $L, D, P$.
*)
let n = Mat.dim1 m_A in
assert (Mat.dim2 m_A = n);
let pi = Array.init (n+1) (fun i -> i) in
let v_D = Vec.init n (fun i -> abs_float m_A.{i,i}) in
let m_Lt = Mat.identity n in
let v_D_inv = Vec.make0 n in
let compute_d i =
let l_ik =
Mat.col m_Lt i
in
let l_ik__d_k =
Vec.mul ~n:(i-1) l_ik v_D
in
m_A.{pi.(i),pi.(i)} -. dot ~n:(i-1) l_ik l_ik__d_k
in
let compute_l i =
let l_ik__d_k =
Mat.col m_Lt i
|> Vec.mul ~n:(i-1) v_D
in
fun j ->
assert (i > j);
let l_jk =
Mat.col m_Lt j
in
v_D_inv.{j} *. ( m_A.{pi.(j),pi.(i)} -. dot ~n:(j-1) l_ik__d_k l_jk )
in
let maxloc v i =
let rec aux pos value i =
if i > n then
pos
else if v_D.{i} > value then
aux i v_D.{i} (i+1)
else
aux pos value (i+1)
in
aux i v.{i} (i+1)
in
let pivot i =
let j = maxloc v_D i in
let p_i, p_j = pi.(i), pi.(j) in
pi.(i) <- p_j;
pi.(j) <- p_i;
in
let () =
try
for i=1 to n do
pivot i;
for j=1 to (i-1) do
m_Lt.{j,i} <- compute_l i j;
done;
let d_i = compute_d i in
if abs_float d_i < threshold then
raise Exit;
v_D.{i} <- d_i;
v_D_inv.{i} <- 1. /. d_i;
done
with Exit -> ()
in
m_Lt, v_D, pi
(*
let test_case () =
let matrix_diff m_A m_B =
Mat.syrk_trace (Mat.sub m_A m_B)
in
let vector_diff v_A v_B =
let v = Vec.sub v_A v_B in
dot v v
in
let m_A = Mat.random 1000 1000 in
let m_A = Mat.add m_A (Mat.transpose_copy m_A) in
let test_full_small () =
let m_A =
Mat.of_array [| [| 4. ; 12. ; -16. |] ;
[| 12. ; 37. ; -43. |] ;
[| -16. ; -43. ; 98. |] |]
in
let m_L_ref =
Mat.of_array [| [| 1. ; 0. ; 0. |] ;
[| 3. ; 1. ; 0. |] ;
[| -4. ; 5. ; 1. |] |]
in
let m_Lt_ref =
Mat.transpose_copy m_L_ref
in
let v_D_ref =
Vec.of_array [| 4. ; 1. ; 9. |]
in
let m_Lt, v_D = full_ldl m_A in
Alcotest.(check (float 1.e-15)) "full L" 0. (matrix_diff m_Lt m_Lt_ref);
Alcotest.(check (float 1.e-15)) "full D" 0. (vector_diff v_D v_D_ref);
let m_D = Mat.of_diag v_D in
let m_B = gemm ~transa:`T m_Lt @@ gemm m_D m_Lt in
Alcotest.(check (float 1.e-15)) "full L" 0. (matrix_diff m_A m_B);
()
in
let test_full () =
let m_Lt, v_D = full_ldl m_A in
let m_D = Mat.of_diag v_D in
let m_B = gemm ~transa:`T m_Lt @@ gemm m_D m_Lt in
Alcotest.(check (float 1.e-15)) "full D" 0. (matrix_diff m_A m_B);
()
in
let test_pivoted () =
let m_Lt, v_D, pi = pivoted_ldl 0. m_A in
let n = Mat.dim1 m_A in
let m_P = Mat.make0 n n in
for i=1 to n do
m_P.{i,pi.(i)} <- 1.
done;
let m_D = Mat.of_diag v_D in
let m_B =
gemm ~transa:`T m_P @@
gemm ~transa:`T m_Lt @@
gemm m_D @@
gemm m_Lt m_P
in
Alcotest.(check (float 1.e-14)) "pivoted D" 0. (matrix_diff m_A m_B);
()
in
let test_truncated () =
let m_Lt, v_D, pi = pivoted_ldl 0.001 m_A in
let n = Mat.dim1 m_Lt in
let m_P = Mat.make0 n n in
for i=1 to n do
m_P.{i,pi.(i)} <- 1.
done;
let m_D = Mat.of_diag v_D in
let m_B =
gemm ~transa:`T m_P @@
gemm ~transa:`T m_Lt @@
gemm m_D @@
gemm m_Lt m_P
in
Alcotest.(check (float 1.e-3)) "full D" 0. (matrix_diff m_A m_B);
()
in
[
"Small", `Quick, test_full_small;
"Full", `Quick, test_full;
"Pivoted", `Quick, test_pivoted ;
"Truncated", `Quick, test_truncated ;
]
*)

3
qcaml.opam
View File

@ -18,7 +18,7 @@ description: """
QCaml provides a programming framewrok work wave function methods QCaml provides a programming framewrok work wave function methods
in quantum chemistry.""" in quantum chemistry."""
depends: [ depends: [
"ocaml" {>= "4.10"} "ocaml" {>= "5.0"}
"dune" {>= "1.10"} "dune" {>= "1.10"}
"camlp-streams" {>= "5.0"} "camlp-streams" {>= "5.0"}
"trexio" "trexio"
@ -26,4 +26,5 @@ depends: [
"getopt" "getopt"
"zarith" "zarith"
"alcotest" "alcotest"
"domainslib"
] ]

10
simulation/lib/simulation.ml
View File

@ -1,10 +1,10 @@
(* [[file:~/QCaml/simulation/simulation.org::*Simulation][Simulation:2]] *) (* [[file:../simulation.org::*Simulation][Simulation:2]] *)
open Common open Common
open Particles open Particles
open Operators open Operators
(* Simulation:2 ends here *) (* Simulation:2 ends here *)
(* [[file:~/QCaml/simulation/simulation.org::*Type][Type:2]] *) (* [[file:../simulation.org::*Type][Type:2]] *)
type t = { type t = {
charge : Charge.t; charge : Charge.t;
electrons : Electrons.t; electrons : Electrons.t;
@ -24,7 +24,7 @@ type t = {
* | ~operators~ | List of extra operators (range-separation, f12, etc) | *) * | ~operators~ | List of extra operators (range-separation, f12, etc) | *)
(* [[file:~/QCaml/simulation/simulation.org::*Access][Access:2]] *) (* [[file:../simulation.org::*Access][Access:2]] *)
let nuclei t = t.nuclei let nuclei t = t.nuclei
let charge t = t.charge let charge t = t.charge
let electrons t = t.electrons let electrons t = t.electrons
@ -41,7 +41,7 @@ let operators t = t.operators
* - operators : ~[]~ *) * - operators : ~[]~ *)
(* [[file:~/QCaml/simulation/simulation.org::*Creation][Creation:2]] *) (* [[file:../simulation.org::*Creation][Creation:2]] *)
let make let make
?(multiplicity=1) ?(multiplicity=1)
?(charge=0) ?(charge=0)
@ -65,7 +65,7 @@ let make
{ charge ; nuclei ; electrons ; ao_basis ; operators} { charge ; nuclei ; electrons ; ao_basis ; operators}
(* Creation:2 ends here *) (* Creation:2 ends here *)
(* [[file:~/QCaml/simulation/simulation.org::*Printers][Printers:2]] *) (* [[file:../simulation.org::*Printers][Printers:2]] *)
let pp ppf t = let pp ppf t =
let formula = Nuclei.formula t.nuclei in let formula = Nuclei.formula t.nuclei in
let n_aos = Ao.Basis.size t.ao_basis in let n_aos = Ao.Basis.size t.ao_basis in

10
simulation/lib/simulation.mli
View File

@ -7,7 +7,7 @@
* *
* #+NAME: open *) * #+NAME: open *)
(* [[file:~/QCaml/simulation/simulation.org::open][open]] *) (* [[file:../simulation.org::open][open]] *)
open Common open Common
open Particles open Particles
open Operators open Operators
@ -17,14 +17,14 @@ open Operators
* *
* #+NAME: types *) * #+NAME: types *)
(* [[file:~/QCaml/simulation/simulation.org::types][types]] *) (* [[file:../simulation.org::types][types]] *)
type t type t
(* types ends here *) (* types ends here *)
(* Access *) (* Access *)
(* [[file:~/QCaml/simulation/simulation.org::*Access][Access:1]] *) (* [[file:../simulation.org::*Access][Access:1]] *)
val nuclei : t -> Nuclei.t val nuclei : t -> Nuclei.t
val charge : t -> Charge.t val charge : t -> Charge.t
val electrons : t -> Electrons.t val electrons : t -> Electrons.t
@ -36,7 +36,7 @@ val operators : t -> Operator.t list
(* Creation *) (* Creation *)
(* [[file:~/QCaml/simulation/simulation.org::*Creation][Creation:1]] *) (* [[file:../simulation.org::*Creation][Creation:1]] *)
val make : ?multiplicity:int -> ?charge:int -> val make : ?multiplicity:int -> ?charge:int ->
?operators:Operator.t list-> nuclei:Nuclei.t -> ?operators:Operator.t list-> nuclei:Nuclei.t ->
Ao.Basis.t -> t Ao.Basis.t -> t
@ -45,6 +45,6 @@ val make : ?multiplicity:int -> ?charge:int ->
(* Printers *) (* Printers *)
(* [[file:~/QCaml/simulation/simulation.org::*Printers][Printers:1]] *) (* [[file:../simulation.org::*Printers][Printers:1]] *)
val pp : Format.formatter -> t -> unit val pp : Format.formatter -> t -> unit
(* Printers:1 ends here *) (* Printers:1 ends here *)