EEDNone Subroutine

private subroutine EEDNone(self, HookesLaw, phi, EEDPlus, EEDMinus, ierr)

EEDNone: Compute the positive and negative part of the elastic energy density associated with a strain tensor without a split, we have EEDPlus = 1/2 HookesLaw Strain \cdot Strain EEDMinus = 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) :: EEDPlus
real(kind=C_DOUBLE), intent(out) :: EEDMinus
integer(kind=C_INT32_T), intent(inout) :: ierr