pro get_bcs, FileList, index, data, dp_sync, $ channel=channel, all=all ; dp_sync must be present??? ; or should read_bcs,files,index be possible... if n_params() ne 4 or (1-data_chk(FileList,/string)) then begin box_message,['Need 4 parameters, a filelist, and 3 outputs...',$ 'IDL> get_bcs, filelist, index ,data, dp_sync'] return endif ;if n_params() ne 4 then begin ; print,'** Call should be get_bcs,FileList,index,data,dp_sync ; return ;endif if FileList(0) eq '' then begin box_message,['No file names supplied...'] return endif print,'Using files: ' print,FileList,format='(x,a)' print,'' ; channel to use for lightcurve selection chan = 3 if keyword_set(channel) then chan = channel ; /all keyword does not call light curve selector ssVec = -1 ; read on roadmap and select the desired interval if not keyword_set(all) then begin rd_roadmap, FileList, roadmap, ndset, filidx=filidx Counts = gt_total_cnts(roadmap, chan, title=title)>0 ssVec = plot_lcur(roadmap, Counts, title=title) endif else print,'** Selecting all the data **' rd_bda,FileList,ssVec,index,data rd_bda_dp,FileList,dp_sync print,'Selected time range:' fmt_timer,index end