pro maximum, var1, var2, maxindex, width
maxindex = 0
maxfreq = max(var2, maxindex)
if (abs(var1[maxindex]) gt width)  then begin
	var2[maxindex] = 0
	maximum, var1, var2, maxindex, width
endif else begin
return
endelse
end