PRO big_eph_boost, nt, rr, pp, names, list, nodist, distflag 

;+
; NAME:
;	big_eph_boost
; PURPOSE:
;	(For internal use by big_eph only)
; CATEGORY:
; CALLING SEQUENCE:
;	big_eph_boost, nt, rr, pp, names, list, nodist, distflag
; INPUTS:
;	nt  		scalar; type: integer
;					# times in rr and pp
;	rr			array[3,*,ntt]; type: double
;					positions already accepted
;	pp			array[3,*,ntt]; type: double
;					positions to be added
;	names		array; type: string
;					names of bodies already accepted
;	list		array; type: string
;					names of bodies to be added
;	nodist		array: type: byte
;					list of distance flags of accepted bodies
;	distflag	array: type: byte
;					list of distance flags to be added
; OUTPUTS:
;	rr			array[3,*,ntt]; type: double
;					input rr with pp added
;	names		array; type: string
;					input names with list added
;	nodist		array; type: byte
;					input nodist with distflag added
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; CALLS:
;	boost
; MODIFICATION HISTORY:
;	JUL-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

; ntt cannot be safely deduced from rr and/or pp. For instance,
; if rr[3,2] it is not clear whether this is for two bodies and
; one time, or for one time and two bodies (IDL tends to loose
; dummy dimensions).

nb = n_elements(pp)/(3*nt)

pp = reform(pp,3,nb,nt,/overwrite)	; Needed if nb or nt are 1
boost, rr, pp, pushdim=1

boost, names , list
boost, nodist, replicate(distflag,nb)

RETURN  &  END