function outmat   = pol_rotate(inmat,theta)

thetaR      = pi*theta/180;
r_theta     = [cos(thetaR) sin(thetaR);...
               -sin(thetaR) cos(thetaR)];
r_theta_p   = [cos(thetaR) -sin(thetaR);...
               sin(thetaR) cos(thetaR)];

outmat      = r_theta_p*inmat*r_theta;