pro isoread, filename, v, bv
;
;
;  Program to read isochrone data
;
;
np = n_params()
if np ne 3 then begin
    print,' ERROR!  This routine called by'
    print, string(7B)
    print, 'filename, Varray, B-Varray'
    print, ' '
endif

openr,2,filename, error=err
if err ne 0 then begin
    print, 'Error opening file'
    close,2
endif
data = fltarr(2,200)
a = fltarr(9)
sline = ' '
readf, 2, sline
readf, 2, sline
readf, 2, sline
readf, 2, sline
i = -1
while not eof(2) do begin
    readf, 2, a
    i = i + 1
    data(0,i) = a(4)
    data(1,i) = a(6)
endwhile
v = data(0,0:i)
bv = data(1,0:i)
close, 2
return
end