From b38ba44982852aaf7b1e31d13cd436c46a9f2cfd Mon Sep 17 00:00:00 2001
From: tradke <tradke@fa3da13c-9f13-4301-a575-cf5b8c5e1907>
Date: Wed, 22 Sep 1999 14:50:21 +0000
Subject: Switched order of cctkGH and retcode parameter in calls to
 CCTK_ReduceLocalScalar.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@15 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 2710cc0..f1ca935 100644
--- a/src/sor_flat.F
+++ b/src/sor_flat.F
@@ -229,7 +229,7 @@ c     Update
          end do   
 
 c     Reduce the norm
-         call CCTK_ReduceLocalScalar(cctkGH, ierr, -1, reduction_handle, 
+         call CCTK_ReduceLocalScalar(ierr, cctkGH, -1, reduction_handle, 
      $        resnorm, residual, CCTK_VARIABLE_REAL) 
          if (ierr.ne.0) then
             call CCTK_WARN(1,"Reduction of norm failed!");
-- 
cgit v1.2.3