diff options
Diffstat (limited to 'src/Derivatives_4_2.F90')
-rw-r--r-- | src/Derivatives_4_2.F90 | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/src/Derivatives_4_2.F90 b/src/Derivatives_4_2.F90 index aafed03..5cec73a 100644 --- a/src/Derivatives_4_2.F90 +++ b/src/Derivatives_4_2.F90 @@ -198,34 +198,34 @@ subroutine up_deriv_gf_4_2 ( var, ni, nj, nk, dir, bb, gsize, delta, up, dvar ) a1(-1) = -1.000000000000000000000000000000000000000_wp a1(0) = 0.5000000000000000000000000000000000000000_wp a1(1) = 0.3333333333333333333333333333333333333333_wp - a1(2) = 0_wp + a1(2) = 0.0_wp q1(1,1) = -1.176470588235294117647058823529411764706_wp q1(2,1) = 1.264705882352941176470588235294117647059_wp - q1(3,1) = 0_wp + q1(3,1) = 0.0_wp q1(4,1) = -0.08823529411764705882352941176470588235294_wp - q1(5,1) = 0_wp - q1(6,1) = 0_wp + q1(5,1) = 0.0_wp + q1(6,1) = 0.0_wp q1(1,2) = -0.6355932203389830508474576271186440677966_wp q1(2,2) = 0.3389830508474576271186440677966101694915_wp q1(3,2) = 0.2288135593220338983050847457627118644068_wp q1(4,2) = 0.06779661016949152542372881355932203389831_wp - q1(5,2) = 0_wp - q1(6,2) = 0_wp + q1(5,2) = 0.0_wp + q1(6,2) = 0.0_wp q1(1,3) = 0.1860465116279069767441860465116279069767_wp q1(2,3) = -1.058139534883720930232558139534883720930_wp q1(3,3) = 0.5581395348837209302325581395348837209302_wp q1(4,3) = 0.3139534883720930232558139534883720930233_wp - q1(5,3) = 0_wp - q1(6,3) = 0_wp + q1(5,3) = 0.0_wp + q1(6,3) = 0.0_wp q1(1,4) = 0.03061224489795918367346938775510204081633_wp q1(2,4) = 0.08163265306122448979591836734693877551020_wp q1(3,4) = -0.9285714285714285714285714285714285714286_wp q1(4,4) = 0.4897959183673469387755102040816326530612_wp q1(5,4) = 0.3265306122448979591836734693877551020408_wp - q1(6,4) = 0_wp + q1(6,4) = 0.0_wp - a2(-2) = 0_wp + a2(-2) = 0.0_wp a2(-1) = -0.3333333333333333333333333333333333333333_wp a2(0) = -0.5000000000000000000000000000000000000000_wp a2(1) = 1.000000000000000000000000000000000000000_wp @@ -235,20 +235,20 @@ subroutine up_deriv_gf_4_2 ( var, ni, nj, nk, dir, bb, gsize, delta, up, dvar ) q2(2,1) = 2.205882352941176470588235294117647058824_wp q2(3,1) = -0.4705882352941176470588235294117647058824_wp q2(4,1) = -0.08823529411764705882352941176470588235294_wp - q2(5,1) = 0_wp - q2(6,1) = 0_wp + q2(5,1) = 0.0_wp + q2(6,1) = 0.0_wp q2(1,2) = -0.3644067796610169491525423728813559322034_wp q2(2,2) = -0.3389830508474576271186440677966101694915_wp q2(3,2) = 0.7711864406779661016949152542372881355932_wp q2(4,2) = -0.06779661016949152542372881355932203389831_wp - q2(5,2) = 0_wp - q2(6,2) = 0_wp - q2(1,3) = 0_wp + q2(5,2) = 0.0_wp + q2(6,2) = 0.0_wp + q2(1,3) = 0.0_wp q2(2,3) = -0.3139534883720930232558139534883720930233_wp q2(3,3) = -0.5581395348837209302325581395348837209302_wp q2(4,3) = 1.058139534883720930232558139534883720930_wp q2(5,3) = -0.1860465116279069767441860465116279069767_wp - q2(6,3) = 0_wp + q2(6,3) = 0.0_wp q2(1,4) = 0.03061224489795918367346938775510204081633_wp q2(2,4) = -0.08163265306122448979591836734693877551020_wp q2(3,4) = -0.2755102040816326530612244897959183673469_wp |