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_4_3_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_4_3_min_err_coeff.F90')
-rw-r--r-- | src/Derivatives_4_3_min_err_coeff.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Derivatives_4_3_min_err_coeff.F90 b/src/Derivatives_4_3_min_err_coeff.F90 index 659d6a4..8c2566d 100644 --- a/src/Derivatives_4_3_min_err_coeff.F90 +++ b/src/Derivatives_4_3_min_err_coeff.F90 @@ -35,8 +35,8 @@ subroutine deriv_gf_4_3_opt ( var, ni, nj, nk, dir, bb, gsize, delta, dvar ) q(3,1) = -3.0597858079809922953240_wp q(4,1) = 1.37319053865399486354933_wp q(5,1) = -0.25996430133016538255400_wp - q(6,1) = 0_wp - q(7,1) = 0_wp + q(6,1) = 0.0_wp + q(7,1) = 0.0_wp q(1,2) = -0.31641585285940445272297_wp q(2,2) = -0.53930788973980422327388_wp q(3,2) = 0.98517732028644343383297_wp |