scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-11-07 14:43:41 +01:00
Code Issues Releases Wiki Activity

Accelerated

Browse Source
This commit is contained in:
Anthony Scemama 2019-06-18 11:15:17 +02:00
parent 2906771a3d
commit ce2f6f4a67
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stable/champ/save_for_champ.irp.f
View File

@ -65,11 +65,13 @@ program qmcpack
enddo
!$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(i,j,istate,hij) REDUCTION(+:F)
do k=1,N_det
if (sum(coef(k,:)*coef(k,:))==0.d0) cycle
call i_H_j(det(1,1,k), det(1,1,k), N_int, hij)
do istate=1,N_states
F(istate) = F(istate) + hij*coef(k,istate)*coef(k,istate)
enddo
do l=1,k-1
if (sum(coef(l,:)*coef(l,:))==0.d0) cycle
call i_H_j(det(1,1,k), det(1,1,l), N_int, hij)
do istate=1,N_states
F(istate) = F(istate) + 2.d0*hij*coef(k,istate)*coef(l,istate)