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

added elastic stiffness matrix as crystallite output

This commit is contained in:
Nan Jia 2012-03-01 13:06:09 +00:00
parent dc7234fd02
commit 211f66a728
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/config/material.config
View File

@ -82,6 +82,7 @@ crystallite 2
(output) p # first Piola-Kichhoff stress tensor; synonyms: "firstpiola", "1stpiola" (output) p # first Piola-Kichhoff stress tensor; synonyms: "firstpiola", "1stpiola"
(output) s # second Piola-Kichhoff stress tensor; synonyms: "tstar", "secondpiola", "2ndpiola" (output) s # second Piola-Kichhoff stress tensor; synonyms: "tstar", "secondpiola", "2ndpiola"
(output) lp # plastic velocity gradient tensor (output) lp # plastic velocity gradient tensor
(output) elasmatrix # elastic stiffness matrix
#-------------------# #-------------------#
<phase> <phase>

8
code/crystallite.f90
View File

@ -274,6 +274,8 @@ do i = 1_pInt,material_Ncrystallite
mySize = 3_pInt mySize = 3_pInt
case('defgrad','f','fe','fp','lp','e','ee','p','firstpiola','1stpiola','s','tstar','secondpiola','2ndpiola') case('defgrad','f','fe','fp','lp','e','ee','p','firstpiola','1stpiola','s','tstar','secondpiola','2ndpiola')
mySize = 9_pInt mySize = 9_pInt
case('elasmatrix')
mySize = 36_pInt
case default case default
mySize = 0_pInt mySize = 0_pInt
end select end select
@ -3300,7 +3302,8 @@ function crystallite_postResults(&
material_texture, & material_texture, &
homogenization_Ngrains homogenization_Ngrains
use constitutive, only: constitutive_sizePostResults, & use constitutive, only: constitutive_sizePostResults, &
constitutive_postResults constitutive_postResults, &
constitutive_homogenizedC
implicit none implicit none
@ -3380,6 +3383,9 @@ function crystallite_postResults(&
case ('s','tstar','secondpiola','2ndpiola') case ('s','tstar','secondpiola','2ndpiola')
mySize = 9_pInt mySize = 9_pInt
crystallite_postResults(c+1:c+mySize) = reshape(math_Mandel6to33(crystallite_Tstar_v(1:6,g,i,e)),[mySize]) crystallite_postResults(c+1:c+mySize) = reshape(math_Mandel6to33(crystallite_Tstar_v(1:6,g,i,e)),[mySize])
case ('elasmatrix')
mySize = 36_pInt
crystallite_postResults(c+1:c+mySize) = reshape(constitutive_homogenizedC(g,i,e),(/mySize/))
end select end select
c = c + mySize c = c + mySize
enddo enddo