pro plotset, x, y, linestyle = linestyle, color = color, thick = thick, $
data = data, normal = normal, device = device


if n_elements(linestyle) le 0 then linestyle = !p.linestyle
if n_elements(color) le 0 then color = !p.color
if n_elements(thick) le 0 then thick = !p.thick

if !y.type eq 0 then yrange = !y.crange else yrange = 10.^!y.crange

	CASE n_params() OF

1: 	for j=0, n_elements(x)-1 do plots, x(j), yrange, $
	linestyle = linestyle, color = color, thick = thick, $
	normal = keyword_set(normal), device = keyword_set(device)

2:	for j=0, n_elements(y) < n_elements(x)-1 do $
	plots, x(y(j) < (n_elements(x)-1)), yrange, $
	linestyle = linestyle, color = color, thick = thick, $
	normal = keyword_set(normal), device = keyword_set(device)

0:	begin
	message, 'Nothing to plot'
	return
	end

ELSE:	begin
	message, 'Too many parameters'
	return
	end

	ENDCASE 

	end