C+
C NAME:
C	Time2Interpolate
C PURPOSE:
C	Interpolate times
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Time2Interpolate(w,t,u,tt)
C INPUTS:
C	w		double precision	fraction used for interpolation
C	t(2)		integer			2-element standard time
C	u(2)		integer			2-element standard time
C OUTPUTS
C	tt(2)		integer			interpolated 2-element standard time
C CALLS:
C	Time2Units, Time2Standardize
C PROCEDURE:
C	tt = (1-ft)*t+ft*u
C	i.e. if ft=0 then tt=t and if ft=1 then tt=u
C MODIFICATION HISTORY:
C	OCT-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    double precision	w
	    integer		t (2)
	    integer		u (2)
	    integer		tt(2)

	double precision	dd(2)
	double precision	w1
	double precision	w2
	integer			Time2Units

	w1 = 1d0-w
	w2 = w

	dd(1) = w1*t(1)+w2*u(1)
	dd(2) = w1*t(2)+w2*u(2)

	tt(1) = int( dd(1) )
	tt(2) = nint( (dd(1)-tt(1))*Time2Units()+dd(2) )

	call Time2Standardize(tt,tt)

	return
	end