C+
C NAME:
C	Time2StandardOrigin
C PURPOSE:
C	Convert from 2-element standard time relative to current origin to time
C	relative to one of the standard origins and v.v.
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time2StandardOrigin(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(2)		integer		id=0: time relative to current origin
C					id=1: time relative to new (standard) origin
C OUTPUTS:
C	u(2)		integer		id=0: time relative to new (standard) origin
C					id=1: time relative to current origin
C CALLS:
C	Time2GetOrigin, Time2ConvertUnits, Time2Delta
C PROCEDURE:
C MODIFICATION HISTORY:
C	OCT-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	t0(3)
	    integer	id
	    integer	t(2)
	    integer	u(2)

	integer		u0(3)
	integer		v0(2)
	integer		Time2Units

	call Time2GetOrigin(u0)
	call Time2ConvertUnits(t0(3),Time2Units(),t0,v0)

	if (id .eq. 0) then
	    call Time2Delta(v0,u0,v0)
	else
	    call Time2Delta(u0,v0,v0)
	end if

	call Time2Delta(t,v0,u)

	return
	end