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

need 'error return' 

revert from change in 5b72110d
This commit is contained in:
Martin Diehl 2020-02-12 06:02:37 +01:00
parent 4583067b1f
commit ab475b7c6b
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/crystallite.f90
View File

@ -870,26 +870,29 @@ logical function integrateStress(ipc,ip,el,timeFraction)
A = matmul(F,invFp_current) ! intermediate tensor needed later to calculate dFe_dLp A = matmul(F,invFp_current) ! intermediate tensor needed later to calculate dFe_dLp
jacoCounterLi = 0
steplengthLi = 1.0_pReal
residuumLi_old = 0.0_pReal
Liguess_old = Liguess
!* start Li loop with normal step length NiterationStressLi = 0
jacoCounterLi = 0 LiLoop: do
steplengthLi = 1.0_pReal NiterationStressLi = NiterationStressLi + 1
residuumLi_old = 0.0_pReal if (NiterationStressLi>num%nStress) return
Liguess_old = Liguess
LiLoop: do NiterationStressLi=1,num%nStress
invFi_new = matmul(invFi_current,math_I3 - dt*Liguess) invFi_new = matmul(invFi_current,math_I3 - dt*Liguess)
Fi_new = math_inv33(invFi_new) Fi_new = math_inv33(invFi_new)
detInvFi = math_det33(invFi_new) detInvFi = math_det33(invFi_new)
!* start Lp loop with normal step length jacoCounterLp = 0
jacoCounterLp = 0 steplengthLp = 1.0_pReal
steplengthLp = 1.0_pReal residuumLp_old = 0.0_pReal
residuumLp_old = 0.0_pReal Lpguess_old = Lpguess
Lpguess_old = Lpguess
LpLoop: do NiterationStressLp=1,num%nStress NiterationStressLp = 0
LpLoop: do
NiterationStressLp = NiterationStressLp + 1
if (NiterationStressLp>num%nStress) return
B = math_I3 - dt*Lpguess B = math_I3 - dt*Lpguess
Fe = matmul(matmul(A,B), invFi_new) Fe = matmul(matmul(A,B), invFi_new)