C+
C NAME:
C	Time1HMS
C PURPOSE:
C	Convert fraction of day for 1-elements standard time
C	to hour,minute,second,fraction of second. (Note that this is NOT
C	the hms since the start of day)
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time1HMS(id,t,hms)
C INPUTS:
C	id		integer		0  converts time to hms
C					1  converts hms to time
C	t		integer		id=0: 1-element standard time
C	hms(4)		integer		id=1: hour,minute,second,milliseconc
C OUTPUTS:
C	t		integer		id=0: 1-element standard time
C	hms(4)		integer		id=1: hour,minute,second,milliseconc
C CALLS:
C	Time2HMS, Time2to1
C SEE ALSO:
C	Time1DHMS, Time2DHMS, Time1to2, Time2to1
C PROCEDURE:
C MODIFICATION HISTORY:
C	OCT-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	id
	    integer	t
	    integer	hms(4)

	integer		u(2)

	if (id .eq. 0) then

	    call Time1to2(t,u)
	    call Time2HMS(id,u,hms)

	else

	    call Time2HMS(id,u,hms)
	    call Time2to1(u,t)

	end if

	return
	end