C+
C NAME:
C	Time2SunL0B0
C PURPOSE:
C	Calculate heliographic coordinates of center of the solar disk
C CALLING SEQUENCE:
	subroutine Time2SunL0B0(tt,L0,B0)
C INPUTS: (angles in degrees)
C	tt(2)	integer			time
C	L0	double precision	ecliptic longitude offset of observer
C					(see procedure)
C	B0	double precision	ecliptic latitude of observer
C OUTPUTS: (angles in degrees)
C	L0	double precision	heliographic longitude and ..
C	B0	double precision	.. latitude of observer
C CALLS:
C	Time2SunNewcomb, Time2EclipticHeliographic
C PROCEDURE:
C	The position of the observer is specified in heliocentric ecliptic
C	coordinates relative to the Earth, i.e. L0 is the difference between
C	the eclip. long. of the observer and ecl. long. of Earth.
C	Set L0=0 and B0=0 to get the conventional L0 and B0 (disk center as
C	seen from Earth, or sub-Earth point).
C MODIFICATION HISTORY:
C	JUN-1993, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer		tt(2)
	    double precision	L0
	    double precision	B0

	double precision	lng
	double precision	lat
	double precision	dis

	call Time2SunNewcomb(0,tt,lng,lat,dis)
	L0 = L0+180.0d0+lng		! Heliocentric ecliptic longitude
	call Time2EclipticHeliographic(0,tt,L0,B0)

	return
	end