223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Corrected Tstar calculation by 0.5

This commit is contained in:
Luc Hantcherli 2007-04-04 13:56:10 +00:00
parent ea20fc73c1
commit 6fcf763054
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
trunk/CPFEM.f90
View File

@ -465,7 +465,7 @@
dt,&
cp_en,& ! Element number
CPFEM_in,& ! Integration point number
iori,& ! number of orintation
iori,& ! number of orientation
Fg_new,&
Fp_old,&
Fp_new,&
@ -514,7 +514,7 @@
A = matmul(Fg_new,invFp_old) ! actually Fe
A = matmul(transpose(A), A)
C_66 = constitutive_HomogenizedC(iori, CPFEM_in, cp_en) !ÄÄÄ
Tstar_v=matmul(C_66, math_Mandel33to6(A-math_I3)) ! fully elastic guess
Tstar_v = 0.5_pReal*matmul(C_66, math_Mandel33to6(A-math_I3)) ! fully elastic guess ADDED 1/2
! QUESTION follow former plastic slope to guess better?
!
! *** Second level of iterative procedure: Resistences ***
@ -525,14 +525,14 @@
! *** Calculation of gdot_slip ***
call constitutive_LpAndItsTangent(Tstar_v, iori, CPFEM_in, cp_en, Lp, dLp)
I3tLp = math_I3-dt*Lp
help=matmul(transpose(I3tLp),matmul(A, I3tLp))-math_I3
Tstar0_v = 0.5_pReal * matmul(C_66, math_Mandel33to6(help))
help=matmul(transpose(I3tLp),matmul(A, I3tLp))
Tstar0_v = 0.5_pReal * matmul(C_66, math_Mandel33to6(help-math_I3))
R1=Tstar_v-Tstar0_v
if (maxval(abs(R1/maxval(abs(Tstar_v)))) < tol_inner) goto 100
!
! *** Jacobi Calculation: dRes/dTstar ***
help=matmul(A, I3tLp)
help1=0
help1=0.0_pReal
do i=1,3
do j=1,3
do k=1,3