C+
C NAME:
C	Time1StandardOrigin
C PURPOSE:
C	Convert between 1-element standard time to time relative to
C	one of the standard origins.
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time1StandardOrigin(t0,id,t,u)
C INPUTS:
C	t0(3)		integer		standard origin
C	id		integer		0  converts to time relative to standard origin
C					1  converts from time relative to standard origin
C	t		integer		id=0: time relative to current origin
C					id=1: time relative to new (standard) origin
C OUTPUTS:
C	u		integer		id=0: time relative to new (standard) origin
C					id=1: time relative to current origin
C CALLS:
C	Time1to2, Time2StandardOrigin, Time2to1
C PROCEDURE:
C MODIFICATION HISTORY:
C	OCT-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	t0(3)
	    integer	id
	    integer	t
	    integer	u

	integer		t2(2)

	call Time1to2(t,t2)
	call Time2StandardOrigin(t0,id,t2,t2)
	call Time2to1(t2,u)

	return
	end