From b10477ea9f197946f9a449e0897829df4a88b4dd Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@fa3da13c-9f13-4301-a575-cf5b8c5e1907>
Date: Tue, 23 Nov 1999 18:41:28 +0000
Subject: bug fix

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@41 fa3da13c-9f13-4301-a575-cf5b8c5e1907
---
 src/sor_flat.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/sor_flat.F b/src/sor_flat.F
index a3926b6..ac50027 100644
--- a/src/sor_flat.F
+++ b/src/sor_flat.F
@@ -103,7 +103,7 @@ c     Set boundary related variables
       if (CCTK_EQUALS(sor_bound,"robin")) then
          sw(1)=1
          sw(2)=1
-         sw(2)=1
+         sw(3)=1
          
          call Ell_GetRealKey(ierr, finf, "EllLinFlat::Bnd::Robin::inf")
          call Ell_GetIntKey (ierr, npow, "EllLinFlat::Bnd::Robin::falloff")
-- 
cgit v1.2.3