From e7d407c2f61944982816f78d35bd1a0736b28a84 Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Fri, 3 Feb 2012 14:52:09 +0000
Subject: [PATCH] crystallite_Fp has to be initialized in crystallite_init,
 cause it is used by constitutive_microstructure

---
 code/crystallite.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/code/crystallite.f90 b/code/crystallite.f90
index 40fa0fec2..d87d0407f 100644
--- a/code/crystallite.f90
+++ b/code/crystallite.f90
@@ -323,6 +323,7 @@ close(file)
         crystallite_localConstitution(g,i,e) = phase_localConstitution(material_phase(g,i,e))
         !$OMP FLUSH(crystallite_Fp0)
         crystallite_Fe(1:3,1:3,g,i,e)  = math_transpose33(crystallite_Fp0(1:3,1:3,g,i,e))
+        crystallite_Fp(1:3,1:3,g,i,e)  = crystallite_Fp0(1:3,1:3,g,i,e)
       enddo
     enddo
   enddo