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

	double precision	w1
	double precision	w2

	w1 = 1d0-w
	w2 = w
	tt = nint( w1*t1+w2*t2 )

	return
	end