;*************************************************************************
pro DEGtoHMS,a,h,m,s,prt=prt,nsigfig=nsigfig
s=size(a)
ndim=s(0)
np=n_elements(a)
k=where(a lt 0.,nk) & if nk gt 0 then a(k)=360.+a(k)
h=fix(a/15.)
m=fix((a-h*15)*4.)
s=(a-(h*15.)-m/4.)*240.
if n_params(0) eq 1 then prt=1
if n_elements(nsigfig) eq 0 then nsigfig=3
nf=4+nsigfig
fmt='(F'+strtrim(nf,2)+'.'+strtrim(nsigfig,2)+')'
ifmt='(I3)'
if keyword_set(prt) then begin
   if ndim eq 0 then print,string(h,ifmt),string(m,ifmt),string(s,fmt) else $
      for i=0,np-1 do print,string(h(i),ifmt),string(m(i),ifmt),string(s(i),fmt)
   endif
return
end