ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/JSOC/proj/globalhs/scripts/idl/getissandsecs.mdiold.idl
Revision: 1.1
Committed: Fri Mar 14 01:40:30 2014 UTC (9 years, 6 months ago) by tplarson
Branch: MAIN
CVS Tags: Ver_8-8, Ver_8-11, Ver_8-10, Ver_8-6, Ver_LATEST, Ver_8-4, Ver_9-41, Ver_8-5, Ver_8-12, Ver_8-7, Ver_9-5, Ver_9-4, Ver_9-3, Ver_9-2, Ver_9-1, Ver_9-0, HEAD
Log Message:
same as for sourcetype=mdi

File Contents

# Content
1
2 words=readmdisw(day,ndays)
3 sw=reform(words[0,*])
4 ssw=reform(words[1,*])
5 qual=sw and ssw
6 wq0=where(qual eq 0,ncheck)
7 gq0=fltarr(nx)
8 if (ncheck ne 0) then gq0[wq0]=1
9 iss=qual and 65536L
10 wiss=where(iss ne 0,ncheck)
11 giss=fltarr(nx)
12 if (ncheck ne 0) then giss[wiss]=1
13
14 g2=giss+gq0
15
16 mksec,day,nx,tstep,ref=secsref