| Revision: | 1.1 |
| Committed: | Mon Aug 15 20:24:19 2011 UTC (12 years, 1 month 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_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: | utility functions |
| # | Content |
|---|---|
| 1 | function lnjoin,arr1,arr2 |
| 2 | |
| 3 | sz1=size(arr1) |
| 4 | sz2=size(arr2) |
| 5 | |
| 6 | indarr1=dblarr(sz1[1],150000L) - 1 |
| 7 | indarr2=dblarr(sz2[1],150000L) - 1 |
| 8 | |
| 9 | ind1=reform(100*arr1[0,*]+arr1[1,*]) |
| 10 | ind2=reform(100*arr2[0,*]+arr2[1,*]) |
| 11 | |
| 12 | indarr1[*,ind1]=arr1[*] |
| 13 | indarr2[*,ind2]=arr2[*] |
| 14 | |
| 15 | w=where((indarr1[0,*] ne -1) and (indarr2[0,*] ne -1), nw) |
| 16 | |
| 17 | if (nw eq 0) then begin |
| 18 | print,"no common modes" |
| 19 | return,0 |
| 20 | endif |
| 21 | |
| 22 | q=[indarr1[*,w],indarr2[*,w]] |
| 23 | |
| 24 | return,q |
| 25 | |
| 26 | end |