FUNCTION seg2dec, array ;CONVERTS RIGHT ASCENSION OR DECLINATION IN SEXAGESIMAL TO DECIMAL VALUE ; ;INPUT: ARRAY OF STRINGS (MUST BE IN FORMS ##:##:##, ##:##:##.#, ## ## ##, ; OR ## ## ##.#). LEADING AND TRAILING SPACES ARE IGNORED. ; ;OUTPUT: ARRAY OF FLOATS ; ;UPDATED: 2/28/00, D. KOLINSKI newarray= dblarr(N_ELEMENTS(array)) FOR i=0, N_ELEMENTS(array)-1 DO BEGIN p1= STRPOS(array(i), ':') IF (p1 LT 0) THEN BEGIN p1= STRPOS(array(i), ' ') p2= STRPOS(array(i), ' ', /REVERSE_SEARCH) ENDIF ELSE p2= STRPOS(array(i), ':', /REVERSE_SEARCH) hd= FIX(STRMID(array(i), 0, p1)) m= FIX(STRMID(array(i), p1+1, 2)) s= FLOAT(STRMID(array(i), p2+1)) IF (hd LT 0) THEN BEGIN newarray(i) = -1. * (ABS(hd) + m/60.0d0 + s/3600.0d0) ENDIF ELSE newarray(i)= hd + m/60.0d0 + s/3600.d0 ENDFOR RETURN, newarray END