diff options
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 |