;-----------------------------------------------------------------------
pro plot_shoreline,fname
;-----------------------------------------------------------------------

; called from main as:
; plot_shoreline,'/?dir?/lmich_shore.dat'


gname=' '
openr,1,fname
readf,1,nopts,gname

; shoreline

shoreline=fltarr(2,nopts)
readf,1,shoreline,format='(2f9.5)'
oplot,shoreline(0,*),shoreline(1,*)

; islands

; for i=0,20 do begin
;    readf,1,nopts,gname
;    island=fltarr(2,nopts)
;    readf,1,island,format='(2f9.5)'
;    oplot,island(0,*),island(1,*)
; end

close,1
return
end