10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-20 12:12:13 +02:00

threshold in mo_pseudo_grid for QMC

This commit is contained in:
Anthony Scemama 2015-07-31 18:53:43 +02:00
parent 24faf493f3
commit b7fd9bb101
3 changed files with 9 additions and 4 deletions

View File

@ -26,7 +26,7 @@ Documentation
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

View File

@ -88,8 +88,14 @@ BEGIN_PROVIDER [ double precision, mo_pseudo_grid, (ao_num,-pseudo_lmax:pseudo_l
do k=1,nucl_num
do l=0,pseudo_lmax
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) + &
ao_pseudo_grid(i,m,l,k,n) * mo_coef(i,j)
enddo

View File

@ -15,7 +15,6 @@ Makefile.depend
Nuclei
Pseudo
Utils
det_svd
ezfio_interface.irp.f
guess_doublet
guess_singlet