pro oplot_peaks,y,width=width,sigma=sigma,linestyle=linestyle, $
max=max,min=min,all=all

; +	Oplots vertical lines through local minimum points on the plot 
; -	which is issued on the graphics window.

if n_elements(all) le 0 then all=0
if n_elements(linestyle) le 0 then linestyle=0

	CASE 1 OF
n_elements(width) le 0 and n_elements(sigma) le 0: z= $
	find_peaks(y,all=all)
n_elements(width) le 0 and n_elements(sigma) gt 0: z= $
	find_peaks(y,sigma=sigma,all=all)
n_elements(width) gt 0 and n_elements(sigma) le 0: z= $
	find_peaks(y,width=width,all=all)
n_elements(width) gt 0 and n_elements(sigma) gt 0: z= $
	find_peaks(y,width=width,sigma=sigma,all=all)
	ENDCASE

for j=0,n_elements(z)-1 do plots, z(j),  !y.crange, linestyle=linestyle

end