From 0490c1cb936e15f0147d7e5a73226b985adec9b4 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 11 Sep 2023 09:39:32 +0200
Subject: [PATCH] bug fix in PB routine
---
src/fourier_mod.F90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/fourier_mod.F90 b/src/fourier_mod.F90
index d78ce276..9a46895c 100644
--- a/src/fourier_mod.F90
+++ b/src/fourier_mod.F90
@@ -270,7 +270,8 @@ END SUBROUTINE fft1D_plans
IMPLICIT NONE
INTEGER(C_INTPTR_T), INTENT(IN) :: local_nkx_ptr,local_nky_ptr
REAL(xp), INTENT(IN) :: inv_Nx, inv_Ny
- REAL(xp), DIMENSION(local_nky_ptr), INTENT(IN) :: ky_, AA_y, AA_x
+ REAL(xp), DIMENSION(local_nky_ptr), INTENT(IN) :: ky_, AA_y
+ REAL(xp), DIMENSION(local_nkx_ptr), INTENT(IN) :: AA_x
REAL(xp), DIMENSION(local_nky_ptr,local_nkx_ptr), INTENT(IN) :: kx_
COMPLEX(c_xp_c), DIMENSION(local_nky_ptr,local_nkx_ptr), &
INTENT(IN) :: F_, G_
--
GitLab