C+
C NAME:
C	Time2SunRadius
C PURPOSE:
C	Calculate radius of Sun (in arcseconds) as seen from Earth
C CALLING SEQUENCE:
	double precision function Time2SunRadius(tt)
C INPUTS:
C	tt(2)		integer		time
C OUTPUTS:
C	SunRadius	real		solar radius in arcsec at time tt
C INCLUDE:
	include		'sun.h'
	include		'math.h'
C CALLS:
C	Time2SunNewcomb
C PROCEDURE:
C	The Earth-Sun distance is calculated by calling SunNewcomb
C MODIFICATION HISTORY:
C	AUG-1993, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer		tt(2)

	double precision	lng
	double precision	lat
	double precision	dis

	call Time2SunNewcomb(0,tt,lng,lat,dis)
	Time2SunRadius = dasin( SUN__RAU/dis )*MATH__DPR*3600.0d0

	return
	end