LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-11-07 06:33:38 +01:00
Code Releases Activity

optimize Jastrow for SCF wavefunction

Browse Source
This commit is contained in:
Abdallah AMMAR 2021-04-27 02:53:46 +02:00
commit ba1c326616
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/PROPERTIES/properties_ci.irp.f
View File

@ -38,7 +38,7 @@ BEGIN_PROVIDER [ double precision, ci_h_psidet, (size_ci_h_psidet) ]
do l=1,elec_alpha_num
T += det_alpha_grad_lapl(4,l,i)*det_beta_value (j)
enddo
do l=elec_beta_num+1,elec_num
do l=elec_alpha_num+1,elec_num
T += det_beta_grad_lapl (4,l,j)*det_alpha_value(i)
enddo
ci_h_psidet(k) = -0.5d0*T + E_pot * det_alpha_value(i)*det_beta_value (j)
@ -98,7 +98,7 @@ BEGIN_PROVIDER [ double precision, ci_h_matrix, (size_ci_h_matrix) ]
do e=1,elec_alpha_num
g += det_alpha_grad_lapl(4,e,m) * det_beta_value (n)
enddo
do e=elec_beta_num+1,elec_num
do e=elec_alpha_num+1,elec_num
g += det_alpha_value(m) * det_beta_grad_lapl(4,e,n)
enddo
T = g
@ -169,7 +169,7 @@ BEGIN_PROVIDER [ double precision, ci_h_matrix_diag, (size_ci_h_matrix_diag) ]
do e=1,elec_alpha_num
g += det_alpha_grad_lapl(4,e,m) * det_beta_value (n)
enddo
do e=elec_beta_num+1,elec_num
do e=elec_alpha_num+1,elec_num
g += det_alpha_value(m) * det_beta_grad_lapl(4,e,n)
enddo
T = g

2
src/PROPERTIES/properties_energy.irp.f
View File

@ -279,5 +279,3 @@ BEGIN_PROVIDER [ double precision, E_loc_zv ]
END_PROVIDER