C+
C NAME:
C	Time1ChangeUnits
C PURPOSE:
C	Change fract-day units
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time1ChangeUnits(units,new_units,t,u)
C INPUTS:
C	units		integer		# current units in day
C	new_units	integer		# new units in day
C	t		integer		1-element standard time
C OUTPUTS:
C	u		integer		modified 1-element standard time 
C CALLS:
C	Time2ConvertUnits
C PROCEDURE:
C	Typically this routine is used to convert to smaller frac-day units,
C	e.g. from hours to seconds. In this case the conversion is exact
C	When converting to larger units (new_units smaller than units)
C	then round-off will usually occur, i.e. the conversion is not exact.
C MODIFICATION HISTORY:
C	JAN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	units
	    integer	new_units
	    integer	t
	    integer	u

	integer		t2(2)

	t2(1) = 0
	t2(2) = t
	call Time2ConvertUnits(units,new_units,t2,t2)
	u = t2(1)*new_units+t2(2)

	return
	end