diff options
-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 ) |