| Revision: | 1.1 |
| Committed: | Fri Feb 18 00:21:17 2011 UTC (12 years, 7 months ago) by richard |
| 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_LATEST, Ver_9-3, Ver_9-41, Ver_9-2, 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 package for calculating pzt flatfields 2011.02.17 |
| # | Content |
|---|---|
| 1 | function getshs,headers |
| 2 | |
| 3 | time=getpar(headers, 'SHS')+getpar(headers, 'SHSS')/2D^32 |
| 4 | |
| 5 | if (total(time) eq 0) then begin |
| 6 | nh=n_elements(headers) |
| 7 | time=dblarr(nh) |
| 8 | fpt=getpar(headers,'IMGFPT') |
| 9 | for i=0,nh-1 do begin |
| 10 | spawn,'time_index -r in='+fpt(i),help |
| 11 | time(i)=double(help[0]) |
| 12 | end |
| 13 | end |
| 14 | |
| 15 | return,time |
| 16 | |
| 17 | end |