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

corrected jacobi calculation

This commit is contained in:
Franz Roters 2007-03-26 14:51:01 +00:00
parent 3aa9ab921a
commit 11bb61b2a8
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
trunk/CPFEM.f90
View File

@ -493,8 +493,8 @@
real(pReal) Tstar_v(6), cs(6) real(pReal) Tstar_v(6), cs(6)
integer(pInt) cp_en, CPFEM_in, iori, iconv, ising integer(pInt) cp_en, CPFEM_in, iori, iconv, ising
! *** Local variables *** ! *** Local variables ***
real(pReal) crite, tol_in, tol_out, invFp_old(3,3), det, A(3,3), C66(6,6), Lp(3,3), dLp(3,3) real(pReal) crite, tol_in, tol_out, invFp_old(3,3), det, A(3,3), C66(6,6), Lp(3,3), dLp(3,3,6)
real(pReal) tLp(3,3), inv_tLp(3,3), help(3,3), Tstar0_v(6), R1(6), norm1, tdLp(3,3) real(pReal) tLp(3,3), help(3,3), help1(6), Tstar0_v(6), R1(6), norm1, tdLp(3,3)
real(pReal) dstate(constitutive_Nstatevars), R2(6), norm2, invFp_new(3,3), Estar(3,3) real(pReal) dstate(constitutive_Nstatevars), R2(6), norm2, invFp_new(3,3), Estar(3,3)
real(pReal) Estar_v(6) real(pReal) Estar_v(6)
integer(pInt) iouter, iinner , Jacobi(6,6), inv_Jacobi(6,6), dTstar_v(6), dummy, err integer(pInt) iouter, iinner , Jacobi(6,6), inv_Jacobi(6,6), dTstar_v(6), dummy, err
@ -544,10 +544,19 @@
norm1=maxval(abs(R1)) norm1=maxval(abs(R1))
if (norm1<tol_in) goto 100 if (norm1<tol_in) goto 100
! !
! *** Jacobi Calculation *** ! *** Jacobi Calculation ***
help=matmul(transpose(dLp),matmul(A, I3tLp))+& help=matmul(A, I3tLp)
matmul(transpose(I3tLp),matmul(A, tdLp)) do i=1,3
Jacobi= 0.5_pReal * matmul(C66, math_33to6(help)) + mat_identity(6) do j=1,3
do k=1,3
! dol=1,3
help1(k)=dLp(j,i,k)*help(i,j)
! enddo
enddo
enddo
enddo
! help=help1+transpose(help1)
Jacobi= matmul(C66, help1) + mat_identity(6)
call math_invert6x6(Jacobi, invJacobi, dummy, err) !ÄÄÄ call math_invert6x6(Jacobi, invJacobi, dummy, err) !ÄÄÄ
if (err==1_pInt) then if (err==1_pInt) then
do i=1,6 do i=1,6
@ -594,17 +603,15 @@
! call plastic_vel_grad(dt,tau_slip,tauc_slip_new,Lp) ! call plastic_vel_grad(dt,tau_slip,tauc_slip_new,Lp)
! !
! *** Calculation of Fp(t+dt) (see Kalidindi) *** ! *** Calculation of Fp(t+dt) (see Kalidindi) ***
! dLp=I3+Lp*dt invFp_new=matmul(Fp_old, I3tLp)
Fp_new=matmul(tLp,Fp_old) call math_invert3x3(invFp_new, Fp_new, det, err) !ÄÄÄ
if (err==1_pInt) then
ising=1
return
endif
Fp_new=Fp_new/math_det3x3(Fp_new)**(1.0_pReal/3.0_pReal) Fp_new=Fp_new/math_det3x3(Fp_new)**(1.0_pReal/3.0_pReal)
! !
! *** Calculation of F*(t+dt) (see Kalidindi) *** ! *** Calculation of F*(t+dt) (see Kalidindi) ***
!invFp_new=Fp_new
call math_invert3x3(Fp_new, invFp_new, det, err) !ÄÄÄ
if (err==1_pInt) then
ising=1
return
endif
Fe=matmul(Fg_new,invFp_new) Fe=matmul(Fg_new,invFp_new)
! !
! *** Calculation of Estar *** ! *** Calculation of Estar ***