C+
C NAME:
C	Time2Standardize
C PURPOSE:
C	Makes sure that a time array is in standard format
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time2Standardize(t2,u2)
C INPUTS:
C	t2(2)		integer		time array
C OUTPUTS:
C	u2(2)		integer		standardized time array
C INCLUDE:
	include		'fortime.h'
C PROCEDURE:
C >	t2(1) is the number of days since the time origin
C	t2(2) is the number of fractionak-day units.
C >	'Standardization' just means making sure that u2(2)
C	is positive and less than one day (e.g. 86400000 if units
C	used are millisecond)
C MODIFICATION HISTORY:
C	JAN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	t2(2)
	    integer	u2(2)

	integer		j

	data		TIME__ORIGIN		/0,0,86400000/

	j = t2(2)/TIME__ORIGIN(3)

	u2(1) = t2(1)+j
	u2(2) = t2(2)-j*TIME__ORIGIN(3)

	if (u2(2) .lt. 0) then
	    u2(1) = u2(1)-1
	    u2(2) = u2(2)+TIME__ORIGIN(3)
	end if

	return
	end