diff options
| author | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2006-06-11 20:59:25 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2006-06-11 20:59:25 +0000 |
| commit | 7409bb1a94ba40a8ff24896cc8a2e5ef3a096d96 (patch) | |
| tree | cdf6442ad38bf938a32bc25715c3f3b3ad7dbf6f /src/Derivatives_6_5_min_err_coeff.F90 | |
| parent | 25bd6f5c57afe0a8e4d51dd987d385a6f4663cd3 (diff) | |
Replace numbers of the form "0_wp" with "0.0_wp". The former defines
integer constants, whereas real constants are intended.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@74 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'src/Derivatives_6_5_min_err_coeff.F90')
| -rw-r--r-- | src/Derivatives_6_5_min_err_coeff.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Derivatives_6_5_min_err_coeff.F90 b/src/Derivatives_6_5_min_err_coeff.F90 index dcab191..0cb6ee7 100644 --- a/src/Derivatives_6_5_min_err_coeff.F90 +++ b/src/Derivatives_6_5_min_err_coeff.F90 @@ -37,9 +37,9 @@ subroutine deriv_gf_6_5_opt ( var, ni, nj, nk, dir, bb, gsize, delta, dvar ) q(5,1) = -3.980323816657860354911664841669140051855_wp q(6,1) = 1.292129526663144141964665936667656020742_wp q(7,1) = -0.1820215877771906903274443227779426701237_wp - q(8,1) = 0_wp - q(9,1) = 0_wp - q(10,1) = 0_wp + q(8,1) = 0.0_wp + q(9,1) = 0.0_wp + q(10,1) = 0.0_wp q(1,2) = -0.2234725650784319828746535134412736890421_wp q(2,2) = -0.9329308121107134563129925525068570679651_wp q(3,2) = 1.586820596545839371759081303802027231274_wp |