2020-05-12 18:48:51 +02:00
|
|
|
logical function ao_two_e_integral_zero(i,j,k,l)
|
|
|
|
implicit none
|
|
|
|
integer, intent(in) :: i,j,k,l
|
|
|
|
|
|
|
|
ao_two_e_integral_zero = .False.
|
2020-06-17 20:16:00 +02:00
|
|
|
if (.not.(read_ao_two_e_integrals.or.is_complex)) then
|
2020-05-12 18:48:51 +02:00
|
|
|
if (ao_overlap_abs(j,l)*ao_overlap_abs(i,k) < ao_integrals_threshold) then
|
|
|
|
ao_two_e_integral_zero = .True.
|
|
|
|
return
|
|
|
|
endif
|
2020-05-12 22:46:39 +02:00
|
|
|
if (ao_two_e_integral_schwartz(j,l)*ao_two_e_integral_schwartz(i,k) < ao_integrals_threshold) then
|
|
|
|
ao_two_e_integral_zero = .True.
|
|
|
|
endif
|
2020-05-12 18:48:51 +02:00
|
|
|
endif
|
|
|
|
end
|