aAT1 Function

private function aAT1(self, alpha)

aAT1: the "a" function of the standard AT1 model, i.e. $a(\alpha) = \eta + (1-\eta)(1-\alpha)^2$

Type Bound

MEF90DefMechAT1_Type

Arguments

Type IntentOptional Attributes Name
class(MEF90DefMechAT1_Type), intent(in) :: self
real(kind=C_DOUBLE) :: alpha

Return Value real(kind=c_double)