;+ ; NAME: ; ARS1 ; PURPOSE: ; catalog success rate for preflare images prior to flare mode ; CATEGORY: ; CALLING SEQUENCE: ; INPUTS: ; OPTIONAL (KEYWORD) INPUT PARAMETERS: ; OUTPUTS: ; COMMON BLOCKS: ; SIDE EFFECTS: ; RESTRICTIONS: ; MODIFICATION HISTORY: ; 28-Nov-99, started by HSH ;- pro ars1, qdebug=qdebug flares=file_list('/fdat/f2/*/','spr*',/cd) n_fl = n_elements(flares) for i = 0, n_fl-1 do begin pass = 0 good = 'yes preflare' rd_roadmap,flares(i),roadmap flaremode = where(gt_dp_mode(roadmap) eq 9, n_flare) if flaremode(0) lt 2 then begin print,fmt_tim(roadmap(0)),' ','flare on at sunrise' pass = 1 endif if pass ne 1 then begin xy_fl = gt_center(roadmap(flaremode(1)),/ang) xy_pf = gt_center(roadmap(flaremode(1)-2),/ang) deltat = max(int2secarr(roadmap([flaremode(1)-2,flaremode(1)]))) ; info = get_info(roadmap([flaremode(1),flaremode(1)-2])) dxy = sqrt((xy_fl(0)-xy_pf(0))^2+(xy_fl(1)-xy_pf(1))^2) if fix(dxy) gt fix(32*gt_pix_size()) then good = 'no preflare' print,fmt_tim(roadmap(flaremode(1))),' ',dxy,' ', good, ' ',deltat endif endfor end