qp2/src/ao_one_e_ints/screening.irp.f

logical function ao_one_e_integral_zero(i,k)
  implicit none
  integer, intent(in) :: i,k

  ao_one_e_integral_zero = .False.
  if (.not.((io_ao_integrals_overlap/='None').or.is_periodic)) then
    if (ao_overlap_abs(i,k) < ao_one_e_integrals_threshold) then
        ao_one_e_integral_zero = .True.
        return
    endif
  endif
end
Introduced screening.irp.f 2020-05-12 18:48:51 +02:00			`logical function ao_one_e_integral_zero(i,k)`
			`implicit none`
			`integer, intent(in) :: i,k`

			`ao_one_e_integral_zero = .False.`
Fixed schwartz screening when integrals are read 2020-05-12 22:46:39 +02:00			`if (.not.((io_ao_integrals_overlap/='None').or.is_periodic)) then`
Removed dependency of AO1 on AO2 2021-02-09 12:02:14 +01:00			`if (ao_overlap_abs(i,k) < ao_one_e_integrals_threshold) then`
Introduced screening.irp.f 2020-05-12 18:48:51 +02:00			`ao_one_e_integral_zero = .True.`
			`return`
			`endif`
			`endif`
			`end`