From a9f5dcfbf17aea8e17244d96afdf092c2fafdda5 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Thu, 24 Jun 2021 23:35:14 +0200
Subject: [PATCH] avoid allocate based on random value in sum_N_sl

---
 PRIVATE                                   | 2 +-
 src/phase_mechanical_plastic_nonlocal.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/PRIVATE b/PRIVATE
index 3b46d17f2..b017527e1 160000
--- a/PRIVATE
+++ b/PRIVATE
@@ -1 +1 @@
-Subproject commit 3b46d17f2194ecbf7248f2aaa75330ef727e8140
+Subproject commit b017527e18a44fc6aeff61b92deedb5d79c47617
diff --git a/src/phase_mechanical_plastic_nonlocal.f90 b/src/phase_mechanical_plastic_nonlocal.f90
index 56e2bac53..8f38a9301 100644
--- a/src/phase_mechanical_plastic_nonlocal.f90
+++ b/src/phase_mechanical_plastic_nonlocal.f90
@@ -112,7 +112,7 @@ submodule(phase:plastic) nonlocal
       nonSchmid_pos, &
       nonSchmid_neg                                                                                 !< combined projection of Schmid and non-Schmid contributions to the resolved shear stress (only for screws)
     integer :: &
-      sum_N_sl
+      sum_N_sl = 0
     integer,     dimension(:),     allocatable :: &
       colinearSystem                                                                                !< colinear system to the active slip system (only valid for fcc!)
     character(len=pStringLen), dimension(:), allocatable :: &