Fix out-of-bounds in trunc_CS_poly_n20

cp2k · Jul 7, 2020 · 360090b · 360090b
1 parent 45a9cda
commit 360090b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/common/t_sh_p_s_c.F b/src/common/t_sh_p_s_c.F
@@ -1080,7 +1080,7 @@ SUBROUTINE trunc_CS_poly_n20(RES, R, T, NDERIV)
                ENDIF
             ENDIF
          ELSE
-            DO i = 0, NDERIV
+            DO i = 1, NDERIV + 1
                RES(i) = 0.0_dp
             END DO
          END IF