From 88422c26fb4ee38e2ed2923c5dd1ebe2b40db35f Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 5 Jul 2022 12:03:14 +0200
Subject: [PATCH] CRITICAL DEBUG KINETIC ELECTRONS (appeared when kxky plane
rotated)
---
src/stepon.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/stepon.F90 b/src/stepon.F90
index 09749717..09ad4533 100644
--- a/src/stepon.F90
+++ b/src/stepon.F90
@@ -139,7 +139,7 @@ SUBROUTINE stepon
DO ij=ijgs_e,ijge_e
DO ip=ipgs_e,ipge_e
DO ikx=2,Nkx/2 !symmetry at ky = 0
- moments_e( ip,ij,iky_0,ikx,iz, :) = CONJG(moments_e( ip,ij,iky_0,Nkx+2-iky,iz, :))
+ moments_e( ip,ij,iky_0,ikx,iz, :) = CONJG(moments_e( ip,ij,iky_0,Nkx+2-ikx,iz, :))
END DO
! must be real at origin
moments_e(ip,ij, iky_0,ikx_0,iz, :) = REAL(moments_e(ip,ij, iky_0,ikx_0,iz, :))
--
GitLab