From 8a4dbb5f24994c68a65aab605694677fcbd42740 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Thu, 16 Nov 2023 13:24:04 -0500 Subject: [PATCH] Fix to Return_Routines_Kij. Index issue. --- Code/Return_Routines/Return_Routines_Kij.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Code/Return_Routines/Return_Routines_Kij.F90 b/Code/Return_Routines/Return_Routines_Kij.F90 index 7310ee0..e7ff1dd 100644 --- a/Code/Return_Routines/Return_Routines_Kij.F90 +++ b/Code/Return_Routines/Return_Routines_Kij.F90 @@ -323,7 +323,7 @@ SUBROUTINE Poseidon_Return_Kij_Native( NE, NQ, & DO lm = 1,LM_Length DO d = 0,DEGREE - Here = Map_To_FEM_Node(RE,d) + Here = Map_To_FEM_Node(RE-1,d) TMP_Val_Psi = TMP_Val_Psi & @@ -789,7 +789,7 @@ SUBROUTINE Poseidon_Return_Kij_AMReX( NQ, & DO lm = 1,LM_Length DO d = 0,DEGREE - Here = Map_To_FEM_Node(RE,d) + Here = Map_To_FEM_Node(RE-1,d) TMP_Val_Psi = TMP_Val_Psi &