mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-12-23 04:44:03 +01:00
comment
This commit is contained in:
parent
efd32bcfe8
commit
616815b9b4
@ -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:
|
||||
|
Loading…
Reference in New Issue
Block a user