mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 05:33:40 +02:00
Compare commits
No commits in common. "da51f0960b8500f30fc6410a793b61f05103f3d0" and "5e732b0f616cc8f7e820963ac14f9d3a9edc060d" have entirely different histories.
da51f0960b
...
5e732b0f61
@ -15,8 +15,6 @@ double precision function ao_two_e_integral_erf(i,j,k,l)
|
|||||||
double precision :: Q_new(0:max_dim,3),Q_center(3),fact_q,qq
|
double precision :: Q_new(0:max_dim,3),Q_center(3),fact_q,qq
|
||||||
integer :: iorder_p(3), iorder_q(3)
|
integer :: iorder_p(3), iorder_q(3)
|
||||||
double precision :: ao_two_e_integral_schwartz_accel_erf
|
double precision :: ao_two_e_integral_schwartz_accel_erf
|
||||||
|
|
||||||
provide mu_erf
|
|
||||||
|
|
||||||
if (ao_prim_num(i) * ao_prim_num(j) * ao_prim_num(k) * ao_prim_num(l) > 1024 ) then
|
if (ao_prim_num(i) * ao_prim_num(j) * ao_prim_num(k) * ao_prim_num(l) > 1024 ) then
|
||||||
ao_two_e_integral_erf = ao_two_e_integral_schwartz_accel_erf(i,j,k,l)
|
ao_two_e_integral_erf = ao_two_e_integral_schwartz_accel_erf(i,j,k,l)
|
||||||
|
Loading…
Reference in New Issue
Block a user