C+
C NAME:
C	Time1Day8
C PURPOSE:
C	Convert 1-element standard time to double precision day
C	(with time of day included as fraction of day) and v.v.
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time1Day8(id,t,day)
C INPUTS:
C	id		integer			0: convert from time to fractional day
C						1: convert from fractional day to time
C	t		integer			id=0: 1-element standard time
C	day		double precision	id=1: day with fraction for time of day
C OUTPUTS
C	day		double precision	id=0: day with fraction for time of day
C	t		integer			id=1: 1-element standard time
C CALLS:
C	Time2Day8, Time1to2, Time2to1
C PROCEDURE:
C	See Time2Day8
C MODIFICATION HISTORY:
C	OCT-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer		id
	    double precision	day
	    integer		t

	integer			u(2)

	if (id .eq. 1) then

	    call Time2Day8(id,u,day)
	    call Time2to1(u,t)

	else

	    call Time1to2(t,u)
	    call Time2Day8(id,u,day)

	end if

	return
	end