diff --git a/WENO.F90 b/WENO.F90 index e8618ef65764d2f64d310a023855a0651cfe8652..0299251828bddcc83bd4e1b01f38b60e4ee1736b 100644 --- a/WENO.F90 +++ b/WENO.F90 @@ -350,7 +350,7 @@ subroutine roe_eigensystem(nvars, ndim, d, states, metrics_frozen, R, R_inv, lam c = sqrt((1.4 - 1.0)*(H - 0.5*q)) b1 = (1.4 - 1.0)/(c**2) - b2 = 1.0 + b1*q**2 - b1*H + b2 = 1.0 + b1*q - b1*H u_tilde(1) = 0.0 do i=1,ndim