C+
C NAME:
C	Time1YMD
C PURPOSE:
C	Converts dates (Yr,Month,Day) to 1-element standard time and v.v.
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time1YMD(id,t,yr,mon,day)
C INPUTS:
C	id		integer		=0  time to date (yr,month,day)
C					=1  date (yr,month,day) to time
C
C	t		integer		id=0: time relative to current origin
C	yr		integer		id=1: year; the year xxxBC should be entered as -xxx+1.
C	mon		integer		id=1: month (1,..,12)
C	day(2)		integer		id=1: day of month (day(2) is fraction of day
C						in units set by Time2SetOrigin2000
C OUTPUTS:
C	yr		integer		id=0: year; the year xxxBC should be entered as -xxx+1.
C	mon		integer		id=0: month (1,..,12)
C	day(2)		integer		id=0: day of month (day(2) is fraction of day
C						in units set by Time2SetOrigin2000
C	t		integer		id=1: time relative to current time origin
C CALLS:
C	Time2YMD, Time1to2, Time2to1
C PROCEDURE:
C	See Time2YMD
C MODIFICATION HISTORY:
C	JAN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	id
	    integer	t
	    integer	yr
	    integer	mon
	    integer	day(2)

	integer		u(2)

	if (id .eq. 0) then			! Time ---> Y,M,D

	    call Time1to2(t,u)
	    call Time2YMD(id,u,yr,mon,day)

	else					! Y,M,D ---> Time

	    call Time2YMD(id,u,yr,mon,day)
	    call Time2to1(u,t)

	end if

	return
	end