;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