MEF90DefMechTAOObjectiveDamage Subroutine

public subroutine MEF90DefMechTAOObjectiveDamage(taoDamage, damage, energy, PETScCtx, 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(c_ptr),	intent(in)			::	PETScCtx
integer(kind=C_INT32_T),	intent(inout)			::	ierr