From cf937846a7ad4420afdd18ff8b36a7debf61f97d Mon Sep 17 00:00:00 2001 From: diener Date: Fri, 3 Apr 2009 19:04:35 +0000 Subject: Fix typo. Could cause problems with convergence in some cases, I guess. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/NoExcision/trunk@23 4ec1db94-0e4f-0410-ada3-8bed251432c9 --- src/NoExcision_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/NoExcision_mod.F90 b/src/NoExcision_mod.F90 index 81991a9..7cf0a5a 100644 --- a/src/NoExcision_mod.F90 +++ b/src/NoExcision_mod.F90 @@ -285,7 +285,7 @@ module NoExcision_mod if ( cont(10) ) then r10(i,j,k) = u10(i,j,k)*v10(i,j,k) lsumred(10) = lsumred(10) + weight(i,j,k)*r10(i,j,k) - if (do_inf_reduction) linfred(10) = max(linfred(01),r10(i,j,k)) + if (do_inf_reduction) linfred(10) = max(linfred(10),r10(i,j,k)) end if if ( cont(11) ) then -- cgit v1.2.3