mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-08 07:03:52 +01:00
730 lines
36 KiB
Fortran
730 lines
36 KiB
Fortran
! ---
|
|
|
|
double precision function j1b_gauss_2e_j2(i, j, k, l)
|
|
|
|
BEGIN_DOC
|
|
!
|
|
! integral in the AO basis:
|
|
! i(r1) j(r1) f(r12) k(r2) l(r2)
|
|
!
|
|
! with:
|
|
! f(r12) = - [ (0.5 - 0.5 erf(mu r12)) / r12 ] (r1-r2) \cdot \sum_A (-2 a_A c_A) [ r1A exp(-aA r1A^2) - r2A exp(-aA r2A^2) ]
|
|
! = [ (1 - erf(mu r12) / r12 ] \sum_A a_A c_A [ (r1-RA)^2 exp(-aA r1A^2)
|
|
! + (r2-RA)^2 exp(-aA r2A^2)
|
|
! - (r1-RA) \cdot (r2-RA) exp(-aA r1A^2)
|
|
! - (r1-RA) \cdot (r2-RA) exp(-aA r2A^2) ]
|
|
!
|
|
END_DOC
|
|
|
|
include 'utils/constants.include.F'
|
|
|
|
implicit none
|
|
|
|
integer, intent(in) :: i, j, k, l
|
|
|
|
integer :: p, q, r, s
|
|
integer :: num_i, num_j, num_k, num_l, num_ii
|
|
integer :: I_power(3), J_power(3), K_power(3), L_power(3)
|
|
integer :: iorder_p(3), iorder_q(3)
|
|
integer :: shift_P(3), shift_Q(3)
|
|
integer :: dim1
|
|
|
|
double precision :: coef1, coef2, coef3, coef4
|
|
double precision :: expo1, expo2, expo3, expo4
|
|
double precision :: P1_new(0:max_dim,3), P1_center(3), fact_p1, pp1, p1_inv
|
|
double precision :: Q1_new(0:max_dim,3), Q1_center(3), fact_q1, qq1, q1_inv
|
|
double precision :: I_center(3), J_center(3), K_center(3), L_center(3)
|
|
double precision :: ff, gg, cx, cy, cz
|
|
|
|
double precision :: j1b_gauss_2e_j2_schwartz
|
|
|
|
dim1 = n_pt_max_integrals
|
|
|
|
if( ao_prim_num(i) * ao_prim_num(j) * ao_prim_num(k) * ao_prim_num(l) > 1024 ) then
|
|
j1b_gauss_2e_j2 = j1b_gauss_2e_j2_schwartz(i, j, k, l)
|
|
return
|
|
endif
|
|
|
|
num_i = ao_nucl(i)
|
|
num_j = ao_nucl(j)
|
|
num_k = ao_nucl(k)
|
|
num_l = ao_nucl(l)
|
|
|
|
do p = 1, 3
|
|
I_power(p) = ao_power(i,p)
|
|
J_power(p) = ao_power(j,p)
|
|
K_power(p) = ao_power(k,p)
|
|
L_power(p) = ao_power(l,p)
|
|
I_center(p) = nucl_coord(num_i,p)
|
|
J_center(p) = nucl_coord(num_j,p)
|
|
K_center(p) = nucl_coord(num_k,p)
|
|
L_center(p) = nucl_coord(num_l,p)
|
|
enddo
|
|
|
|
j1b_gauss_2e_j2 = 0.d0
|
|
|
|
do p = 1, ao_prim_num(i)
|
|
coef1 = ao_coef_normalized_ordered_transp(p, i)
|
|
expo1 = ao_expo_ordered_transp(p, i)
|
|
|
|
do q = 1, ao_prim_num(j)
|
|
coef2 = coef1 * ao_coef_normalized_ordered_transp(q, j)
|
|
expo2 = ao_expo_ordered_transp(q, j)
|
|
|
|
call give_explicit_poly_and_gaussian( P1_new, P1_center, pp1, fact_p1, iorder_p, expo1, expo2 &
|
|
, I_power, J_power, I_center, J_center, dim1 )
|
|
p1_inv = 1.d0 / pp1
|
|
|
|
do r = 1, ao_prim_num(k)
|
|
coef3 = coef2 * ao_coef_normalized_ordered_transp(r, k)
|
|
expo3 = ao_expo_ordered_transp(r, k)
|
|
|
|
do s = 1, ao_prim_num(l)
|
|
coef4 = coef3 * ao_coef_normalized_ordered_transp(s, l)
|
|
expo4 = ao_expo_ordered_transp(s, l)
|
|
|
|
call give_explicit_poly_and_gaussian( Q1_new, Q1_center, qq1, fact_q1, iorder_q, expo3, expo4 &
|
|
, K_power, L_power, K_center, L_center, dim1 )
|
|
q1_inv = 1.d0 / qq1
|
|
|
|
call get_cxcycz_j2( dim1, cx, cy, cz &
|
|
, P1_center, P1_new, pp1, fact_p1, p1_inv, iorder_p &
|
|
, Q1_center, Q1_new, qq1, fact_q1, q1_inv, iorder_q )
|
|
|
|
j1b_gauss_2e_j2 = j1b_gauss_2e_j2 + coef4 * ( cx + cy + cz )
|
|
enddo ! s
|
|
enddo ! r
|
|
enddo ! q
|
|
enddo ! p
|
|
|
|
return
|
|
end function j1b_gauss_2e_j2
|
|
|
|
! ---
|
|
|
|
double precision function j1b_gauss_2e_j2_schwartz(i, j, k, l)
|
|
|
|
BEGIN_DOC
|
|
!
|
|
! integral in the AO basis:
|
|
! i(r1) j(r1) f(r12) k(r2) l(r2)
|
|
!
|
|
! with:
|
|
! f(r12) = - [ (0.5 - 0.5 erf(mu r12)) / r12 ] (r1-r2) \cdot \sum_A (-2 a_A c_A) [ r1A exp(-aA r1A^2) - r2A exp(-aA r2A^2) ]
|
|
! = [ (1 - erf(mu r12) / r12 ] \sum_A a_A c_A [ (r1-RA)^2 exp(-aA r1A^2)
|
|
! + (r2-RA)^2 exp(-aA r2A^2)
|
|
! - (r1-RA) \cdot (r2-RA) exp(-aA r1A^2)
|
|
! - (r1-RA) \cdot (r2-RA) exp(-aA r2A^2) ]
|
|
!
|
|
END_DOC
|
|
|
|
include 'utils/constants.include.F'
|
|
|
|
implicit none
|
|
|
|
integer, intent(in) :: i, j, k, l
|
|
|
|
integer :: p, q, r, s
|
|
integer :: num_i, num_j, num_k, num_l, num_ii
|
|
integer :: I_power(3), J_power(3), K_power(3), L_power(3)
|
|
integer :: iorder_p(3), iorder_q(3)
|
|
integer :: dim1
|
|
|
|
double precision :: coef1, coef2, coef3, coef4
|
|
double precision :: expo1, expo2, expo3, expo4
|
|
double precision :: P1_new(0:max_dim,3), P1_center(3), fact_p1, pp1, p1_inv
|
|
double precision :: Q1_new(0:max_dim,3), Q1_center(3), fact_q1, qq1, q1_inv
|
|
double precision :: I_center(3), J_center(3), K_center(3), L_center(3)
|
|
double precision :: cx, cy, cz
|
|
double precision :: schwartz_ij, thr
|
|
double precision, allocatable :: schwartz_kl(:,:)
|
|
|
|
dim1 = n_pt_max_integrals
|
|
thr = ao_integrals_threshold * ao_integrals_threshold
|
|
|
|
num_i = ao_nucl(i)
|
|
num_j = ao_nucl(j)
|
|
num_k = ao_nucl(k)
|
|
num_l = ao_nucl(l)
|
|
|
|
do p = 1, 3
|
|
I_power(p) = ao_power(i,p)
|
|
J_power(p) = ao_power(j,p)
|
|
K_power(p) = ao_power(k,p)
|
|
L_power(p) = ao_power(l,p)
|
|
I_center(p) = nucl_coord(num_i,p)
|
|
J_center(p) = nucl_coord(num_j,p)
|
|
K_center(p) = nucl_coord(num_k,p)
|
|
L_center(p) = nucl_coord(num_l,p)
|
|
enddo
|
|
|
|
|
|
allocate( schwartz_kl(0:ao_prim_num(l) , 0:ao_prim_num(k)) )
|
|
|
|
schwartz_kl(0,0) = 0.d0
|
|
do r = 1, ao_prim_num(k)
|
|
expo3 = ao_expo_ordered_transp(r,k)
|
|
coef3 = ao_coef_normalized_ordered_transp(r,k) * ao_coef_normalized_ordered_transp(r,k)
|
|
|
|
schwartz_kl(0,r) = 0.d0
|
|
do s = 1, ao_prim_num(l)
|
|
expo4 = ao_expo_ordered_transp(s,l)
|
|
coef4 = coef3 * ao_coef_normalized_ordered_transp(s,l) * ao_coef_normalized_ordered_transp(s,l)
|
|
|
|
call give_explicit_poly_and_gaussian( Q1_new, Q1_center, qq1, fact_q1, iorder_q, expo3, expo4 &
|
|
, K_power, L_power, K_center, L_center, dim1 )
|
|
q1_inv = 1.d0 / qq1
|
|
|
|
call get_cxcycz_j2( dim1, cx, cy, cz &
|
|
, Q1_center, Q1_new, qq1, fact_q1, q1_inv, iorder_q &
|
|
, Q1_center, Q1_new, qq1, fact_q1, q1_inv, iorder_q )
|
|
|
|
schwartz_kl(s,r) = coef4 * dabs( cx + cy + cz )
|
|
schwartz_kl(0,r) = max( schwartz_kl(0,r) , schwartz_kl(s,r) )
|
|
enddo
|
|
|
|
schwartz_kl(0,0) = max( schwartz_kl(0,r) , schwartz_kl(0,0) )
|
|
enddo
|
|
|
|
|
|
j1b_gauss_2e_j2_schwartz = 0.d0
|
|
|
|
do p = 1, ao_prim_num(i)
|
|
expo1 = ao_expo_ordered_transp(p, i)
|
|
coef1 = ao_coef_normalized_ordered_transp(p, i)
|
|
|
|
do q = 1, ao_prim_num(j)
|
|
expo2 = ao_expo_ordered_transp(q, j)
|
|
coef2 = coef1 * ao_coef_normalized_ordered_transp(q, j)
|
|
|
|
call give_explicit_poly_and_gaussian( P1_new, P1_center, pp1, fact_p1, iorder_p, expo1, expo2 &
|
|
, I_power, J_power, I_center, J_center, dim1 )
|
|
p1_inv = 1.d0 / pp1
|
|
|
|
call get_cxcycz_j2( dim1, cx, cy, cz &
|
|
, P1_center, P1_new, pp1, fact_p1, p1_inv, iorder_p &
|
|
, P1_center, P1_new, pp1, fact_p1, p1_inv, iorder_p )
|
|
|
|
schwartz_ij = coef2 * coef2 * dabs( cx + cy + cz )
|
|
if( schwartz_kl(0,0) * schwartz_ij < thr ) cycle
|
|
|
|
do r = 1, ao_prim_num(k)
|
|
if( schwartz_kl(0,r) * schwartz_ij < thr ) cycle
|
|
coef3 = coef2 * ao_coef_normalized_ordered_transp(r, k)
|
|
expo3 = ao_expo_ordered_transp(r, k)
|
|
|
|
do s = 1, ao_prim_num(l)
|
|
if( schwartz_kl(s,r) * schwartz_ij < thr ) cycle
|
|
coef4 = coef3 * ao_coef_normalized_ordered_transp(s, l)
|
|
expo4 = ao_expo_ordered_transp(s, l)
|
|
|
|
call give_explicit_poly_and_gaussian( Q1_new, Q1_center, qq1, fact_q1, iorder_q, expo3, expo4 &
|
|
, K_power, L_power, K_center, L_center, dim1 )
|
|
q1_inv = 1.d0 / qq1
|
|
|
|
call get_cxcycz_j2( dim1, cx, cy, cz &
|
|
, P1_center, P1_new, pp1, fact_p1, p1_inv, iorder_p &
|
|
, Q1_center, Q1_new, qq1, fact_q1, q1_inv, iorder_q )
|
|
|
|
j1b_gauss_2e_j2_schwartz = j1b_gauss_2e_j2_schwartz + coef4 * ( cx + cy + cz )
|
|
enddo ! s
|
|
enddo ! r
|
|
enddo ! q
|
|
enddo ! p
|
|
|
|
deallocate( schwartz_kl )
|
|
|
|
return
|
|
end function j1b_gauss_2e_j2_schwartz
|
|
|
|
! ---
|
|
|
|
subroutine get_cxcycz_j2( dim1, cx, cy, cz &
|
|
, P1_center, P1_new, pp1, fact_p1, p1_inv, iorder_p &
|
|
, Q1_center, Q1_new, qq1, fact_q1, q1_inv, iorder_q )
|
|
|
|
include 'utils/constants.include.F'
|
|
|
|
implicit none
|
|
|
|
integer, intent(in) :: dim1
|
|
integer, intent(in) :: iorder_p(3), iorder_q(3)
|
|
double precision, intent(in) :: P1_new(0:max_dim,3), P1_center(3), fact_p1, pp1, p1_inv
|
|
double precision, intent(in) :: Q1_new(0:max_dim,3), Q1_center(3), fact_q1, qq1, q1_inv
|
|
double precision, intent(out) :: cx, cy, cz
|
|
|
|
integer :: ii
|
|
integer :: shift_P(3), shift_Q(3)
|
|
double precision :: coefii, expoii, factii, Centerii(3)
|
|
double precision :: P2_new(0:max_dim,3), P2_center(3), fact_p2, pp2, p2_inv
|
|
double precision :: Q2_new(0:max_dim,3), Q2_center(3), fact_q2, qq2, q2_inv
|
|
double precision :: ff, gg
|
|
|
|
double precision :: general_primitive_integral_erf_shifted
|
|
double precision :: general_primitive_integral_coul_shifted
|
|
|
|
PROVIDE j1b_pen j1b_coeff
|
|
|
|
cx = 0.d0
|
|
cy = 0.d0
|
|
cz = 0.d0
|
|
do ii = 1, nucl_num
|
|
|
|
expoii = j1b_pen (ii)
|
|
coefii = j1b_coeff(ii)
|
|
Centerii(1:3) = nucl_coord(ii, 1:3)
|
|
|
|
call gaussian_product(pp1, P1_center, expoii, Centerii, factii, pp2, P2_center)
|
|
fact_p2 = fact_p1 * factii
|
|
p2_inv = 1.d0 / pp2
|
|
call pol_modif_center( P1_center, P2_center, iorder_p, P1_new, P2_new )
|
|
|
|
call gaussian_product(qq1, Q1_center, expoii, Centerii, factii, qq2, Q2_center)
|
|
fact_q2 = fact_q1 * factii
|
|
q2_inv = 1.d0 / qq2
|
|
call pol_modif_center( Q1_center, Q2_center, iorder_q, Q1_new, Q2_new )
|
|
|
|
|
|
! ----------------------------------------------------------------------------------------------------
|
|
! [ (1-erf(mu r12)) / r12 ] \sum_A a_A c_A [ (r1-RA)^2 exp(-aA r1A^2)
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
|
|
! x term:
|
|
ff = P2_center(1) - Centerii(1)
|
|
|
|
shift_P = (/ 2, 0, 0 /)
|
|
cx = cx + expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cx = cx - expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_P = (/ 1, 0, 0 /)
|
|
cx = cx + expoii * coefii * 2.d0 * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cx = cx - expoii * coefii * 2.d0 * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_P = (/ 0, 0, 0 /)
|
|
cx = cx + expoii * coefii * ff * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cx = cx - expoii * coefii * ff * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
! y term:
|
|
ff = P2_center(2) - Centerii(2)
|
|
|
|
shift_P = (/ 0, 2, 0 /)
|
|
cy = cy + expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cy = cy - expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_P = (/ 0, 1, 0 /)
|
|
cy = cy + expoii * coefii * 2.d0 * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cy = cy - expoii * coefii * 2.d0 * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_P = (/ 0, 0, 0 /)
|
|
cy = cy + expoii * coefii * ff * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cy = cy - expoii * coefii * ff * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
! z term:
|
|
ff = P2_center(3) - Centerii(3)
|
|
|
|
shift_P = (/ 0, 0, 2 /)
|
|
cz = cz + expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cz = cz - expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_P = (/ 0, 0, 1 /)
|
|
cz = cz + expoii * coefii * 2.d0 * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cz = cz - expoii * coefii * 2.d0 * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_P = (/ 0, 0, 0 /)
|
|
cz = cz + expoii * coefii * ff * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cz = cz - expoii * coefii * ff * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
! ----------------------------------------------------------------------------------------------------
|
|
! [ (1-erf(mu r12)) / r12 ] \sum_A a_A c_A [ (r2-RA)^2 exp(-aA r2A^2)
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
shift_P = (/ 0, 0, 0 /)
|
|
|
|
! x term:
|
|
ff = Q2_center(1) - Centerii(1)
|
|
|
|
shift_Q = (/ 2, 0, 0 /)
|
|
cx = cx + expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cx = cx - expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_Q = (/ 1, 0, 0 /)
|
|
cx = cx + expoii * coefii * 2.d0 * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cx = cx - expoii * coefii * 2.d0 * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cx = cx + expoii * coefii * ff * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cx = cx - expoii * coefii * ff * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
! y term:
|
|
ff = Q2_center(2) - Centerii(2)
|
|
|
|
shift_Q = (/ 0, 2, 0 /)
|
|
cy = cy + expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cy = cy - expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_Q = (/ 0, 1, 0 /)
|
|
cy = cy + expoii * coefii * 2.d0 * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cy = cy - expoii * coefii * 2.d0 * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cy = cy + expoii * coefii * ff * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cy = cy - expoii * coefii * ff * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
! z term:
|
|
ff = Q2_center(3) - Centerii(3)
|
|
|
|
shift_Q = (/ 0, 0, 2 /)
|
|
cz = cz + expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cz = cz - expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_Q = (/ 0, 0, 1 /)
|
|
cz = cz + expoii * coefii * 2.d0 * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cz = cz - expoii * coefii * 2.d0 * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cz = cz + expoii * coefii * ff * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cz = cz - expoii * coefii * ff * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
! ----------------------------------------------------------------------------------------------------
|
|
! - [ (1-erf(mu r12)) / r12 ] \sum_A a_A c_A [ (r1-RA) \cdot (r2-RA) exp(-aA r1A^2) ]
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
! x term:
|
|
ff = P2_center(1) - Centerii(1)
|
|
gg = Q1_center(1) - Centerii(1)
|
|
|
|
shift_p = (/ 1, 0, 0 /)
|
|
shift_Q = (/ 1, 0, 0 /)
|
|
cx = cx - expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 1, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cx = cx - expoii * coefii * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 1, 0, 0 /)
|
|
cx = cx - expoii * coefii * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cx = cx - expoii * coefii * ff * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * ff * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
! y term:
|
|
ff = P2_center(2) - Centerii(2)
|
|
gg = Q1_center(2) - Centerii(2)
|
|
|
|
shift_p = (/ 0, 1, 0 /)
|
|
shift_Q = (/ 0, 1, 0 /)
|
|
cy = cy - expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 1, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cy = cy - expoii * coefii * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 1, 0 /)
|
|
cy = cy - expoii * coefii * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cy = cy - expoii * coefii * ff * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * ff * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
! z term:
|
|
ff = P2_center(3) - Centerii(3)
|
|
gg = Q1_center(3) - Centerii(3)
|
|
|
|
shift_p = (/ 0, 0, 1 /)
|
|
shift_Q = (/ 0, 0, 1 /)
|
|
cz = cz - expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 1 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cz = cz - expoii * coefii * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 1 /)
|
|
cz = cz - expoii * coefii * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cz = cz - expoii * coefii * ff * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * ff * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P2_new, P2_center, fact_p2, pp2, p2_inv, iorder_p, shift_P &
|
|
, Q1_new, Q1_center, fact_q1, qq1, q1_inv, iorder_q, shift_Q )
|
|
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
! ----------------------------------------------------------------------------------------------------
|
|
! - [ (1-erf(mu r12)) / r12 ] \sum_A a_A c_A [ (r1-RA) \cdot (r2-RA) exp(-aA r2A^2) ]
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
! x term:
|
|
ff = P1_center(1) - Centerii(1)
|
|
gg = Q2_center(1) - Centerii(1)
|
|
|
|
shift_p = (/ 1, 0, 0 /)
|
|
shift_Q = (/ 1, 0, 0 /)
|
|
cx = cx - expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 1, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cx = cx - expoii * coefii * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 1, 0, 0 /)
|
|
cx = cx - expoii * coefii * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cx = cx - expoii * coefii * ff * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cx = cx + expoii * coefii * ff * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
! y term:
|
|
ff = P1_center(2) - Centerii(2)
|
|
gg = Q2_center(2) - Centerii(2)
|
|
|
|
shift_p = (/ 0, 1, 0 /)
|
|
shift_Q = (/ 0, 1, 0 /)
|
|
cy = cy - expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 1, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cy = cy - expoii * coefii * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 1, 0 /)
|
|
cy = cy - expoii * coefii * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cy = cy - expoii * coefii * ff * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cy = cy + expoii * coefii * ff * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
! z term:
|
|
ff = P1_center(3) - Centerii(3)
|
|
gg = Q2_center(3) - Centerii(3)
|
|
|
|
shift_p = (/ 0, 0, 1 /)
|
|
shift_Q = (/ 0, 0, 1 /)
|
|
cz = cz - expoii * coefii * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 1 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cz = cz - expoii * coefii * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 1 /)
|
|
cz = cz - expoii * coefii * ff * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * ff * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
shift_p = (/ 0, 0, 0 /)
|
|
shift_Q = (/ 0, 0, 0 /)
|
|
cz = cz - expoii * coefii * ff * gg * general_primitive_integral_coul_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
cz = cz + expoii * coefii * ff * gg * general_primitive_integral_erf_shifted( dim1 &
|
|
, P1_new, P1_center, fact_p1, pp1, p1_inv, iorder_p, shift_P &
|
|
, Q2_new, Q2_center, fact_q2, qq2, q2_inv, iorder_q, shift_Q )
|
|
|
|
! ----------------------------------------------------------------------------------------------------
|
|
|
|
enddo
|
|
|
|
return
|
|
end subroutine get_cxcycz_j2
|
|
|
|
! ---
|
|
|