C+
C NAME:
C	Local2UT
C PURPOSE:
C       Read system clock, including fraction of day, convert to day of year, 
C       and calculate the day of year in Universal Time (Greenwich).
C CATEGORY:
C	Time calculation
C CALLING SEQUENCE:
	subroutine Local2UT(off,yr,doy)
C INPUTS:
C       off	integer		offset time (in hours) from Greenwich
C				(i.e. UT-local time)
C OUTPUTS:
C	yr	integer		year; the year xxxBC should be entered as -xxx+1
C       doy	real		day of year + fraction + offset from Greenwich
C CALLS:
C	Time2Local2UT, Time2YDoy, Time2Day
C RESTRICTIONS:
C	Works only on a VAX
C PROCEDURE:
C	The specified offset (in hours) is added to the obtain the doy of year
C	in UT (with the time of day specified as a fraction).
C MODIFICATION HISTORY:
C	Kari Winfield (UCSD)
C-
	    integer	off
	    integer	yr
	    real	doy

	integer		t(2)

	call Time2Local2UT(off,t)

	call Time2YDoy(0,t,yr,t)	! Time to year and 2-element doy
	call Time2Day (0,t,doy)		! 2-element doy to doy

	return
	end