mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-23 13:42:16 +02:00
threshold in mo_pseudo_grid for QMC
This commit is contained in:
parent
24faf493f3
commit
b7fd9bb101
|
@ -26,7 +26,7 @@ Documentation
|
||||||
Undocumented
|
Undocumented
|
||||||
|
|
||||||
|
|
||||||
`test_pseudo_grid_ao <http://github.com/LCPQ/quantum_package/tree/master/src/QmcChem/pot_ao_pseudo_ints.irp.f#L105>`_
|
`test_pseudo_grid_ao <http://github.com/LCPQ/quantum_package/tree/master/src/QmcChem/pot_ao_pseudo_ints.irp.f#L111>`_
|
||||||
Undocumented
|
Undocumented
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -88,8 +88,14 @@ BEGIN_PROVIDER [ double precision, mo_pseudo_grid, (ao_num,-pseudo_lmax:pseudo_l
|
||||||
do k=1,nucl_num
|
do k=1,nucl_num
|
||||||
do l=0,pseudo_lmax
|
do l=0,pseudo_lmax
|
||||||
do m=-l,l
|
do m=-l,l
|
||||||
do j=1,mo_tot_num
|
do i=1,ao_num
|
||||||
do i=1,ao_num
|
do j=1,mo_tot_num
|
||||||
|
if (dabs(ao_pseudo_grid(i,m,l,k,n)) < 1.e-12) then
|
||||||
|
cycle
|
||||||
|
endif
|
||||||
|
if (dabs(mo_coef(i,j)) < 1.e-8) then
|
||||||
|
cycle
|
||||||
|
endif
|
||||||
mo_pseudo_grid(j,m,l,k,n) = mo_pseudo_grid(j,m,l,k,n) + &
|
mo_pseudo_grid(j,m,l,k,n) = mo_pseudo_grid(j,m,l,k,n) + &
|
||||||
ao_pseudo_grid(i,m,l,k,n) * mo_coef(i,j)
|
ao_pseudo_grid(i,m,l,k,n) * mo_coef(i,j)
|
||||||
enddo
|
enddo
|
||||||
|
|
1
src/Determinants/.gitignore
vendored
1
src/Determinants/.gitignore
vendored
|
@ -15,7 +15,6 @@ Makefile.depend
|
||||||
Nuclei
|
Nuclei
|
||||||
Pseudo
|
Pseudo
|
||||||
Utils
|
Utils
|
||||||
det_svd
|
|
||||||
ezfio_interface.irp.f
|
ezfio_interface.irp.f
|
||||||
guess_doublet
|
guess_doublet
|
||||||
guess_singlet
|
guess_singlet
|
||||||
|
|
Loading…
Reference in New Issue
Block a user