From a45806f2ccf0bacf51f87108f5d49c48365e3055 Mon Sep 17 00:00:00 2001 From: diener Date: Thu, 26 May 2005 23:22:30 +0000 Subject: Fixed a typo/bug that for some reason didn't cause any problems yet (even though I think it should have). git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@34 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/Dissipation_4_3_min_err_coeff.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Dissipation_4_3_min_err_coeff.F90 b/src/Dissipation_4_3_min_err_coeff.F90 index eefbecf..d7d011f 100644 --- a/src/Dissipation_4_3_min_err_coeff.F90 +++ b/src/Dissipation_4_3_min_err_coeff.F90 @@ -353,7 +353,7 @@ contains CCTK_REAL :: zero = 0.0 integer, parameter :: wp = kind(zero) - n = size(d,1) + n = size(b,1) xp = ( gsh - 1 ) * dfl - 1 do i = 1, n b(i,i) = bf ( real(i+lbnd-1,wp), xp, real(gsh-1,wp), h ) -- cgit v1.2.3