diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-03-04 17:01:33 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-03-04 17:01:33 +0000 |
commit | 27532e3585845c715469a88714fe6ab0d0ec4ebc (patch) | |
tree | 708c6a121385d491016c80f2f57fccfca8092abb /src/GRHydro_WENOReconstruct.F90 | |
parent | 718f43b6350665df6df9c58ab2c278f9919e7014 (diff) |
convert tabs to (8) spaces. No other changes.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@485 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_WENOReconstruct.F90')
-rw-r--r-- | src/GRHydro_WENOReconstruct.F90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/GRHydro_WENOReconstruct.F90 b/src/GRHydro_WENOReconstruct.F90 index fb03f66..9c40d95 100644 --- a/src/GRHydro_WENOReconstruct.F90 +++ b/src/GRHydro_WENOReconstruct.F90 @@ -259,12 +259,12 @@ subroutine GRHydro_WENOReconstruct1d(order, nx, v, vminus, vplus, trivial_rp, & !!$ Calculate the reconstruction do j = 1, 5 - vplus(i) = vplus(i) + wplus1 * weno_coeffs(1,j)*v(i-3+j) & - + wplus2 * weno_coeffs(2,j)*v(i-3+j) & - + wplus3 * weno_coeffs(3,j)*v(i-3+j) - vminus(i) = vminus(i) + wminus1 * weno_coeffs(3,6-j)*v(i-3+j) & - + wminus2 * weno_coeffs(2,6-j)*v(i-3+j) & - + wminus3 * weno_coeffs(1,6-j)*v(i-3+j) + vplus(i) = vplus(i) + wplus1 * weno_coeffs(1,j)*v(i-3+j) & + + wplus2 * weno_coeffs(2,j)*v(i-3+j) & + + wplus3 * weno_coeffs(3,j)*v(i-3+j) + vminus(i) = vminus(i) + wminus1 * weno_coeffs(3,6-j)*v(i-3+j) & + + wminus2 * weno_coeffs(2,6-j)*v(i-3+j) & + + wminus3 * weno_coeffs(1,6-j)*v(i-3+j) end do !vminus(i) = v(i) !vplus(i) = v(i) |