avoid allocate based on random value in sum_N_sl

This commit is contained in:
Martin Diehl 2021-06-24 23:35:14 +02:00
parent 106fec92d7
commit a9f5dcfbf1
2 changed files with 2 additions and 2 deletions

@ -1 +1 @@
Subproject commit 3b46d17f2194ecbf7248f2aaa75330ef727e8140
Subproject commit b017527e18a44fc6aeff61b92deedb5d79c47617

View File

@ -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 :: &