r2ra

 function str=r2ra(rad)

 convert radians to RA lst time.

0001 function str=r2ra(rad)
0002 
0003 % function str=r2ra(rad)
0004 %
0005 % convert radians to RA lst time.
0006 
0007 % convert to deg
0008 rad=rad*180/pi;
0009 
0010 deg2hr=24/360;
0011 hr2min=60;
0012 min2sec=60;
0013 
0014 r.hr=floor(rad*deg2hr);
0015 hr=rad*deg2hr-floor(rad*deg2hr);
0016 r.min=floor(hr*hr2min);
0017 min=hr*hr2min-floor(hr*hr2min);
0018 r.sec=(min*min2sec);
0019 
0020 eps=0.001;
0021 if (r.sec>=(60-eps))
0022   r.min=r.min+1;
0023   r.sec=0;
0024 end
0025 hr=num2str(r.hr);
0026 min=num2str(r.min);
0027 sec=num2str(r.sec);
0028 
0029 if (r.min<10)
0030   min=strcat('0',min);
0031 end
0032 
0033 if (r.sec<10)
0034   sec=strcat('0',sec);
0035 end
0036 
0037 str=strcat(hr,':',min,':',sec);