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

Checked indices for Jacobi calculation

This commit is contained in:
Luc Hantcherli 2007-04-17 07:58:53 +00:00
parent c76ab95b21
commit 0f6ff82f30
1 changed files with 112 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
trunk/CPFEM.f90
View File

@ -390,7 +390,7 @@ stress: do ! inner iteration: stress
call constitutive_LpAndItsTangent(Lp,dLp, Tstar_v,state_new,grain,CPFEM_in,cp_en)
B = math_I3-dt*Lp
Rstress = Tstar_v - 0.5_pReal*matmul(C_66,math_Mandel33to6(matmul(transpose(B),matmul(A,B))-math_I3))
if (maxval(abs(Rstress/maxval(abs(Tstar_v)))) < tol_Stress) exit stress
if (maxval(abs(Tstar_v)) == 0.0_pReal .or. maxval(abs(Rstress/maxval(abs(Tstar_v)))) < tol_Stress) exit stress
! update stress guess using inverse of dRes/dTstar (Newton--Raphson)
AB = matmul(A,B)
@ -401,7 +401,7 @@ stress: do ! inner iteration: stress
do l=1,3
do m=1,3
! LTL(i,j,k,l) = LTL(i,j,k,l) + AB(i,m)*dLp(m,j,k,l) + AB(j,m)*dLp(m,i,l,k) ! old
LTL(i,j,k,l) = LTL(i,j,k,l) + dLp(j,i,k,m)*AB(m,l) + AB(m,i)*dLp(m,j,k,l) ! new (and correct??)
LTL(i,j,k,l) = LTL(i,j,k,l) + dLp(j,i,m,k)*AB(m,l) + AB(m,i)*dLp(m,j,k,l) ! new (and correct??)
enddo
enddo
enddo
@ -466,4 +466,3 @@ stress: do ! inner iteration: stress
END MODULE