From 9892da717a12f8fb44ea63165f1ea784ed44f17b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 29 Jan 2019 07:06:16 +0100 Subject: [PATCH] bugfix: missing initialization --- src/crystallite.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index ad12b455e..da603a2bd 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -854,6 +854,7 @@ subroutine crystallite_stressTangent() crystallite_invFp(1:3,1:3,c,i,e)), & math_6toSym33(crystallite_Tstar_v(1:6,c,i,e))) + crystallite_dPdF(1:3,1:3,1:3,1:3,c,i,e) = 0.0_pReal do p=1_pInt, 3_pInt crystallite_dPdF(p,1:3,p,1:3,c,i,e) = transpose(temp_33_1) enddo