dustem_where_non_linear.pro 599 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21


FUNCTION dustem_where_non_linear,parameter_description,count,complement=complement,Ncomplement=Ncomplement,non_linear_mask=non_linear_mask

Np=n_elements(parameter_description)
mask_non_linear=lonarr(Np)
count=0L
FOR i=0L,Np-1 DO BEGIN
  pos=strpos(parameter_description[i],'MDUST_O_MH')
  IF pos NE -1 THEN BEGIN
  	mask_non_linear[i]=0
  ENDIF ELSE BEGIN
  	mask_non_linear[i]=1
    count=count+1
  ENDELSE
ENDFOR
ind_non_linear=where(mask_non_linear EQ 1,count,complement=complement,Ncomplement=Ncomplement)
non_linear_mask=intarr(Np)
non_linear_mask[ind_non_linear]=1

RETURN,ind_non_linear

END