;complement ; ;PURPOSE: ; This function will keep all of the elements of an array besides those in ; the array of remove_subscripts pro complement,full_array,remove_subscripts,keep_subscripts full_size=N_elements(full_array) keep_subscripts=lonarr(full_size)-1 keep=0 for i=0L, full_size-1 do begin match=where(remove_subscripts eq i) if match(0) eq -1 then begin keep_subscripts(keep)=i keep=keep+1 endif endfor keep_subscripts=keep_subscripts(where(keep_subscripts ne -1)) end