C+
C NAME:
C	jpl_inside
C PURPOSE:
C	Check whether specified time is in ephemeris file
C CALLING SEQUENCE:
	function jpl_inside(et,SS)
C CALLS:
C	jpl_split
C PROCEDURE:
C MODIFICATION HISTORY:
C	FEB-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    double precision et(2)
	    double precision SS(3)

	! If epoch inside range of current file then return

	if (SS(1) .le. et(1)+et(2) .and. et(1)+et(2) .le. SS(2)) then
	    jpl_inside = idint((et(1)-SS(1))/SS(3))+3	! Calculate record # and relative time in interval
	    if (et(1) .eq. SS(2)) jpl_inside = jpl_inside-1
	else
	    jpl_inside = 0
	end if

	return
	end