9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-02 19:53:36 +01:00
qp2/src/ao_one_e_ints/screening.irp.f

14 lines
337 B
Fortran

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