MEF90DefMechSplit_SmoothPositiveSquare: a low order polynomial C^2 regularization of (max(x,0))**2, defined by 0 if x \le -gamma/2 (x+\gamma/2)^3/3/\gamma if -\gamma/2 < x \le \gamma/2 x^2+gamma^2/12 otherwise
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=C_DOUBLE), | intent(in) | :: | x | |||
| real(kind=C_DOUBLE), | intent(in) | :: | gamma |