C+
C NAME:
C	jpl_split
C PURPOSE:
C	Breaks a double precision number into an integer and fractional part
C CALLING SEQUENCE:
	subroutine jpl_split(TT,FR)
C INPUTS:
C       TT	double precision	input number
C OUTPUTS:
C       FR(2)	double precision	output integer and fraction
C					FR(1): integer part
C					FR(2): fractional part (always >= 0)
C MODIFICATION HISTORY:
C	???-????, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C		From original JPL package
C-
	double precision TT
	double precision FR(2)

	FR(1) = dint(TT)
	FR(2) = TT-FR(1)
					! Adjust negative number
	if (TT .lt. 0.D0 .and. FR(2) .ne. 0.D0) then
	    FR(1) = FR(1)-1.D0
	    FR(2) = FR(2)+1.D0
	end if

	return
	end