MEF90DefMechSplit_DSmoothPositiveSquare Function

public function MEF90DefMechSplit_DSmoothPositiveSquare(x, gamma)

MEF90DefMechSplit_DSmoothPositiveSquare: the first derivative of MEF90_DefMechSplitHD_PenaltyFunction

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=C_DOUBLE),	intent(in)			::	x
real(kind=C_DOUBLE),	intent(in)			::	gamma

Return Value real(kind=C_DOUBLE)