1
0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-05-01 12:54:46 +02:00
qmckl/qmckl_local_energy.html

1294 lines
57 KiB
HTML

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<!-- 2025-04-29 Tue 08:44 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Local Energy</title>
<meta name="author" content="TREX CoE" />
<meta name="generator" content="Org Mode" />
<style>
#content { max-width: 60em; margin: auto; }
.title { text-align: center;
margin-bottom: .2em; }
.subtitle { text-align: center;
font-size: medium;
font-weight: bold;
margin-top:0; }
.todo { font-family: monospace; color: red; }
.done { font-family: monospace; color: green; }
.priority { font-family: monospace; color: orange; }
.tag { background-color: #eee; font-family: monospace;
padding: 2px; font-size: 80%; font-weight: normal; }
.timestamp { color: #bebebe; }
.timestamp-kwd { color: #5f9ea0; }
.org-right { margin-left: auto; margin-right: 0px; text-align: right; }
.org-left { margin-left: 0px; margin-right: auto; text-align: left; }
.org-center { margin-left: auto; margin-right: auto; text-align: center; }
.underline { text-decoration: underline; }
#postamble p, #preamble p { font-size: 90%; margin: .2em; }
p.verse { margin-left: 3%; }
pre {
border: 1px solid #e6e6e6;
border-radius: 3px;
background-color: #f2f2f2;
padding: 8pt;
font-family: monospace;
overflow: auto;
margin: 1.2em;
}
pre.src {
position: relative;
overflow: auto;
}
pre.src:before {
display: none;
position: absolute;
top: -8px;
right: 12px;
padding: 3px;
color: #555;
background-color: #f2f2f299;
}
pre.src:hover:before { display: inline; margin-top: 14px;}
/* Languages per Org manual */
pre.src-asymptote:before { content: 'Asymptote'; }
pre.src-awk:before { content: 'Awk'; }
pre.src-authinfo::before { content: 'Authinfo'; }
pre.src-C:before { content: 'C'; }
/* pre.src-C++ doesn't work in CSS */
pre.src-clojure:before { content: 'Clojure'; }
pre.src-css:before { content: 'CSS'; }
pre.src-D:before { content: 'D'; }
pre.src-ditaa:before { content: 'ditaa'; }
pre.src-dot:before { content: 'Graphviz'; }
pre.src-calc:before { content: 'Emacs Calc'; }
pre.src-emacs-lisp:before { content: 'Emacs Lisp'; }
pre.src-fortran:before { content: 'Fortran'; }
pre.src-gnuplot:before { content: 'gnuplot'; }
pre.src-haskell:before { content: 'Haskell'; }
pre.src-hledger:before { content: 'hledger'; }
pre.src-java:before { content: 'Java'; }
pre.src-js:before { content: 'Javascript'; }
pre.src-latex:before { content: 'LaTeX'; }
pre.src-ledger:before { content: 'Ledger'; }
pre.src-lisp:before { content: 'Lisp'; }
pre.src-lilypond:before { content: 'Lilypond'; }
pre.src-lua:before { content: 'Lua'; }
pre.src-matlab:before { content: 'MATLAB'; }
pre.src-mscgen:before { content: 'Mscgen'; }
pre.src-ocaml:before { content: 'Objective Caml'; }
pre.src-octave:before { content: 'Octave'; }
pre.src-org:before { content: 'Org mode'; }
pre.src-oz:before { content: 'OZ'; }
pre.src-plantuml:before { content: 'Plantuml'; }
pre.src-processing:before { content: 'Processing.js'; }
pre.src-python:before { content: 'Python'; }
pre.src-R:before { content: 'R'; }
pre.src-ruby:before { content: 'Ruby'; }
pre.src-sass:before { content: 'Sass'; }
pre.src-scheme:before { content: 'Scheme'; }
pre.src-screen:before { content: 'Gnu Screen'; }
pre.src-sed:before { content: 'Sed'; }
pre.src-sh:before { content: 'shell'; }
pre.src-sql:before { content: 'SQL'; }
pre.src-sqlite:before { content: 'SQLite'; }
/* additional languages in org.el's org-babel-load-languages alist */
pre.src-forth:before { content: 'Forth'; }
pre.src-io:before { content: 'IO'; }
pre.src-J:before { content: 'J'; }
pre.src-makefile:before { content: 'Makefile'; }
pre.src-maxima:before { content: 'Maxima'; }
pre.src-perl:before { content: 'Perl'; }
pre.src-picolisp:before { content: 'Pico Lisp'; }
pre.src-scala:before { content: 'Scala'; }
pre.src-shell:before { content: 'Shell Script'; }
pre.src-ebnf2ps:before { content: 'ebfn2ps'; }
/* additional language identifiers per "defun org-babel-execute"
in ob-*.el */
pre.src-cpp:before { content: 'C++'; }
pre.src-abc:before { content: 'ABC'; }
pre.src-coq:before { content: 'Coq'; }
pre.src-groovy:before { content: 'Groovy'; }
/* additional language identifiers from org-babel-shell-names in
ob-shell.el: ob-shell is the only babel language using a lambda to put
the execution function name together. */
pre.src-bash:before { content: 'bash'; }
pre.src-csh:before { content: 'csh'; }
pre.src-ash:before { content: 'ash'; }
pre.src-dash:before { content: 'dash'; }
pre.src-ksh:before { content: 'ksh'; }
pre.src-mksh:before { content: 'mksh'; }
pre.src-posh:before { content: 'posh'; }
/* Additional Emacs modes also supported by the LaTeX listings package */
pre.src-ada:before { content: 'Ada'; }
pre.src-asm:before { content: 'Assembler'; }
pre.src-caml:before { content: 'Caml'; }
pre.src-delphi:before { content: 'Delphi'; }
pre.src-html:before { content: 'HTML'; }
pre.src-idl:before { content: 'IDL'; }
pre.src-mercury:before { content: 'Mercury'; }
pre.src-metapost:before { content: 'MetaPost'; }
pre.src-modula-2:before { content: 'Modula-2'; }
pre.src-pascal:before { content: 'Pascal'; }
pre.src-ps:before { content: 'PostScript'; }
pre.src-prolog:before { content: 'Prolog'; }
pre.src-simula:before { content: 'Simula'; }
pre.src-tcl:before { content: 'tcl'; }
pre.src-tex:before { content: 'TeX'; }
pre.src-plain-tex:before { content: 'Plain TeX'; }
pre.src-verilog:before { content: 'Verilog'; }
pre.src-vhdl:before { content: 'VHDL'; }
pre.src-xml:before { content: 'XML'; }
pre.src-nxml:before { content: 'XML'; }
/* add a generic configuration mode; LaTeX export needs an additional
(add-to-list 'org-latex-listings-langs '(conf " ")) in .emacs */
pre.src-conf:before { content: 'Configuration File'; }
table { border-collapse:collapse; }
caption.t-above { caption-side: top; }
caption.t-bottom { caption-side: bottom; }
td, th { vertical-align:top; }
th.org-right { text-align: center; }
th.org-left { text-align: center; }
th.org-center { text-align: center; }
td.org-right { text-align: right; }
td.org-left { text-align: left; }
td.org-center { text-align: center; }
dt { font-weight: bold; }
.footpara { display: inline; }
.footdef { margin-bottom: 1em; }
.figure { padding: 1em; }
.figure p { text-align: center; }
.equation-container {
display: table;
text-align: center;
width: 100%;
}
.equation {
vertical-align: middle;
}
.equation-label {
display: table-cell;
text-align: right;
vertical-align: middle;
}
.inlinetask {
padding: 10px;
border: 2px solid gray;
margin: 10px;
background: #ffffcc;
}
#org-div-home-and-up
{ text-align: right; font-size: 70%; white-space: nowrap; }
textarea { overflow-x: auto; }
.linenr { font-size: smaller }
.code-highlighted { background-color: #ffff00; }
.org-info-js_info-navigation { border-style: none; }
#org-info-js_console-label
{ font-size: 10px; font-weight: bold; white-space: nowrap; }
.org-info-js_search-highlight
{ background-color: #ffff00; color: #000000; font-weight: bold; }
.org-svg { }
</style>
<link rel="stylesheet" title="Standard" href="qmckl.css" type="text/css" />
<script src="org-info.js">
// @license magnet:?xt=urn:btih:1f739d935676111cfff4b4693e3816e664797050&amp;dn=gpl-3.0.txt GPL-v3-or-Later
// @license-end
</script>
<script>
// @license magnet:?xt=urn:btih:1f739d935676111cfff4b4693e3816e664797050&amp;dn=gpl-3.0.txt GPL-v3-or-Later
org_html_manager.set("TOC_DEPTH", "4");
org_html_manager.set("LINK_HOME", "index.html");
org_html_manager.set("LINK_UP", "");
org_html_manager.set("LOCAL_TOC", "1");
org_html_manager.set("VIEW_BUTTONS", "0");
org_html_manager.set("MOUSE_HINT", "underline");
org_html_manager.set("FIXED_TOC", "0");
org_html_manager.set("TOC", "1");
org_html_manager.set("VIEW", "info");
org_html_manager.setup(); // activate after the parameters are set
// @license-end
</script>
<script>
window.MathJax = {
tex: {
ams: {
multlineWidth: '85%'
},
tags: 'ams',
tagSide: 'right',
tagIndent: '.8em'
},
chtml: {
scale: 1.0,
displayAlign: 'center',
displayIndent: '0em'
},
svg: {
scale: 1.0,
displayAlign: 'center',
displayIndent: '0em'
},
output: {
font: 'mathjax-modern',
displayOverflow: 'overflow'
}
};
</script>
<script
id="MathJax-script"
async
src="https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-mml-chtml.js">
</script>
</head>
<body>
<div id="org-div-home-and-up">
<a accesskey="h" href=""> UP </a>
|
<a accesskey="H" href="index.html"> HOME </a>
</div><div id="content" class="content">
<h1 class="title">Local Energy</h1>
<div id="table-of-contents" role="doc-toc">
<h2>Table of Contents</h2>
<div id="text-table-of-contents" role="doc-toc">
<ul>
<li><a href="#org643ba93">1. Context</a>
<ul>
<li><a href="#org3c24e60">1.1. Data structure</a></li>
<li><a href="#orgdca3c0f">1.2. Access functions</a></li>
</ul>
</li>
<li><a href="#org6a0723c">2. Computation</a>
<ul>
<li><a href="#org2f602fc">2.1. Kinetic energy</a>
<ul>
<li><a href="#org5b47a8b">2.1.1. Get</a></li>
<li><a href="#org06a7932">2.1.2. Provide</a></li>
<li><a href="#orgc356392">2.1.3. Compute kinetic enregy</a></li>
<li><a href="#org99e29b6">2.1.4. Test</a></li>
</ul>
</li>
<li><a href="#orgcef8161">2.2. Potential energy</a>
<ul>
<li><a href="#org7b43a03">2.2.1. Get</a></li>
<li><a href="#orgc51ca6d">2.2.2. Provide</a></li>
<li><a href="#orgb734d1d">2.2.3. Compute potential enregy</a></li>
<li><a href="#org5f921ff">2.2.4. Test</a></li>
</ul>
</li>
<li><a href="#orgfde97c5">2.3. Local energy</a>
<ul>
<li><a href="#org66fdd60">2.3.1. Get</a></li>
<li><a href="#orga926678">2.3.2. Provide</a></li>
<li><a href="#orga9cc1f7">2.3.3. Compute local enregy</a></li>
<li><a href="#org2e27d14">2.3.4. Test</a></li>
</ul>
</li>
<li><a href="#orgb5b2c8f">2.4. Drift vector</a>
<ul>
<li><a href="#org45b45b9">2.4.1. Get</a></li>
<li><a href="#orga82de53">2.4.2. Provide</a></li>
<li><a href="#org05488bb">2.4.3. Compute drift vector</a></li>
<li><a href="#org8e5d21b">2.4.4. Test</a></li>
</ul>
</li>
</ul>
</li>
</ul>
</div>
</div>
<div id="outline-container-org643ba93" class="outline-2">
<h2 id="org643ba93"><span class="section-number-2">1.</span> Context</h2>
<div class="outline-text-2" id="text-1">
<p>
The following arrays are stored in the context:
</p>
<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<colgroup>
<col class="org-left" />
</colgroup>
<tbody>
<tr>
<td class="org-left">&#xa0;</td>
</tr>
</tbody>
</table>
<p>
Computed data:
</p>
<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<colgroup>
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
</colgroup>
<tbody>
<tr>
<td class="org-left"><code>e_kin</code></td>
<td class="org-left"><code>[walk_num]</code></td>
<td class="org-left">total kinetic energy</td>
</tr>
<tr>
<td class="org-left"><code>e_pot</code></td>
<td class="org-left"><code>[walk_num]</code></td>
<td class="org-left">total potential energy</td>
</tr>
<tr>
<td class="org-left"><code>e_local</code></td>
<td class="org-left"><code>[walk_num]</code></td>
<td class="org-left">local energy</td>
</tr>
<tr>
<td class="org-left"><code>r_drift</code></td>
<td class="org-left"><code>[3][walk_num][elec_num]</code></td>
<td class="org-left">The drift vector</td>
</tr>
<tr>
<td class="org-left"><code>y_move</code></td>
<td class="org-left"><code>[3][walk_num]</code></td>
<td class="org-left">The diffusion move</td>
</tr>
<tr>
<td class="org-left"><code>accep_prob</code></td>
<td class="org-left"><code>[walk_num]</code></td>
<td class="org-left">The acceptance probability</td>
</tr>
</tbody>
</table>
</div>
<div id="outline-container-org3c24e60" class="outline-3">
<h3 id="org3c24e60"><span class="section-number-3">1.1.</span> Data structure</h3>
<div class="outline-text-3" id="text-1-1">
<div class="org-src-container">
<pre class="src src-c"><span style="color: #a020f0;">typedef</span> <span style="color: #a020f0;">struct</span> <span style="color: #228b22;">qmckl_local_energy_struct</span> {
<span style="color: #228b22;">double</span> * <span style="color: #a0522d;">e_kin</span>;
<span style="color: #228b22;">double</span> * <span style="color: #a0522d;">e_pot</span>;
<span style="color: #228b22;">double</span> * <span style="color: #a0522d;">e_local</span>;
<span style="color: #228b22;">double</span> * <span style="color: #a0522d;">accep_prob</span>;
<span style="color: #228b22;">double</span> * <span style="color: #a0522d;">r_drift</span>;
<span style="color: #228b22;">double</span> * <span style="color: #a0522d;">y_move</span>;
<span style="color: #228b22;">uint64_t</span> <span style="color: #a0522d;">e_kin_date</span>;
<span style="color: #228b22;">uint64_t</span> <span style="color: #a0522d;">e_pot_date</span>;
<span style="color: #228b22;">uint64_t</span> <span style="color: #a0522d;">e_local_date</span>;
<span style="color: #228b22;">uint64_t</span> <span style="color: #a0522d;">accep_prob_date</span>;
<span style="color: #228b22;">uint64_t</span> <span style="color: #a0522d;">r_drift_date</span>;
<span style="color: #228b22;">uint64_t</span> <span style="color: #a0522d;">y_move_date</span>;
<span style="color: #228b22;">int32_t</span> <span style="color: #a0522d;">uninitialized</span>;
<span style="color: #228b22;">bool</span> <span style="color: #a0522d;">provided</span>;
} <span style="color: #228b22;">qmckl_local_energy_struct</span>;
</pre>
</div>
<p>
The <code>uninitialized</code> integer contains one bit set to one for each
initialization function which has not been called. It becomes equal
to zero after all initialization functions have been called. The
struct is then initialized and <code>provided == true</code>.
Some values are initialized by default, and are not concerned by
this mechanism.
</p>
</div>
</div>
<div id="outline-container-orgdca3c0f" class="outline-3">
<h3 id="orgdca3c0f"><span class="section-number-3">1.2.</span> Access functions</h3>
<div class="outline-text-3" id="text-1-2">
<p>
When all the data for the local energy have been provided, the following
function returns <code>true</code>.
</p>
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">bool</span> <span style="color: #0000ff;">qmckl_local_energy_provided</span> (<span style="color: #a020f0;">const</span> <span style="color: #228b22;">qmckl_context</span> <span style="color: #a0522d;">context</span>);
</pre>
</div>
</div>
</div>
</div>
<div id="outline-container-org6a0723c" class="outline-2">
<h2 id="org6a0723c"><span class="section-number-2">2.</span> Computation</h2>
<div class="outline-text-2" id="text-2">
</div>
<div id="outline-container-org2f602fc" class="outline-3">
<h3 id="org2f602fc"><span class="section-number-3">2.1.</span> Kinetic energy</h3>
<div class="outline-text-3" id="text-2-1">
<p>
Where the kinetic energy is given as:
</p>
<p>
\[
KE = -\frac{1}{2}\frac{\bigtriangleup \Psi}{\Psi}
\]
</p>
<p>
The laplacian of the wavefunction in the single-determinant
case is given as follows:
</p>
<p>
\[
\frac{\bigtriangleup \Psi(r)}{\Psi(r)} = \sum_{j=1}^{N_e} \bigtriangleup \Phi_j(r_i) D_{ji}^{-1}(r)
\]
</p>
</div>
<div id="outline-container-org5b47a8b" class="outline-4">
<h4 id="org5b47a8b"><span class="section-number-4">2.1.1.</span> Get</h4>
<div class="outline-text-4" id="text-2-1-1">
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_get_kinetic_energy</span>(<span style="color: #228b22;">qmckl_context</span> <span style="color: #a0522d;">context</span>, <span style="color: #228b22;">double</span>* <span style="color: #a020f0;">const</span> <span style="color: #a0522d;">kinetic_energy</span>);
</pre>
</div>
</div>
</div>
<div id="outline-container-org06a7932" class="outline-4">
<h4 id="org06a7932"><span class="section-number-4">2.1.2.</span> Provide</h4>
</div>
<div id="outline-container-orgc356392" class="outline-4">
<h4 id="orgc356392"><span class="section-number-4">2.1.3.</span> Compute kinetic enregy</h4>
<div class="outline-text-4" id="text-2-1-3">
<table id="org48ad1f8" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<colgroup>
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
</colgroup>
<tbody>
<tr>
<td class="org-left"><code>qmckl_context</code></td>
<td class="org-left"><code>context</code></td>
<td class="org-left">in</td>
<td class="org-left">Global state</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>walk_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of walkers</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>det_num_alpha</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of determinants</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>det_num_beta</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of determinants</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>alpha_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>beta_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>elec_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>mo_index_alpha[det_num_alpha][walk_num][alpha_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">MO indices for electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>mo_index_beta[det_num_beta][walk_num][beta_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">MO indices for electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>mo_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of MOs</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>mo_vgl[5][elec_num][mo_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Value, gradients and Laplacian of the MOs</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>det_value_alpha[det_num_alpha][walk_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Det of wavefunction</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>det_value_beta[det_num_beta][walk_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Det of wavefunction</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>det_inv_matrix_alpha[det_num_alpha][walk_num][alpha_num][alpha_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Value, gradients and Laplacian of the Det</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>det_inv_matrix_beta[det_num_beta][walk_num][beta_num][beta_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Value, gradients and Laplacian of the Det</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>e_kin[walk_num]</code></td>
<td class="org-left">out</td>
<td class="org-left">Kinetic energy</td>
</tr>
</tbody>
</table>
<div class="org-src-container">
<pre class="src src-f90"><span style="color: #228b22;">integer</span><span style="color: #a0522d;"> </span><span style="color: #a020f0;">function</span><span style="color: #a0522d;"> </span><span style="color: #0000ff;">qmckl_compute_kinetic_energy_f</span><span style="color: #a0522d;">(context, walk_num, </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> det_num_alpha, det_num_beta, alpha_num, beta_num, elec_num, mo_index_alpha, mo_index_beta, </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> mo_num, mo_vgl, det_value_alpha, det_value_beta, det_inv_matrix_alpha, det_inv_matrix_beta, e_kin) </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> result(info)</span>
<span style="color: #a020f0;">use</span> <span style="color: #0000ff;">qmckl</span>
<span style="color: #a020f0;">implicit</span> <span style="color: #228b22;">none</span>
<span style="color: #228b22;">integer</span>(qmckl_context) , <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> context</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> walk_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_num_alpha</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_num_beta</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> alpha_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> beta_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> elec_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_index_alpha(alpha_num, walk_num, det_num_alpha)</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_index_beta(beta_num, walk_num, det_num_beta)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_vgl(mo_num, elec_num, 5)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_value_alpha(walk_num, det_num_alpha)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_value_beta(walk_num, det_num_beta)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_inv_matrix_alpha(alpha_num, alpha_num, walk_num, det_num_alpha)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_inv_matrix_beta(beta_num, beta_num, walk_num, det_num_beta)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(inout) ::<span style="color: #a0522d;"> e_kin(walk_num)</span>
<span style="color: #228b22;">double precision</span> ::<span style="color: #a0522d;"> tmp_e</span>
<span style="color: #228b22;">integer</span>*8 ::<span style="color: #a0522d;"> idet, iwalk, ielec, mo_id, imo</span>
info = QMCKL_SUCCESS
<span style="color: #a020f0;">if</span> (context == QMCKL_NULL_CONTEXT) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_CONTEXT
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (walk_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_2
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (alpha_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_3
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (beta_num &lt; 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_4
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (elec_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_5
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
e_kin = 0.0d0
<span style="color: #a020f0;">do</span> idet = 1, det_num_alpha
<span style="color: #a020f0;">do</span> iwalk = 1, walk_num
! <span style="color: #b22222;">Alpha part</span>
<span style="color: #a020f0;">do</span> imo = 1, alpha_num
<span style="color: #a020f0;">do</span> ielec = 1, alpha_num
mo_id = mo_index_alpha(imo, iwalk, idet)
e_kin(iwalk) = e_kin(iwalk) - 0.5d0 * det_inv_matrix_alpha(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, ielec, 5)
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
! <span style="color: #b22222;">Beta part</span>
<span style="color: #a020f0;">do</span> imo = 1, beta_num
<span style="color: #a020f0;">do</span> ielec = 1, beta_num
mo_id = mo_index_beta(imo, iwalk, idet)
e_kin(iwalk) = e_kin(iwalk) - 0.5d0 * det_inv_matrix_beta(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, alpha_num + ielec, 5)
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end function</span> <span style="color: #0000ff;">qmckl_compute_kinetic_energy_f</span>
</pre>
</div>
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_compute_kinetic_energy</span> (
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">context</span> <span style="color: #a0522d;">qmckl_context</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">walk_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_num_alpha</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_num_beta</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">alpha_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">beta_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">elec_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_index_alpha</span>* <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_index_beta</span>* <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_vgl</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_value_alpha</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_value_beta</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_inv_matrix_alpha</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_inv_matrix_beta</span>* <span style="color: #228b22;">double</span>,
<span style="color: #228b22;">e_kin</span>* <span style="color: #a020f0;">const</span> <span style="color: #228b22;">double</span> );
</pre>
</div>
</div>
</div>
<div id="outline-container-org99e29b6" class="outline-4">
<h4 id="org99e29b6"><span class="section-number-4">2.1.4.</span> Test</h4>
</div>
</div>
<div id="outline-container-orgcef8161" class="outline-3">
<h3 id="orgcef8161"><span class="section-number-3">2.2.</span> Potential energy</h3>
<div class="outline-text-3" id="text-2-2">
<p>
The potential energy is the sum of all the following terms
</p>
<p>
\[
PE = \mathcal{V}_{ee} + \mathcal{V}_{en} + \mathcal{V}_{nn}
\]
</p>
<p>
The potential for is calculated as the sum of single electron
contributions.
</p>
<p>
\[
\mathcal{V}_{ee} = \sum_{i=1}^{N_e}\sum_{j<i} \frac{1}{r_{ij}}
\]
</p>
<p>
\[
\mathcal{V}_{en} = - \sum_{i=1}^{N_e}\sum_{A=1}^{N_n}\frac{Z_A}{r_{iA}}
\]
</p>
<p>
\[
\mathcal{V}_{nn} = \sum_{A=1}^{N_n}\sum_{B<A}\frac{Z_A Z_B}{r_{AB}}
\]
</p>
</div>
<div id="outline-container-org7b43a03" class="outline-4">
<h4 id="org7b43a03"><span class="section-number-4">2.2.1.</span> Get</h4>
<div class="outline-text-4" id="text-2-2-1">
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_get_potential_energy</span>(<span style="color: #228b22;">qmckl_context</span> <span style="color: #a0522d;">context</span>, <span style="color: #228b22;">double</span>* <span style="color: #a020f0;">const</span> <span style="color: #a0522d;">potential_energy</span>);
</pre>
</div>
</div>
</div>
<div id="outline-container-orgc51ca6d" class="outline-4">
<h4 id="orgc51ca6d"><span class="section-number-4">2.2.2.</span> Provide</h4>
</div>
<div id="outline-container-orgb734d1d" class="outline-4">
<h4 id="orgb734d1d"><span class="section-number-4">2.2.3.</span> Compute potential enregy</h4>
<div class="outline-text-4" id="text-2-2-3">
<table id="org132570a" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<colgroup>
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
</colgroup>
<tbody>
<tr>
<td class="org-left"><code>qmckl_context</code></td>
<td class="org-left"><code>context</code></td>
<td class="org-left">in</td>
<td class="org-left">Global state</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>walk_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of walkers</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>elec_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>nucl_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of MOs</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>ee_potential[walk_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">ee potential</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>en_potential[walk_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">en potential</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>repulsion</code></td>
<td class="org-left">in</td>
<td class="org-left">en potential</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>e_pot[walk_num]</code></td>
<td class="org-left">out</td>
<td class="org-left">Potential energy</td>
</tr>
</tbody>
</table>
<div class="org-src-container">
<pre class="src src-f90"><span style="color: #228b22;">integer</span><span style="color: #a0522d;"> </span><span style="color: #a020f0;">function</span><span style="color: #a0522d;"> </span><span style="color: #0000ff;">qmckl_compute_potential_energy_f</span><span style="color: #a0522d;">(context, walk_num, </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> elec_num, nucl_num, ee_potential, en_potential, repulsion, e_pot) </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> result(info)</span>
<span style="color: #a020f0;">use</span> <span style="color: #0000ff;">qmckl</span>
<span style="color: #a020f0;">implicit</span> <span style="color: #228b22;">none</span>
<span style="color: #228b22;">integer</span>(qmckl_context) , <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> context</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> walk_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> elec_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> nucl_num</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> ee_potential(walk_num)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> en_potential(walk_num)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> repulsion</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(inout) ::<span style="color: #a0522d;"> e_pot(walk_num)</span>
<span style="color: #228b22;">integer</span>*8 ::<span style="color: #a0522d;"> idet, iwalk, ielec, mo_id, imo</span>
info = QMCKL_SUCCESS
<span style="color: #a020f0;">if</span> (context == QMCKL_NULL_CONTEXT) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_CONTEXT
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (walk_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_2
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (elec_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_3
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">do</span> iwalk = 1, walk_num
e_pot(iwalk) = ee_potential(iwalk) + en_potential(iwalk) + repulsion
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end function</span> <span style="color: #0000ff;">qmckl_compute_potential_energy_f</span>
</pre>
</div>
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_compute_potential_energy</span> (
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">context</span> <span style="color: #a0522d;">qmckl_context</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">walk_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">elec_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">nucl_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">ee_potential</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">en_potential</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">repulsion</span> <span style="color: #228b22;">double</span>,
<span style="color: #228b22;">e_pot</span>* <span style="color: #a020f0;">const</span> <span style="color: #228b22;">double</span> );
</pre>
</div>
</div>
</div>
<div id="outline-container-org5f921ff" class="outline-4">
<h4 id="org5f921ff"><span class="section-number-4">2.2.4.</span> Test</h4>
</div>
</div>
<div id="outline-container-orgfde97c5" class="outline-3">
<h3 id="orgfde97c5"><span class="section-number-3">2.3.</span> Local energy</h3>
<div class="outline-text-3" id="text-2-3">
<p>
The local energy is the sum of kinetic and potential energies.
</p>
<p>
\[
E_L = KE + PE
\]
</p>
</div>
<div id="outline-container-org66fdd60" class="outline-4">
<h4 id="org66fdd60"><span class="section-number-4">2.3.1.</span> Get</h4>
<div class="outline-text-4" id="text-2-3-1">
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_get_local_energy</span>(<span style="color: #228b22;">qmckl_context</span> <span style="color: #a0522d;">context</span>, <span style="color: #228b22;">double</span>* <span style="color: #a020f0;">const</span> <span style="color: #a0522d;">local_energy</span>, <span style="color: #a020f0;">const</span> <span style="color: #228b22;">int64_t</span> <span style="color: #a0522d;">size_max</span>);
</pre>
</div>
</div>
</div>
<div id="outline-container-orga926678" class="outline-4">
<h4 id="orga926678"><span class="section-number-4">2.3.2.</span> Provide</h4>
</div>
<div id="outline-container-orga9cc1f7" class="outline-4">
<h4 id="orga9cc1f7"><span class="section-number-4">2.3.3.</span> Compute local enregy</h4>
<div class="outline-text-4" id="text-2-3-3">
<table id="org9558282" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<colgroup>
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
</colgroup>
<tbody>
<tr>
<td class="org-left"><code>qmckl_context</code></td>
<td class="org-left"><code>context</code></td>
<td class="org-left">in</td>
<td class="org-left">Global state</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>walk_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of walkers</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>e_kin[walk_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">e kinetic</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>e_pot[walk_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">e potential</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>e_local[walk_num]</code></td>
<td class="org-left">out</td>
<td class="org-left">local energy</td>
</tr>
</tbody>
</table>
<div class="org-src-container">
<pre class="src src-f90"><span style="color: #228b22;">integer</span><span style="color: #a0522d;"> </span><span style="color: #a020f0;">function</span><span style="color: #a0522d;"> </span><span style="color: #0000ff;">qmckl_compute_local_energy_f</span><span style="color: #a0522d;">(context, walk_num, </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> e_kin, e_pot, e_local) </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> result(info)</span>
<span style="color: #a020f0;">use</span> <span style="color: #0000ff;">qmckl</span>
<span style="color: #a020f0;">implicit</span> <span style="color: #228b22;">none</span>
<span style="color: #228b22;">integer</span>(qmckl_context) , <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> context</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> walk_num</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> e_kin(walk_num)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> e_pot(walk_num)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(inout) ::<span style="color: #a0522d;"> e_local(walk_num)</span>
<span style="color: #228b22;">integer</span>*8 ::<span style="color: #a0522d;"> idet, iwalk, ielec, mo_id, imo</span>
info = QMCKL_SUCCESS
<span style="color: #a020f0;">if</span> (context == QMCKL_NULL_CONTEXT) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_CONTEXT
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (walk_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_2
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
e_local = 0.0d0
<span style="color: #a020f0;">do</span> iwalk = 1, walk_num
e_local(iwalk) = e_local(iwalk) + e_kin(iwalk) + e_pot(iwalk)
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end function</span> <span style="color: #0000ff;">qmckl_compute_local_energy_f</span>
</pre>
</div>
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_compute_local_energy</span> (
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">context</span> <span style="color: #a0522d;">qmckl_context</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">walk_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">e_kin</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">e_pot</span>* <span style="color: #228b22;">double</span>,
<span style="color: #228b22;">e_local</span>* <span style="color: #a020f0;">const</span> <span style="color: #228b22;">double</span> );
</pre>
</div>
</div>
</div>
<div id="outline-container-org2e27d14" class="outline-4">
<h4 id="org2e27d14"><span class="section-number-4">2.3.4.</span> Test</h4>
</div>
</div>
<div id="outline-container-orgb5b2c8f" class="outline-3">
<h3 id="orgb5b2c8f"><span class="section-number-3">2.4.</span> Drift vector</h3>
<div class="outline-text-3" id="text-2-4">
<p>
The drift vector is calculated as the ration of the gradient
with the determinant of the wavefunction.
</p>
<p>
\[
\mathbf{F} = 2 \frac{\nabla \Psi}{\Psi}
\]
</p>
</div>
<div id="outline-container-org45b45b9" class="outline-4">
<h4 id="org45b45b9"><span class="section-number-4">2.4.1.</span> Get</h4>
<div class="outline-text-4" id="text-2-4-1">
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_get_drift_vector</span>(<span style="color: #228b22;">qmckl_context</span> <span style="color: #a0522d;">context</span>, <span style="color: #228b22;">double</span>* <span style="color: #a020f0;">const</span> <span style="color: #a0522d;">drift_vector</span>);
</pre>
</div>
</div>
</div>
<div id="outline-container-orga82de53" class="outline-4">
<h4 id="orga82de53"><span class="section-number-4">2.4.2.</span> Provide</h4>
</div>
<div id="outline-container-org05488bb" class="outline-4">
<h4 id="org05488bb"><span class="section-number-4">2.4.3.</span> Compute drift vector</h4>
<div class="outline-text-4" id="text-2-4-3">
<table id="orgf7842c1" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<colgroup>
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
<col class="org-left" />
</colgroup>
<tbody>
<tr>
<td class="org-left"><code>qmckl_context</code></td>
<td class="org-left"><code>context</code></td>
<td class="org-left">in</td>
<td class="org-left">Global state</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>walk_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of walkers</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>det_num_alpha</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of determinants</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>det_num_beta</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of determinants</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>alpha_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>beta_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>elec_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>mo_index_alpha[det_num_alpha][walk_num][alpha_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">MO indices for electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>mo_index_beta[det_num_beta][walk_num][beta_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">MO indices for electrons</td>
</tr>
<tr>
<td class="org-left"><code>int64_t</code></td>
<td class="org-left"><code>mo_num</code></td>
<td class="org-left">in</td>
<td class="org-left">Number of MOs</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>mo_vgl[5][elec_num][mo_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Value, gradients and Laplacian of the MOs</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>det_inv_matrix_alpha[det_num_alpha][walk_num][alpha_num][alpha_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Value, gradients and Laplacian of the Det</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>det_inv_matrix_beta[det_num_beta][walk_num][beta_num][beta_num]</code></td>
<td class="org-left">in</td>
<td class="org-left">Value, gradients and Laplacian of the Det</td>
</tr>
<tr>
<td class="org-left"><code>double</code></td>
<td class="org-left"><code>r_drift[walk_num][elec_num][3]</code></td>
<td class="org-left">out</td>
<td class="org-left">Kinetic energy</td>
</tr>
</tbody>
</table>
<div class="org-src-container">
<pre class="src src-f90"><span style="color: #228b22;">integer</span><span style="color: #a0522d;"> </span><span style="color: #a020f0;">function</span><span style="color: #a0522d;"> </span><span style="color: #0000ff;">qmckl_compute_drift_vector_f</span><span style="color: #a0522d;">(context, walk_num, </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> det_num_alpha, det_num_beta, alpha_num, beta_num, elec_num, mo_index_alpha, mo_index_beta, </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> mo_num, mo_vgl, det_inv_matrix_alpha, det_inv_matrix_beta, r_drift) </span><span style="color: #a020f0;">&amp;</span>
<span style="color: #a0522d;"> result(info)</span>
<span style="color: #a020f0;">use</span> <span style="color: #0000ff;">qmckl</span>
<span style="color: #a020f0;">implicit</span> <span style="color: #228b22;">none</span>
<span style="color: #228b22;">integer</span>(qmckl_context) , <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> context</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> walk_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_num_alpha</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_num_beta</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> alpha_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> beta_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> elec_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_num</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_index_alpha(alpha_num, walk_num, det_num_alpha)</span>
<span style="color: #228b22;">integer</span>*8, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_index_beta(beta_num, walk_num, det_num_beta)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> mo_vgl(mo_num, elec_num, 5)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_inv_matrix_alpha(alpha_num, alpha_num, walk_num, det_num_alpha)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(in) ::<span style="color: #a0522d;"> det_inv_matrix_beta(beta_num, beta_num, walk_num, det_num_beta)</span>
<span style="color: #228b22;">double precision</span>, <span style="color: #a020f0;">intent</span>(inout) ::<span style="color: #a0522d;"> r_drift(3,elec_num,walk_num)</span>
<span style="color: #228b22;">integer</span>*8 ::<span style="color: #a0522d;"> idet, iwalk, ielec, mo_id, imo</span>
info = QMCKL_SUCCESS
<span style="color: #a020f0;">if</span> (context == QMCKL_NULL_CONTEXT) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_CONTEXT
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (walk_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_2
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (alpha_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_3
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (beta_num &lt; 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_4
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
<span style="color: #a020f0;">if</span> (elec_num &lt;= 0) <span style="color: #a020f0;">then</span>
info = QMCKL_INVALID_ARG_5
<span style="color: #a020f0;">return</span>
<span style="color: #a020f0;">endif</span>
r_drift = 0.0d0
<span style="color: #a020f0;">do</span> idet = 1, det_num_alpha
<span style="color: #a020f0;">do</span> iwalk = 1, walk_num
! <span style="color: #b22222;">Alpha part</span>
<span style="color: #a020f0;">do</span> imo = 1, alpha_num
<span style="color: #a020f0;">do</span> ielec = 1, alpha_num
mo_id = mo_index_alpha(imo, iwalk, idet)
r_drift(1,ielec,iwalk) = r_drift(1,ielec,iwalk) + 2.0d0 * det_inv_matrix_alpha(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, ielec, 2)
r_drift(2,ielec,iwalk) = r_drift(2,ielec,iwalk) + 2.0d0 * det_inv_matrix_alpha(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, ielec, 3)
r_drift(3,ielec,iwalk) = r_drift(3,ielec,iwalk) + 2.0d0 * det_inv_matrix_alpha(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, ielec, 4)
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
! <span style="color: #b22222;">Beta part</span>
<span style="color: #a020f0;">do</span> imo = 1, beta_num
<span style="color: #a020f0;">do</span> ielec = 1, beta_num
mo_id = mo_index_beta(imo, iwalk, idet)
r_drift(1,alpha_num + ielec,iwalk) = r_drift(1,alpha_num + ielec,iwalk) + <span style="color: #a020f0;">&amp;</span>
2.0d0 * det_inv_matrix_beta(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, alpha_num + ielec, 2)
r_drift(2,alpha_num + ielec,iwalk) = r_drift(2,alpha_num + ielec,iwalk) + <span style="color: #a020f0;">&amp;</span>
2.0d0 * det_inv_matrix_beta(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, alpha_num + ielec, 3)
r_drift(3,alpha_num + ielec,iwalk) = r_drift(3,alpha_num + ielec,iwalk) + <span style="color: #a020f0;">&amp;</span>
2.0d0 * det_inv_matrix_beta(imo, ielec, iwalk, idet) * <span style="color: #a020f0;">&amp;</span>
mo_vgl(mo_id, alpha_num + ielec, 4)
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end do</span>
<span style="color: #a020f0;">end function</span> <span style="color: #0000ff;">qmckl_compute_drift_vector_f</span>
</pre>
</div>
<div class="org-src-container">
<pre class="src src-c"><span style="color: #228b22;">qmckl_exit_code</span> <span style="color: #0000ff;">qmckl_compute_drift_vector</span> (
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">context</span> <span style="color: #a0522d;">qmckl_context</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">walk_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_num_alpha</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_num_beta</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">alpha_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">beta_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">elec_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_index_alpha</span>* <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_index_beta</span>* <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_num</span> <span style="color: #a0522d;">int64_t</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">mo_vgl</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_inv_matrix_alpha</span>* <span style="color: #228b22;">double</span>,
<span style="color: #a020f0;">const</span> <span style="color: #228b22;">det_inv_matrix_beta</span>* <span style="color: #228b22;">double</span>,
<span style="color: #228b22;">r_drift</span>* <span style="color: #a020f0;">const</span> <span style="color: #228b22;">double</span> );
</pre>
</div>
</div>
</div>
<div id="outline-container-org8e5d21b" class="outline-4">
<h4 id="org8e5d21b"><span class="section-number-4">2.4.4.</span> Test</h4>
</div>
</div>
</div>
</div>
<div id="postamble" class="status">
<p class="author">Author: TREX CoE</p>
<p class="date">Created: 2025-04-29 Tue 08:44</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div>
</body>
</html>