Commit 91b30c4c24a8c040a4f6fe76b51820d2e68467dd
1 parent
907a3ade
Exists in
master
first commit
Showing
1 changed file
with
21 additions
and
0 deletions
Show diff stats
| ... | ... | @@ -0,0 +1,21 @@ |
| 1 | +FUNCTION dustem_where_non_linear,parameter_description,count,complement=complement,Ncomplement=Ncomplement,non_linear_mask=non_linear_mask | |
| 2 | + | |
| 3 | +Np=n_elements(parameter_description) | |
| 4 | +mask_non_linear=lonarr(Np) | |
| 5 | +count=0L | |
| 6 | +FOR i=0L,Np-1 DO BEGIN | |
| 7 | + pos=strpos(parameter_description[i],'MDUST_O_MH') | |
| 8 | + IF pos NE -1 THEN BEGIN | |
| 9 | + mask_non_linear[i]=0 | |
| 10 | + ENDIF ELSE BEGIN | |
| 11 | + mask_non_linear[i]=1 | |
| 12 | + count=count+1 | |
| 13 | + ENDELSE | |
| 14 | +ENDFOR | |
| 15 | +ind_non_linear=where(mask_non_linear EQ 1,count,complement=complement,Ncomplement=Ncomplement) | |
| 16 | +non_linear_mask=intarr(Np) | |
| 17 | +non_linear_mask[ind_non_linear]=1 | |
| 18 | + | |
| 19 | +RETURN,ind_non_linear | |
| 20 | + | |
| 21 | +END | |
| 0 | 22 | \ No newline at end of file | ... | ... |