PRO plotr,i,vx=vx,vn=vn,x=x

common plotv,v,vatst,vsst,vhin,w,ib,ir

if n_elements(vx) eq 0 then vx=0.3
if n_elements(vn) eq 0 then vn=-0.3
if n_elements(x)  eq 0 then x=0.6

plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=1.5,ytit='V/I',lin=2,thick=4,yr=[vn,vx],yst=1
for ii=-3,3,2 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 & endfor
oplot,w*.1,vatst[*,real_part(ir[i]),imaginary(ir[i])],thick=3,lin=0
;oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=5,lin=4
oplot,w*.1,vsst[*,real_part(ir[i]),imaginary(ir[i])],thick=5,lin=4

label,x=x,y=.8,lin=2,'Sim'
label,lin=0,'ATST
label,lin=4,'SST'
print,i,ir[i]

RETURN
END