From 318cd87976850450045be9aec7dee411028b8c46 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 3 May 2021 15:21:05 +0200 Subject: [PATCH] Tab --- devel/svdwf/Evar_TruncSVD.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/devel/svdwf/Evar_TruncSVD.irp.f b/devel/svdwf/Evar_TruncSVD.irp.f index 3476d0d..62befde 100644 --- a/devel/svdwf/Evar_TruncSVD.irp.f +++ b/devel/svdwf/Evar_TruncSVD.irp.f @@ -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