9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-03 10:28:25 +01:00

Fixed compile error in previous commit

This commit is contained in:
Anthony Scemama 2020-05-12 19:10:12 +02:00
parent 08089a4dad
commit 91bcfed673

View File

@ -88,7 +88,7 @@ double precision function get_ao_two_e_integral_erf(i,j,k,l,map) result(result)
logical, external :: ao_two_e_integral_zero
PROVIDE ao_two_e_integrals_erf_in_map ao_integrals_erf_cache ao_integrals_erf_cache_min
!DIR$ FORCEINLINE
if (ao_two_e_integral_zero(i,j,k,l) < ao_integrals_threshold ) then
if (ao_two_e_integral_zero(i,j,k,l)) then
tmp = 0.d0
else if (ao_two_e_integral_erf_schwartz(i,k)*ao_two_e_integral_erf_schwartz(j,l) < ao_integrals_threshold) then
tmp = 0.d0