;-----------------------------------------------------------------------
pro plot_rivers,fname
;-----------------------------------------------------------------------

; called from main as:
; plot_rivers,'/?dir?/lmich_rivers.dat'

gname=' '
openr,1,fname
for i=0,5 do begin
   readf,1,nopts,gname
   river=fltarr(2,nopts)
   readf,1,river,format='(2f9.5)'
   oplot,river(0,*),river(1,*)
end
close,1
return
end