new_rational_damping Subroutine

public subroutine new_rational_damping(self, param)

Create new rational damping model

Arguments

Type IntentOptional Attributes Name
type(rational_damping_param), intent(out) :: self

Rational damping parameters
type(d3_param), intent(in) :: param

Parameters

Source Code

subroutine new_rational_damping(self, param)

   !> Rational damping parameters
   type(rational_damping_param), intent(out) :: self

   !> Parameters
   type(d3_param), intent(in) :: param

   self%s6 = param%s6
   self%s8 = param%s8
   self%s9 = param%s9
   self%a1 = param%a1
   self%a2 = param%a2
   self%alp = param%alp

end subroutine new_rational_damping