Use constant with right type

cp2k · Aug 15, 2020 · 625d5a9 · 625d5a9
1 parent 251dd57
commit 625d5a9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)