function value = pendulum_prime ( t, y )

%*****************************************************************************80
%
%% pendulum_prime returns the right hand side of the pendulum test problem.
%
  u = y(1);
  v = y(2);

  dudt = v;
  dvdt = - u;

  value = [ dudt, dvdt ];

  return
end

