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

polishing

This commit is contained in:
Martin Diehl 2020-12-23 08:12:56 +01:00
parent 7ee52afda2
commit 2947e7c444
2 changed files with 85 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/constitutive.f90
View File

@ -1385,7 +1385,6 @@ end subroutine crystallite_orientations
!--------------------------------------------------------------------------------------------------
function crystallite_push33ToRef(co,ip,el, tensor33)
real(pReal), dimension(3,3) :: crystallite_push33ToRef
real(pReal), dimension(3,3), intent(in) :: tensor33
real(pReal), dimension(3,3) :: T
integer, intent(in):: &
@ -1393,6 +1392,9 @@ function crystallite_push33ToRef(co,ip,el, tensor33)
ip, &
co
real(pReal), dimension(3,3) :: crystallite_push33ToRef
T = matmul(material_orientation0(co,ip,el)%asMatrix(), & ! ToDo: initial orientation correct?
transpose(math_inv33(crystallite_subF(1:3,1:3,co,ip,el))))
crystallite_push33ToRef = matmul(transpose(T),matmul(tensor33,T))
@ -1410,6 +1412,7 @@ subroutine integrateSourceState(co,ip,el)
el, & !< element index in element loop
ip, & !< integration point index in ip loop
co !< grain index in grain loop
integer :: &
NiterationState, & !< number of iterations in state loop
ph, &
@ -1426,6 +1429,7 @@ subroutine integrateSourceState(co,ip,el)
logical :: &
broken
ph = material_phaseAt(co,el)
c = material_phaseMemberAt(co,ip,el)

4
src/constitutive_mech.f90
View File

@ -1185,15 +1185,14 @@ end subroutine integrateStateRKCK45
!--------------------------------------------------------------------------------------------------
subroutine integrateStateRK(co,ip,el,A,B,CC,DB)
real(pReal), dimension(:,:), intent(in) :: A
real(pReal), dimension(:), intent(in) :: B, CC
real(pReal), dimension(:), intent(in), optional :: DB
integer, intent(in) :: &
el, & !< element index in element loop
ip, & !< integration point index in ip loop
co !< grain index in grain loop
integer :: &
stage, & ! stage index in integration stage loop
n, &
@ -1204,6 +1203,7 @@ subroutine integrateStateRK(co,ip,el,A,B,CC,DB)
broken
real(pReal), dimension(constitutive_plasticity_maxSizeDotState,size(B)) :: plastic_RKdotState
ph = material_phaseAt(co,el)
me = material_phaseMemberAt(co,ip,el)