diff options
| author | tradke <tradke@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-09-22 14:50:21 +0000 |
|---|---|---|
| committer | tradke <tradke@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-09-22 14:50:21 +0000 |
| commit | b38ba44982852aaf7b1e31d13cd436c46a9f2cfd (patch) | |
| tree | 369f9fd8af68e28d160c0f5fd70b94991e0aba99 | |
| parent | b82786acb389ef0fd65de0aaa0a7a03179166360 (diff) | |
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
| -rw-r--r-- | src/sor_flat.F | 2 |
1 files changed, 1 insertions, 1 deletions
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!"); |