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