function [ur,vr] = uv_rotate(u,v,theta)

%  uv_rotate:  rotates (east, north) current components
%
%      (u,v) are (east, north) current components.
%      theta is rotation angle in compass degrees.
%      ur is the current component in a direction 
%          theta degrees clockwise from east.
%      vr is the current component in a direction 
%          theta degrees clockwise from north.


%%% START USGS BOILERPLATE -------------% There is no published documentation for these programs- use the 
%  internal comments and help function.
% Programs written in Matlab- as early as 7.2.0.232 (R2006a) and 
% most recent modifications in  v7.8.0 (R2009a)
% Programs ran on PC with Windows XP Professional OS, and RHEL4 linux.
%
% "Although this program has been used by the USGS, no warranty, 
% expressed or implied, is made by the USGS or the United States 
% Government as to the accuracy and functioning of the program 
% and related program material nor shall the fact of distribution 
% constitute any such warranty, and no responsibility is assumed 
% by the USGS in connection therewith."
%%% END USGS BOILERPLATE --------------

 
[dir,spd] = uv2polar(u,v);
dir = dir - theta;
[ur,vr] = polar2uv(dir,spd);