1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-08-29 23:43:43 +02:00
This commit is contained in:
Anthony Scemama 2021-05-03 15:21:05 +02:00
parent ec6c19596c
commit 318cd87976

View File

@ -43,7 +43,7 @@ subroutine run
r1(:,1) = r1(:,1) * dcos(dtwo_pi*r1(:,2))
do k=1,N_det
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)
enddo
enddo