LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-12-21 20:03:31 +01:00
Code Releases Activity

Added Eq refs

Browse Source
This commit is contained in:
Anthony Scemama 2021-07-30 18:34:45 +02:00
parent 5e8de3e583
commit ccfeef0d4f
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/JASTROW/jastrow_mu.irp.f
View File

@ -1,10 +1,13 @@
! Mu Jastrow ! Mu Jastrow
! -------------- ! --------------
! See Giner JCP 2021
BEGIN_PROVIDER [ double precision , jast_elec_Mu_value, (elec_num_8) ] BEGIN_PROVIDER [ double precision , jast_elec_Mu_value, (elec_num_8) ]
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! J(i) = \sum_j a.rij/(1+b^2.rij) - \sum_A (a.riA/(1+a.riA))^2 ! J(i) = \sum_j a.rij/(1+b^2.rij) - \sum_A (a.riA/(1+a.riA))^2
! Eq (11)
END_DOC END_DOC
integer :: i,j integer :: i,j
double precision :: a, b, rij, tmp double precision :: a, b, rij, tmp
@ -34,6 +37,7 @@ END_PROVIDER
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Gradient of the Jastrow factor ! Gradient of the Jastrow factor
! Eq (A1)
END_DOC END_DOC
integer :: i,j integer :: i,j
@ -65,6 +69,7 @@ BEGIN_PROVIDER [ double precision , jast_elec_Mu_lapl, (elec_num_8) ]
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Laplacian of the Jastrow factor ! Laplacian of the Jastrow factor
! Eq (A10)
END_DOC END_DOC
integer :: i,j integer :: i,j
@ -100,6 +105,9 @@ END_PROVIDER
&BEGIN_PROVIDER [double precision, grad_j_mu_y,(elec_num, elec_num)] &BEGIN_PROVIDER [double precision, grad_j_mu_y,(elec_num, elec_num)]
&BEGIN_PROVIDER [double precision, grad_j_mu_z,(elec_num, elec_num)] &BEGIN_PROVIDER [double precision, grad_j_mu_z,(elec_num, elec_num)]
implicit none implicit none
BEGIN_DOC
! Needed for 3-body terms
END_DOC
integer :: i,j integer :: i,j
double precision :: rij, mu,scal double precision :: rij, mu,scal
mu = mu_erf mu = mu_erf

21
src/PROPERTIES/properties_mu.irp.f
View File

@ -2,6 +2,7 @@ BEGIN_PROVIDER [ double precision, Energy_mu ]
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! E mu ! E mu
! Eq.(26-30)
END_DOC END_DOC
integer :: i integer :: i
@ -20,6 +21,8 @@ END_PROVIDER
BEGIN_PROVIDER [double precision, E_nucl_elec] BEGIN_PROVIDER [double precision, E_nucl_elec]
implicit none implicit none
!TODO
integer :: i,j integer :: i,j
E_nucl_elec = 0.d0 E_nucl_elec = 0.d0
do i = 1, elec_num do i = 1, elec_num
@ -35,6 +38,9 @@ END_PROVIDER
&BEGIN_PROVIDER [double precision, Eff_pot_mu_elec_simple, (elec_num)] &BEGIN_PROVIDER [double precision, Eff_pot_mu_elec_simple, (elec_num)]
implicit none implicit none
include '../constants.F' include '../constants.F'
BEGIN_DOC
! Eq.(32)
END_DOC
integer :: i,j integer :: i,j
double precision :: rij, mu double precision :: rij, mu
mu = mu_erf mu = mu_erf
@ -58,6 +64,9 @@ END_PROVIDER
BEGIN_PROVIDER [double precision, Eff_pot_mu ] BEGIN_PROVIDER [double precision, Eff_pot_mu ]
implicit none implicit none
include '../constants.F' include '../constants.F'
BEGIN_DOC
! Eq.(32)
END_DOC
integer :: i integer :: i
Eff_pot_mu = 0.d0 Eff_pot_mu = 0.d0
do i=1,elec_num do i=1,elec_num
@ -71,6 +80,9 @@ END_PROVIDER
BEGIN_PROVIDER [double precision, Eff_pot_mu_simple ] BEGIN_PROVIDER [double precision, Eff_pot_mu_simple ]
implicit none implicit none
BEGIN_DOC
! Eq.(32)
END_DOC
include '../constants.F' include '../constants.F'
integer :: i integer :: i
Eff_pot_mu_simple = 0.d0 Eff_pot_mu_simple = 0.d0
@ -85,6 +97,9 @@ END_PROVIDER
BEGIN_PROVIDER [double precision, eff_pot_deriv_mu_elec, (elec_num) ] BEGIN_PROVIDER [double precision, eff_pot_deriv_mu_elec, (elec_num) ]
implicit none implicit none
BEGIN_DOC
! Eq.(33)
END_DOC
integer :: i,j integer :: i,j
double precision :: rij, mu double precision :: rij, mu
mu = mu_erf mu = mu_erf
@ -105,6 +120,9 @@ END_PROVIDER
BEGIN_PROVIDER [double precision, three_body_mu ] BEGIN_PROVIDER [double precision, three_body_mu ]
implicit none implicit none
BEGIN_DOC
! Eq.(30)
END_DOC
integer :: i,j,k integer :: i,j,k
three_body_mu = 0.d0 three_body_mu = 0.d0
do i = 1, elec_num do i = 1, elec_num
@ -131,6 +149,9 @@ END_PROVIDER
BEGIN_PROVIDER [double precision, eff_pot_deriv_mu] BEGIN_PROVIDER [double precision, eff_pot_deriv_mu]
implicit none implicit none
BEGIN_DOC
! Eq.(33)
END_DOC
integer :: i integer :: i
eff_pot_deriv_mu = 0.d0 eff_pot_deriv_mu = 0.d0
do i = 1, elec_num do i = 1, elec_num