; IDL Version 5.2 (OSF alpha) ; Journal File for sxt_co@isass0.solar.isas.ac.jp ; Working directory: /home/sxt_co/idl ; Date: Fri Jun 30 09:53:22 2000 ; ; Documentation notes - this is probably only useful to a quite knowledgable ; user. It requires the installation of SolarSoft including the GEV database. ; The result is two structures (cat and gev) with limited information about ; the flares. See SolarSoft documentation for RD_GXD to learn about the ; gev structure. ; ; Try IDL> utplot,cat,cat.xcen,psym=2 and tell us that helioexalepidoptery ; makes no sense! infil = '/home/www/sxt_co/sxt_trace_flares_000610.txt' data = rd_tfile(infil,19,3) cat = {flare_cat, fid:'', time:0., day:0, xcen:0., ycen:0.} ndat = (size(data))(2) cat = replicate(cat,ndat) rd_gev,'14-jul-98','15-jul-98',gg gevref = gg(0) gevref.time = 0L gevref.day = 0 gev = replicate(gevref,ndat) for i = 0, ndat-1 do begin tt = anytim(data(1,i)+' '+data(2,i),/int) tt0 = tt tt1 = tt tt0.time = 0 tt1.day = tt.day +1 cat(i).time = tt.time cat(i).day = tt.day cat(i).xcen = float(data(5,i)) cat(i).ycen = float(data(6,i)) rd_gev,tt0,tt1,gev0 if n_elements(gev0) gt 1 then begin tgev = tim2dset(gev0,tt) gev(i) = gev0(tgev) endif endfor end