C+
C NAME:
C	Time2SetOriginInJD
C PURPOSE:
C	Initialize time tracking by setting origin and frac-day units
C	specified relative to Julian Day 0.0
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time2SetOriginInJD(t3)
C INPUTS:
C	t3(3)		integer		Julian day as 2-element standard time
C CALLS:
C	Time2GetOriginJD, Time2ConvertUnits, Time2SetOriginIn2000
C SIDE EFFECTS:
C	Updates common block included in fortime.h
C PROCEDURE:
C	Julian days are sometimes specified after subtracting some large
C	offset e.g. NBIG = 2400000, 2440000 or 2450000
C
C	The corresponding time origin is [-2451545+NBIG,43200000], i.e.
C		T0=[-51545,43200000] for NBIG = 2400000
C		T0=[-51544,       0] for NBIG = 2400000.5 (Modified Julian Day)
C		T0=[-11545,43200000] for NBIG = 2440000
C		T0=[-11544,       0] for NBIG = 2440000.5
C		T0=[- 1545,43200000] for NBIG = 2450000
C		T0=[- 1544,       0] for NBIG = 2450000.5
C MODIFICATION HISTORY:
C	OCT-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	t3(3)

	integer		u3(3)

	call Time2GetOriginJD(u3)
	call Time2ConvertUnits(u3(3),t3(3),u3,u3)
	u3(3) = t3(3)

	u3(1) = u3(1)+t3(1)
	u3(2) = u3(2)+t3(2)

	call Time2SetOriginIn2000(u3)

	return
C+
C NAME:
C	Time2SetOriginInMJD
C PURPOSE:
C	Initialize time tracking by setting origin and frac-day units
C	specified relative to Modified Julian Day 0.0 (= JD 2400000.5)
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	entry Time2SetOriginInMJD(t3)
C INPUTS:
C	t3(3)		integer		2-element time in modified Julian days
C CALLS:
C	Time2GetOriginMJD, Time2ConvertUnits, Time2SetOriginIn2000
C SIDE EFFECTS:
C	Updates common block included in fortime.h
C PROCEDURE:
C MODIFICATION HISTORY:
C	JAN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	call Time2GetOriginMJD(u3)
	call Time2ConvertUnits(u3(3),t3(3),u3,u3)
	u3(3) = t3(3)

	u3(1) = u3(1)+t3(1)
	u3(2) = u3(2)+t3(2)

	call Time2SetOriginIn2000(u3)

	return
C+
C NAME:
C	Time2SetOriginInTime
C PURPOSE:
C	Change time origin and frac-day units specified relative to current origin
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	entry Time2SetOriginInTime(t3)
C INPUTS:
C	t3(3)		integer		2-element time relative to current origin
C CALLS:
C	Time2GetOrigin, Time2ConvertUnits, Time2SetOriginIn2000
C SIDE EFFECTS:
C	Updates common block included in fortime.h
C PROCEDURE:
C	Assumes that an origin has already been defined, i.e. this routine
C	can be used to change the origin and/or frac.-day units.
C MODIFICATION HISTORY:
C	JAN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	call Time2GetOrigin(u3)
	call Time2ConvertUnits(u3(3),t3(3),u3,u3)
	u3(3) = t3(3)

	u3(1) = u3(1)+t3(1)
	u3(2) = u3(2)+t3(2)

	call Time2SetOriginIn2000(u3)

	return
	end