function value = pendulum_friction_prime ( t, y )

%*****************************************************************************80
%
%% pendulum_friction_prime: right hand side of the friction pendulum test.
%
  global alpha

  u = y(1);
  v = y(2);

  dudt = v;
  dvdt = - alpha * v - u;

  value = [ dudt; dvdt ];

  return
end

