C+
C NAME:
C	Time2Line
C PURPOSE:
C	Display time of day
C CATEGORY:
C	Time keeping
C CALLING SEQUENCE:
	subroutine Time2Line()
C CALLS:
C	Time2System, Time2YDoy, Time2Day8, Time2JD, Time2JEpoch
C	Time2Str, itrim
C PROCEDURE:
C	Uses routine Time2System to get system time.
C	Displays time of day, date, Doy, year and JD on one line
C MODIFICATION HISTORY:
C	Paul Hick (ARC)
C-
	integer			t(2)
	integer			d(2)
	integer			yr
	double precision	doy
	double precision	jd
	double precision	jepoch
	integer			Time2Str	
	character		cStr*100

	call Time2System(t)

	call Time2YDoy(0,t,yr,d)			! Year
	call Time2Day8(0,d,doy)				! Day of year
	call Time2JD  (0,t,d)

	call Time2Day8(0,d,jd)				! Julian day
	call Time2JEpoch(0,t,jepoch)

	I = Time2Str('DOW YYYY-MON-DD hh:mm:ss.ff (Doy DOY, jd RJD, Epoch', t, cStr)+1

	write (cStr(I+1:),'(F9.4,A)') jepoch,')'

	write (*,'(A)') cStr(:itrim(cStr))

	return
	end