character*14 function cra(ra)
	implicit real*8 (a-h,o-z)
	data twopi/6.28318530718d0/

	hours=24*ra/twopi
	ih=hours
	xmin=60*(hours-ih)
	im=xmin
	s=60*(xmin-im)
	write(cra,1000) ih,im,s
1000	format(i2.2,':',i2.2,':',f8.5)
	if(cra(7:7).eq.' ') cra(7:7)='0'
	return
	end

	character*14 function cdec(dec)
	implicit real*8 (a-h,o-z)
	data twopi/6.28318530718d0/

	deg=360*abs(dec)/twopi
	ideg=deg
	xmin=60*(deg-ideg)
	im=xmin
	s=60*(xmin-im)
	write(cdec,1000) ideg,im,s
1000	format(i3.2,':',i2.2,':',f7.4)
	if(cdec(8:8).eq.' ') cdec(8:8)='0'
	if(dec.ge.0.d0) cdec(1:1)='+'
	if(dec.lt.0.d0) cdec(1:1)='-'
	return
	end