From 6768fbb7bb91cf659df49bc4735dc68da0741f9f Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@fa3da13c-9f13-4301-a575-cf5b8c5e1907>
Date: Thu, 4 Nov 1999 11:36:42 +0000
Subject: bug fixes to SOR, still testing

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@34 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 e7722e5..58f97e9 100644
--- a/src/sor_flat.F
+++ b/src/sor_flat.F
@@ -77,7 +77,7 @@ c     Loop bounds. Starts, Ends, and deltas (steps)
       INTEGER is, js, ks, ie, je, ke, di, dj, dk, kstep
 
 c     Coeeficients for the solver: 19 point stencil...  
-      CCTK_REAL ac,aw,ae,an,as,at,ab
+      CCTK_REAL ac,ac_orig,aw,ae,an,as,at,ab
       CCTK_REAL ane,anw,ase,asw,ate,atw
       CCTK_REAL abe,abw,atn,ats,abn,asb
 
-- 
cgit v1.2.3