From 64f3f6ccee5031828991637b4e08864c5d33c5b4 Mon Sep 17 00:00:00 2001
From: Luc	Hantcherli <l.hantcherli@mpie.de>
Date: Mon, 15 Oct 2007 09:30:57 +0000
Subject: [PATCH] crystal_init() included in CPFEM.f90

---
 trunk/CPFEM.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/trunk/CPFEM.f90 b/trunk/CPFEM.f90
index 0a4c53d01..d5af213f5 100644
--- a/trunk/CPFEM.f90
+++ b/trunk/CPFEM.f90
@@ -106,6 +106,7 @@
 ! three dimensional stress state ?
     call math_init()
     call mesh_init()
+	call crystal_init()
     call constitutive_init()
     call CPFEM_init()
     CPFEM_first_call = .false.