1
0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-23 04:44:03 +01:00
This commit is contained in:
Anthony Scemama 2021-06-24 00:18:19 +02:00
parent efd32bcfe8
commit 616815b9b4

View File

@ -1857,6 +1857,7 @@ integer function qmckl_compute_ao_basis_shell_gaussian_vgl_f(context, &
info = QMCKL_SUCCESS
! Don't compute exponentials when the result will be almost zero.
! TODO : Use numerical precision here
cutoff = -dlog(1.d-15)
do inucl=1,nucl_num
@ -2123,7 +2124,6 @@ assert( fabs(shell_vgl[14][4][1][15] - ( 1.572966698871693e-02)) < 1.e-14 );
}
#+end_src
* Polynomial part
** General functions for Powers of $x-X_i$
:PROPERTIES: