; IDL Version 5.2 (OSF alpha) ; Journal File for hudson@isass1.solar.isas.ac.jp ; Working directory: /home/hudson ; Date: Thu Jun 10 12:02:35 1999 infil = findfile('$DIR_SITE_NEWDATA/sfr9906*') rd_roadmap,infil,rm fmt_timer,rm ss = where(gt_dpe(rm) eq 30 and gt_filtb(rm) eq 3 and $ gt_expmode(rm) eq 0 and gt_percentd(rm) eq 100) xy = sxt_cen(rm(ss)) off = where(xy(0,*) gt 700) ss = ss(off) rd_xda,infil,ss,index,data bad = 11 good = kill_index(indgen(16),bad) info = get_info(index(good)) get_att,index(good),att print,att.status1 sxt_prep,index(good),data(*,*,good),iout,dout,/float,/reg,/norm sxt_prep,index(good),data(*,*,good),iout,dout,/float,/reg text=rd_tfile('jingsdata.session') savegen,iout,dout,text,file='jingsdata.genx' end