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

implemented yield stop criteria

This commit is contained in:
Fengbo Han 2017-07-27 16:33:05 +02:00
parent 414faa53d3
commit d51fa10ae5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/spectral_utilities.f90
View File

@ -1174,7 +1174,7 @@ function Mises(m, mType)
trace = math_trace33(m) trace = math_trace33(m)
dev = m - trace/3.0*eye dev = m - trace/3.0*eye
symdev = 0.5*(dev+transpose(dev)) symdev = 0.5*(dev+transpose(dev))
if (mType .eq. 'stress') then if (mType == 'stress') then
Mises = sqrt(3.0/2.0*sum(symdev*transpose(symdev))) Mises = sqrt(3.0/2.0*sum(symdev*transpose(symdev)))
else else
Mises = sqrt(2.0/3.0*sum(symdev*transpose(symdev))) Mises = sqrt(2.0/3.0*sum(symdev*transpose(symdev)))