MEF90DefMechTAOObjectiveDamage Subroutine

public subroutine MEF90DefMechTAOObjectiveDamage(taoDamage, damage, energy, MEF90DefMechCtx, ierr)

MEF90DefMechTAOObjectiveDamage:

Arguments

Type	Intent	Optional	Attributes		Name
type(tTao),	intent(in)			::	taoDamage
type(tVec),	intent(in)			::	damage
real(kind=C_DOUBLE),	intent(inout)			::	energy
type(MEF90DefMech_Type),	intent(in)			::	MEF90DefMechCtx
integer(kind=C_INT32_T),	intent(inout)			::	ierr