function [dipdir]=convertrhr(azimuth)
%JRA 3/26/09

if azimuth <270
    dipdir = azimuth + 90;
else
    temp = 360-azimuth;
    dipdir=90-temp;
end