From fd47be0949ea83c4494c037be9f89657150069dd Mon Sep 17 00:00:00 2001
From: Alberto Ramos <alberto.ramos@ific.uv.es>
Date: Wed, 24 Nov 2021 18:47:57 +0100
Subject: [PATCH] Corrected bug in SF coupling

---
 src/YM/YMsf.jl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/YM/YMsf.jl b/src/YM/YMsf.jl
index c728dac..7f47d68 100644
--- a/src/YM/YMsf.jl
+++ b/src/YM/YMsf.jl
@@ -62,7 +62,7 @@ function krnl_sfcoupling!(rm, U::AbstractArray{T}, Ubnd, lp::SpaceParm{N,M,B,D})
             rm[IU] += (2*X.t7 - SR3x2 * X.t8)/lp.iL[id]
         end
     elseif (it == lp.iL[end])
-        bdt, rdt = up((b,r), N, lp)
+        bdt, rdt = dw((b,r), N, lp)
         ID = point_coord((bdt,rdt), lp)
         for id in 1:N-1
             bu, ru = up((b,r), id, lp)