CPFEM_stressCrystallite must be called with t not dt in CPFEM_stressIP

This commit is contained in:
Franz Roters 2008-02-08 08:25:19 +00:00
parent 6a3a9e8f98
commit f39c68dded
1 changed files with 1 additions and 1 deletions

View File

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