| Revision: | 1.1 |
| Committed: | Fri Apr 23 09:16:00 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 |
| Log Message: | idl functions, procedures, scripts, and input files needed by doretidl, dogfidl, and dopkgn |
| # | Content |
|---|---|
| 1 | PRO GETPAR1Q, LMIN, LMAX |
| 2 | |
| 3 | c=intarr(320,50)+1 |
| 4 | p=readx('par1') |
| 5 | n=p(0,*) |
| 6 | l=p(1,*) |
| 7 | f=p(2,*) |
| 8 | width=p(4,*) |
| 9 | c2=close2(l,n,f) |
| 10 | w=where(((c(l,n) ne 0) and ((width le 0.50*c2) or (n eq 0))) and (f ge 800) and (f le 5500) and ((l le 200) or (n eq 0)) and (l ge LMIN) and (l le LMAX),nq) |
| 11 | print,nq |
| 12 | |
| 13 | outfile='par1q' |
| 14 | |
| 15 | openw,1,outfile |
| 16 | for i=0,nq-1 do printf,1,p(*,w(i)),format='(i2,i4,f11.4,99f10.6)' |
| 17 | close,1 |
| 18 | |
| 19 | END |