From 625d5a94701045c16905c34f1d3e1b4e957c6de2 Mon Sep 17 00:00:00 2001 From: Matthias Krack Date: Fri, 14 Aug 2020 13:57:12 +0200 Subject: [PATCH] Use constant with right type --- src/common/kahan_sum.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/common/kahan_sum.F b/src/common/kahan_sum.F index 8b15eea6a3..5d3f4a282a 100644 --- a/src/common/kahan_sum.F +++ b/src/common/kahan_sum.F @@ -440,7 +440,7 @@ PURE FUNCTION kahan_dot_product_z2(array1, array2) RESULT(ks) COMPLEX(KIND=dp) :: c, t, y INTEGER :: i1, i2, n1, n2 - ks = dzero; t = dzero; y = dzero; c = dzero + ks = zzero; t = zzero; y = zzero; c = zzero n1 = SIZE(array1, 1) n2 = SIZE(array1, 2)