mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-10 21:53:29 +01:00
151 lines
4.9 KiB
Fortran
151 lines
4.9 KiB
Fortran
subroutine phi_j_erf_mu_r_dxyz_phi(i,j,mu_in, C_center, dxyz_ints)
|
|
implicit none
|
|
BEGIN_DOC
|
|
! dxyz_ints(1/2/3) = int dr phi_i(r) [erf(mu |r - C|)/|r-C|] d/d(x/y/z) phi_i(r)
|
|
END_DOC
|
|
integer, intent(in) :: i,j
|
|
double precision, intent(in) :: mu_in, C_center(3)
|
|
double precision, intent(out):: dxyz_ints(3)
|
|
integer :: num_A,power_A(3), num_b, power_B(3),power_B_tmp(3)
|
|
double precision :: alpha, beta, A_center(3), B_center(3),contrib,NAI_pol_mult_erf,coef,thr
|
|
integer :: n_pt_in,l,m,mm
|
|
thr = 1.d-12
|
|
dxyz_ints = 0.d0
|
|
if(ao_overlap_abs(j,i).lt.thr)then
|
|
return
|
|
endif
|
|
|
|
n_pt_in = n_pt_max_integrals
|
|
! j
|
|
num_A = ao_nucl(j)
|
|
power_A(1:3)= ao_power(j,1:3)
|
|
A_center(1:3) = nucl_coord(num_A,1:3)
|
|
! i
|
|
num_B = ao_nucl(i)
|
|
power_B(1:3)= ao_power(i,1:3)
|
|
B_center(1:3) = nucl_coord(num_B,1:3)
|
|
|
|
do l=1,ao_prim_num(j)
|
|
alpha = ao_expo_ordered_transp(l,j)
|
|
do m=1,ao_prim_num(i)
|
|
beta = ao_expo_ordered_transp(m,i)
|
|
coef = ao_coef_normalized_ordered_transp(l,j) * ao_coef_normalized_ordered_transp(m,i)
|
|
if(dabs(coef).lt.thr)cycle
|
|
do mm = 1, 3
|
|
! (d/dx phi_i ) * phi_j
|
|
! d/dx * (x - B_x)^b_x exp(-beta * (x -B_x)^2)= [b_x * (x - B_x)^(b_x - 1) - 2 beta * (x - B_x)^(b_x + 1)] exp(-beta * (x -B_x)^2)
|
|
!
|
|
! first contribution :: b_x (x - B_x)^(b_x-1) :: integral with b_x=>b_x-1 multiplied by b_x
|
|
power_B_tmp = power_B
|
|
power_B_tmp(mm) += -1
|
|
contrib = NAI_pol_mult_erf(A_center,B_center,power_A,power_B_tmp,alpha,beta,C_center,n_pt_in,mu_in)
|
|
dxyz_ints(mm) += contrib * dble(power_B(mm)) * coef
|
|
|
|
! second contribution :: - 2 beta * (x - B_x)^(b_x + 1) :: integral with b_x=> b_x+1 multiplied by -2 * beta
|
|
power_B_tmp = power_B
|
|
power_B_tmp(mm) += 1
|
|
contrib = NAI_pol_mult_erf(A_center,B_center,power_A,power_B_tmp,alpha,beta,C_center,n_pt_in,mu_in)
|
|
dxyz_ints(mm) += contrib * (-2.d0 * beta ) * coef
|
|
|
|
enddo
|
|
enddo
|
|
enddo
|
|
end
|
|
|
|
|
|
|
|
|
|
subroutine phi_j_erf_mu_r_dxyz_phi_bis(i,j,mu_in, C_center, dxyz_ints)
|
|
implicit none
|
|
BEGIN_DOC
|
|
! dxyz_ints(1/2/3) = int dr phi_j(r) [erf(mu |r - C|)/|r-C|] d/d(x/y/z) phi_i(r)
|
|
END_DOC
|
|
integer, intent(in) :: i,j
|
|
double precision, intent(in) :: mu_in, C_center(3)
|
|
double precision, intent(out):: dxyz_ints(3)
|
|
integer :: num_A,power_A(3), num_b, power_B(3),power_B_tmp(3)
|
|
double precision :: alpha, beta, A_center(3), B_center(3),contrib,NAI_pol_mult_erf
|
|
double precision :: thr, coef
|
|
integer :: n_pt_in,l,m,mm,kk
|
|
thr = 1.d-12
|
|
dxyz_ints = 0.d0
|
|
if(ao_overlap_abs(j,i).lt.thr)then
|
|
return
|
|
endif
|
|
|
|
n_pt_in = n_pt_max_integrals
|
|
! j == A
|
|
num_A = ao_nucl(j)
|
|
power_A(1:3)= ao_power(j,1:3)
|
|
A_center(1:3) = nucl_coord(num_A,1:3)
|
|
! i == B
|
|
num_B = ao_nucl(i)
|
|
power_B(1:3)= ao_power(i,1:3)
|
|
B_center(1:3) = nucl_coord(num_B,1:3)
|
|
|
|
dxyz_ints = 0.d0
|
|
do l=1,ao_prim_num(j)
|
|
alpha = ao_expo_ordered_transp(l,j)
|
|
do m=1,ao_prim_num(i)
|
|
beta = ao_expo_ordered_transp(m,i)
|
|
do kk = 1, 2 ! loop over the extra terms induced by the d/dx/y/z * AO(i)
|
|
do mm = 1, 3
|
|
power_B_tmp = power_B
|
|
power_B_tmp(mm) = power_ord_grad_transp(kk,mm,i)
|
|
coef = ao_coef_normalized_ordered_transp(l,j) * ao_coef_ord_grad_transp(kk,mm,m,i)
|
|
if(dabs(coef).lt.thr)cycle
|
|
contrib = NAI_pol_mult_erf(A_center,B_center,power_A,power_B_tmp,alpha,beta,C_center,n_pt_in,mu_in)
|
|
dxyz_ints(mm) += contrib * coef
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
end
|
|
|
|
subroutine phi_j_erf_mu_r_xyz_dxyz_phi(i,j,mu_in, C_center, dxyz_ints)
|
|
implicit none
|
|
BEGIN_DOC
|
|
! dxyz_ints(1/2/3) = int dr phi_j(r) x/y/z [erf(mu |r - C|)/|r-C|] d/d(x/y/z) phi_i(r)
|
|
END_DOC
|
|
integer, intent(in) :: i,j
|
|
double precision, intent(in) :: mu_in, C_center(3)
|
|
double precision, intent(out):: dxyz_ints(3)
|
|
integer :: num_A,power_A(3), num_b, power_B(3),power_B_tmp(3)
|
|
double precision :: alpha, beta, A_center(3), B_center(3),contrib,NAI_pol_mult_erf
|
|
double precision :: thr, coef
|
|
integer :: n_pt_in,l,m,mm,kk
|
|
thr = 1.d-12
|
|
dxyz_ints = 0.d0
|
|
if(ao_overlap_abs(j,i).lt.thr)then
|
|
return
|
|
endif
|
|
|
|
n_pt_in = n_pt_max_integrals
|
|
! j == A
|
|
num_A = ao_nucl(j)
|
|
power_A(1:3)= ao_power(j,1:3)
|
|
A_center(1:3) = nucl_coord(num_A,1:3)
|
|
! i == B
|
|
num_B = ao_nucl(i)
|
|
power_B(1:3)= ao_power(i,1:3)
|
|
B_center(1:3) = nucl_coord(num_B,1:3)
|
|
|
|
dxyz_ints = 0.d0
|
|
do l=1,ao_prim_num(j)
|
|
alpha = ao_expo_ordered_transp(l,j)
|
|
do m=1,ao_prim_num(i)
|
|
beta = ao_expo_ordered_transp(m,i)
|
|
do kk = 1, 4 ! loop over the extra terms induced by the x/y/z * d dx/y/z AO(i)
|
|
do mm = 1, 3
|
|
power_B_tmp = power_B
|
|
power_B_tmp(mm) = power_ord_xyz_grad_transp(kk,mm,i)
|
|
coef = ao_coef_normalized_ordered_transp(l,j) * ao_coef_ord_xyz_grad_transp(kk,mm,m,i)
|
|
if(dabs(coef).lt.thr)cycle
|
|
contrib = NAI_pol_mult_erf(A_center,B_center,power_A,power_B_tmp,alpha,beta,C_center,n_pt_in,mu_in)
|
|
dxyz_ints(mm) += contrib * coef
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
end
|