PRO TrimTim, ntimes, usertim, ukey, fid=fid, sxtp=sxtp, sxtf=sxtf, $
			bcs=bcs, hxt=hxt, wbs=wbs
;	-----------------------------------------------------------------
;+							21-Aug-1991
;	Name:
;		TrimTim
;	Purpose: 
;		Trim the observing log data vectors to the exact
;		start and stop times specified by the user (userTim).
;	CALLING SEQUENCE:
;		TrimTim, ntimes, usertim, ukey, [fid=fid, sxtp=sxtp,
;				sxtf=sxtf, bcs=bcs, hxt=hxt, wbs=wbs]
;	Input:
;		ntimes	number of times the user specified (generally 2)
;		userTim	the user specified times.
;		ukey	logical flag-true for key searches
;	Output/input Keywords:
;		fid	file ident. record
;		sxtp	SXT partial frame data record
;		sxtf	SXT full frame data record
;		bcs 	bcs instrument data record 
;		hxt	hxt instrument data record 
;		wbs	wbs instrument data record 
;	History:
;		written 20-May-1991 by GAL
;		modified for key searches 21-June-91
;		simplfied 21-Aug-91: added TrimOvec
;-
;	----------------------------------------------------------------
;	ON_ERROR, 2		;force a return to caller on error

print,'**** trim time **********************************'
help,sxtp,sxtf
	IF uKey THEN BEGIN	;user search defined-recheck times
	  			;and redefine if necessary:
	  newt = AdjUsrTim( userTim, sxtp=sxtp, sxtf=sxtf, bcs=bcs)
	  Print,'**** TrimTim.pro notice ****'
	  Print,'User input start and stop times: ', userTim
	  Print,'New start and stop times due to Key search: ', newT
	  userTim = newT	;update
	ENDIF 

	IF KEYWORD_SET(fid)  THEN fid = TrimOvec(ntimes, usertim, fid)
	IF KEYWORD_SET(sxtp) THEN sxtp= TrimOvec(ntimes, usertim, sxtp)
	IF KEYWORD_SET(sxtf) THEN sxtf= TrimOvec(ntimes, usertim, sxtf)
	IF KEYWORD_SET(bcs)  THEN bcs = TrimOvec(ntimes, usertim, bcs)
	IF KEYWORD_SET(hxt)  THEN hxt = TrimOvec(ntimes, usertim, hxt)
	IF KEYWORD_SET(wbs)  THEN wbs = TrimOvec(ntimes, usertim, wbs)
 
	Return
	END