DEEDNone Subroutine

private subroutine DEEDNone(self, HookesLaw, phi, DEEDPlus, DEEDMinus, ierr)

DEEDNone: Compute the derivative of the positive and negative part of the elastic energy density (positive and negative stress) evaluated at the strain tensor Strain. without a split, we have DEEDPlus = HookesLaw Strain DEEDMinus = 0

Type Bound

MEF90DefMechSplitNone

Arguments

Type IntentOptional Attributes Name
class(MEF90DefMechSplitNone), intent(in) :: self
class(MEF90HookesLaw), intent(in) :: HookesLaw
class(mef90Mat), intent(in) :: phi
real(kind=C_DOUBLE), intent(out) :: DEEDPlus
real(kind=C_DOUBLE), intent(out) :: DEEDMinus
integer(kind=C_INT32_T), intent(inout) :: ierr