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

removed unused variables and correct type casting 

I don't believe that n is correct here ...
This commit is contained in:
Martin Diehl 2019-09-19 19:53:00 -07:00
parent 792dda866d
commit d11f401c67
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/plastic_isotropic.f90
View File

@ -297,10 +297,7 @@ subroutine plastic_isotropic_LiAndItsTangent(Li,dLi_dMi,Mi,instance,of)
instance, & instance, &
of of
real(pReal), dimension(3,3) :: &
Mi_sph !< spherical part of the Mandel stress
real(pReal) :: & real(pReal) :: &
dot_gamma, & !< shear rate
tr !< pressure tr !< pressure
integer :: & integer :: &
k, l, m, n k, l, m, n
@ -324,7 +321,7 @@ subroutine plastic_isotropic_LiAndItsTangent(Li,dLi_dMi,Mi,instance,of)
#endif #endif
forall (k=1:3,l=1:3,m=1:3,n=1:3) & forall (k=1:3,l=1:3,m=1:3,n=1:3) &
dLi_dMi(k,l,m,n) = n / tr * Li(k,l) * math_I3(m,n) dLi_dMi(k,l,m,n) = real(n,pReal) / tr * Li(k,l) * math_I3(m,n)
else else
Li = 0.0_pReal Li = 0.0_pReal