avoid conversion to 3333

This commit is contained in:
Martin Diehl 2021-11-18 16:56:36 +01:00
parent 8d64a1c2f2
commit f7a42bdc1a
3 changed files with 16 additions and 15 deletions

View File

@ -234,11 +234,11 @@ module phase
integer, intent(in) :: ph, en
real(pReal), dimension(6,6) :: C
end function phase_homogenizedC66
module function phase_damage_C(C_homogenized,ph,en) result(C)
real(pReal), dimension(3,3,3,3), intent(in) :: C_homogenized
module function phase_damage_C66(C66_homogenized,ph,en) result(C66)
real(pReal), dimension(6,6), intent(in) :: C66_homogenized
integer, intent(in) :: ph,en
real(pReal), dimension(3,3,3,3) :: C
end function phase_damage_C
real(pReal), dimension(6,6) :: C66
end function phase_damage_C66
module function phase_f_phi(phi,co,ce) result(f)
integer, intent(in) :: ce,co

View File

@ -139,6 +139,7 @@ module function phase_damage_constitutive(Delta_t,co,ip,el) result(converged_)
integer :: &
ph, en
ph = material_phaseID(co,(el-1)*discretization_nIPs + ip)
en = material_phaseEntry(co,(el-1)*discretization_nIPs + ip)
@ -150,20 +151,21 @@ end function phase_damage_constitutive
!--------------------------------------------------------------------------------------------------
!> @brief returns the degraded/modified elasticity matrix
!--------------------------------------------------------------------------------------------------
module function phase_damage_C(C_homogenized,ph,en) result(C)
module function phase_damage_C66(C66_homogenized,ph,en) result(C66)
real(pReal), dimension(3,3,3,3), intent(in) :: C_homogenized
real(pReal), dimension(6,6), intent(in) :: C66_homogenized
integer, intent(in) :: ph,en
real(pReal), dimension(3,3,3,3) :: C
real(pReal), dimension(6,6) :: C66
damageType: select case (phase_damage(ph))
case (DAMAGE_ISOBRITTLE_ID) damageType
C = C_homogenized * damage_phi(ph,en)**2
C66 = C66_homogenized * damage_phi(ph,en)**2
case default damageType
C = C_homogenized
C66 = C66_homogenized
end select damageType
end function phase_damage_C
end function phase_damage_C66
!--------------------------------------------------------------------------------------------------

View File

@ -100,7 +100,7 @@ module function elastic_C66(ph,en) result(C66)
integer, intent(in) :: &
ph, &
en
real(pReal), dimension(6,6) :: C66
C66 = math_sym3333to66(math_Voigt66to3333(get_C66(ph,en))) ! Literature data is in Voigt notation
@ -166,8 +166,7 @@ module subroutine phase_hooke_SandItsTangents(S, dS_dFe, dS_dFi, &
i, j
C = math_66toSym3333(phase_homogenizedC66(ph,en))
C = phase_damage_C(C,ph,en)
C = math_66toSym3333(phase_damage_C66(phase_homogenizedC66(ph,en),ph,en))
E = 0.5_pReal*(matmul(transpose(Fe),Fe)-math_I3) !< Green-Lagrange strain in unloaded configuration
S = math_mul3333xx33(C,matmul(matmul(transpose(Fi),E),Fi)) !< 2PK stress in lattice configuration in work conjugate with GL strain pulled back to lattice configuration