new_mzero_damping Subroutine

subroutine new_mzero_damping(self, param)

   !> Modified zero damping parameters
   type(mzero_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%rs6 = param%rs6  
   self%rs8 = param%rs8  
   self%alp = param%alp  
   self%bet = param%bet

end subroutine new_mzero_damping