diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-05-26 23:22:30 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-05-26 23:22:30 +0000 |
commit | a45806f2ccf0bacf51f87108f5d49c48365e3055 (patch) | |
tree | d643523d5fe7f37ad2828caeb74657b56fc6f283 | |
parent | 4ea97d9b69c26ce524be1d403fbb960eb2e7528e (diff) |
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
-rw-r--r-- | src/Dissipation_4_3_min_err_coeff.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
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 ) |