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

Tab

Browse Source
This commit is contained in:
Anthony Scemama 2021-05-03 15:21:05 +02:00
parent ec6c19596c
commit 318cd87976
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
devel/svdwf/Evar_TruncSVD.irp.f
View File

@ -43,7 +43,7 @@ subroutine run
r1(:,1) = r1(:,1) * dcos(dtwo_pi*r1(:,2)) r1(:,1) = r1(:,1) * dcos(dtwo_pi*r1(:,2))
do k=1,N_det do k=1,N_det
i = psi_bilinear_matrix_rows(k) i = psi_bilinear_matrix_rows(k)
j = psi_bilinear_matrix_columns(k) j = psi_bilinear_matrix_columns(k)
Z(i,l) = Z(i,l) + psi_bilinear_matrix_values(k,1) * r1(k,1) Z(i,l) = Z(i,l) + psi_bilinear_matrix_values(k,1) * r1(k,1)
enddo enddo
enddo enddo