pro	DEC2SEX, ra, dec, ra1, ra2, ra3, dec1, dec2, dec3

;+
; NAME:
;	DEC2SEX
;
; PURPOSE:
;	Convert Celestial Coordinates from Decimal to Sexagesimal Format
;
; RESTRICTIONS:
;	!!! BEWARE !!! : no-frills routine. no checks on inputs!
;
; MODIFICATION HISTORY:
;	16 Jan 2005	Written by Mattia Vaccari
;-

; Compute RA

ra1 = fix(ra/15.d)
ra2 = fix((ra-ra1*15.d)*4.d)
ra3 = (ra-ra1*15.-ra2/4.d)*240.d

; Compute Dec

dec1 = fix(dec)
dec2 = fix(abs(dec-dec1)*60.d)
dec3 = ((abs(dec-dec1)*60.d)-dec2)*60.d

end