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

preparing encapsulation

This commit is contained in:
Martin Diehl 2020-12-29 18:45:11 +01:00
parent e34937a0d2
commit 8572ec8368
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/constitutive.f90
View File

@ -1466,6 +1466,22 @@ function constitutive_mech_getF(co,ip,el) result(F)
end function constitutive_mech_getF end function constitutive_mech_getF
! getter for non-thermal (e.g. mech)
function constitutive_thermal_T(co,ip,el) result(T)
integer, intent(in) :: co, ip, el
real(pReal) :: T
integer :: ho, tme
ho = material_homogenizationAt(el)
tme = material_homogenizationMemberAt(ip,el)
T = temperature(ho)%p(tme)
end function constitutive_thermal_T
! setter for homogenization ! setter for homogenization
subroutine constitutive_mech_setF(F,co,ip,el) subroutine constitutive_mech_setF(F,co,ip,el)