mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-30 12:43:40 +02:00
17 lines
436 B
Fortran
17 lines
436 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.(read_ao_one_e_integrals.or.is_periodic)) then
|
||
|
if (ao_overlap_abs(i,k) < ao_integrals_threshold) then
|
||
|
ao_one_e_integral_zero = .True.
|
||
|
return
|
||
|
endif
|
||
|
endif
|
||
|
if (ao_two_e_integral_schwartz(i,k) < ao_integrals_threshold) then
|
||
|
ao_one_e_integral_zero = .True.
|
||
|
endif
|
||
|
end
|
||
|
|