From f39c68dded8decb93fe188d9b1c1f095bf502277 Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Fri, 8 Feb 2008 08:25:19 +0000
Subject: [PATCH] CPFEM_stressCrystallite must be called with t not dt in
 CPFEM_stressIP

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

diff --git a/trunk/CPFEM.f90 b/trunk/CPFEM.f90
index 4afb0f0a8..79d3ad0b7 100644
--- a/trunk/CPFEM.f90
+++ b/trunk/CPFEM.f90
@@ -242,7 +242,7 @@ if(mod(CPFEM_cn,2)==0) then
      endif
 
      call CPFEM_stressCrystallite(msg,cs,cd,Tstar_v,Fp(:,:,i_then),Fe,state(:,i_then),&
-                                  dt,cp_en,CPFEM_in,grain,updateJaco .and. t==CPFEM_dt,&
+                                  t,cp_en,CPFEM_in,grain,updateJaco .and. t==CPFEM_dt,&
                                   Fg(:,:,i_now),Fg(:,:,i_then),Fp(:,:,i_now),state(:,i_now))
      if (msg == 'ok') then             ! solution converged
        if (t == CPFEM_dt) then