| Revision: | 1.1 |
| Committed: | Fri Apr 23 09:16:13 2010 UTC (13 years, 5 months ago) by tplarson |
| Branch: | MAIN |
| CVS Tags: | Ver_6-0, Ver_6-1, Ver_6-2, Ver_6-3, Ver_6-4, Ver_9-1, Ver_5-14, Ver_5-13, Ver_5-12, Ver_5-11, Ver_5-10, Ver_LATEST, Ver_9-3, Ver_9-41, Ver_9-2, Ver_5-9, Ver_8-8, Ver_8-2, Ver_8-3, Ver_8-0, Ver_8-1, Ver_8-6, Ver_8-7, Ver_8-4, Ver_8-5, Ver_7-1, Ver_7-0, Ver_9-5, Ver_9-4, Ver_8-10, Ver_8-11, Ver_8-12, Ver_9-0, HEAD |
| Log Message: | idl functions, procedures, scripts, and input files needed by doretidl, dogfidl, and dopkgn |
| # | Content |
|---|---|
| 1 | FUNCTION SECTIONGAPS, day, gsecs, ndays=ndays, nwsg=nwsg |
| 2 | |
| 3 | if (n_elements(ndays) eq 0) then ndays=72 |
| 4 | nx=ndays*1440L |
| 5 | gsecs=fltarr(nx) |
| 6 | |
| 7 | daystr=strtrim(string(day),2) |
| 8 | ndstr=strtrim(string(ndays),2) |
| 9 | nsecs=0L |
| 10 | rec=lonarr(2) |
| 11 | openr,1,'secs.'+ndstr+'.'+daystr |
| 12 | readf,1,nsecs |
| 13 | for j=0L,nsecs-1 do begin |
| 14 | readf,1,rec |
| 15 | start=rec[0] |
| 16 | finish=rec[1] |
| 17 | gsecs[start:finish]=1 |
| 18 | endfor |
| 19 | close,1 |
| 20 | |
| 21 | wsg=where(gsecs eq 0,nwsg) |
| 22 | return,wsg |
| 23 | |
| 24 | END |