str2deg

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

  function [radeg decdeg] = str2deg(ra, dec)

   i'm sick of writing it out...so here's a stupid function to
   switch ra (HH:MM:SS) to degrees.  same with dec.

  sjcm

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function [radeg, decdeg] = str2deg(ra, dec)
0002 
0003 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0004 %
0005 %  function [radeg decdeg] = str2deg(ra, dec)
0006 %
0007 %   i'm sick of writing it out...so here's a stupid function to
0008 %   switch ra (HH:MM:SS) to degrees.  same with dec.
0009 %
0010 %  sjcm
0011 %
0012 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0013 
0014 if(~iscell(ra))
0015     radeg = zeros(size(ra,1));
0016     decdeg = zeros(size(dec,1));
0017     loopLen = 1;
0018 else
0019     radeg = zeros(size(ra));
0020     decdeg = zeros(size(dec));
0021     loopLen = length(ra);
0022 end
0023 
0024 for m=1:loopLen
0025     thisRa = char(ra(m,:));
0026     [hour, thisRa] = strtok(thisRa, ':');
0027     [min, sec] = strtok(thisRa, ':');
0028     sec = sec(2:length(sec));
0029     radeg(m) = ( ( str2num(sec)/60 + str2num(min) )/60 + str2num(hour) ...
0030         )*15;
0031     thisDec = char(dec(m,:));
0032     [deg, thisDec] = strtok(thisDec, ':');
0033     [min, sec] = strtok(thisDec, ':');
0034     sec = sec(2:length(sec));
0035     % JL Check for leading - sign
0036     % keyboard;
0037     if(strfind(deg, '-'));
0038      decdeg(m) = -1.0*( ( str2num(sec)/60 + str2num(min) )/60 + abs(str2num(deg)));
0039     else
0040      decdeg(m) = ( ( str2num(sec)/60 + str2num(min) )/60 + str2num(deg));
0041     end
0042 end
0043 
0044 return;