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/Dissipation_4_3_min_err_coeff_alt.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/Dissipation_4_3_min_err_coeff_alt.F90')
| -rw-r--r-- | src/Dissipation_4_3_min_err_coeff_alt.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Dissipation_4_3_min_err_coeff_alt.F90 b/src/Dissipation_4_3_min_err_coeff_alt.F90 index d40ff67..c2e34ba 100644 --- a/src/Dissipation_4_3_min_err_coeff_alt.F90 +++ b/src/Dissipation_4_3_min_err_coeff_alt.F90 @@ -710,26 +710,26 @@ contains integer, parameter :: wp = kind(zero) sigma(1,1) = 4.186595370392226897362216859769846226369_wp - sigma(2,1) = 0_wp - sigma(3,1) = 0_wp - sigma(4,1) = 0_wp - sigma(5,1) = 0_wp - sigma(1,2) = 0_wp + sigma(2,1) = 0.0_wp + sigma(3,1) = 0.0_wp + sigma(4,1) = 0.0_wp + sigma(5,1) = 0.0_wp + sigma(1,2) = 0.0_wp sigma(2,2) = 0.6725191921225620731888714836983116420871_wp sigma(3,2) = 0.3613418181134949259370502966736306984367_wp sigma(4,2) = -0.2021316117293899791481674539631879662707_wp sigma(5,2) = 0.03455320708729270824077678274955265350304_wp - sigma(1,3) = 0_wp + sigma(1,3) = 0.0_wp sigma(2,3) = 0.3613418181134949259370502966736306984367_wp sigma(3,3) = 0.7206133711630147057720442098623847362950_wp sigma(4,3) = 0.1376472340546569368321616389764958792591_wp sigma(5,3) = -0.04136405531324488624637892257286207044784_wp - sigma(1,4) = 0_wp + sigma(1,4) = 0.0_wp sigma(2,4) = -0.2021316117293899791481674539631879662707_wp sigma(3,4) = 0.1376472340546569368321616389764958792591_wp sigma(4,4) = 0.9578653607931026822074133441449909689509_wp sigma(5,4) = 0.02069353627247161734563597102894256809696_wp - sigma(1,5) = 0_wp + sigma(1,5) = 0.0_wp sigma(2,5) = 0.03455320708729270824077678274955265350304_wp sigma(3,5) = -0.04136405531324488624637892257286207044784_wp sigma(4,5) = 0.02069353627247161734563597102894256809696_wp |