mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 04:43:45 +01:00
fixed bug in cpx overlap
This commit is contained in:
parent
60c406a659
commit
a38bf1bcb2
@ -92,7 +92,7 @@ subroutine overlap_cgaussian_xyz(Ae_center, Be_center, alpha, beta, power_A, pow
|
|||||||
F_integral_tab(i) = Fc_integral(i, inv_sq_p)
|
F_integral_tab(i) = Fc_integral(i, inv_sq_p)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
ab = alpha * beta * inv_sq_p
|
ab = alpha * beta * inv_sq_p * inv_sq_p
|
||||||
|
|
||||||
arg = ab * (Ae_center(1) - Be_center(1)) &
|
arg = ab * (Ae_center(1) - Be_center(1)) &
|
||||||
* (Ae_center(1) - Be_center(1))
|
* (Ae_center(1) - Be_center(1))
|
||||||
|
Loading…
Reference in New Issue
Block a user