pro rd_girardi,z,age,massi,massa,logl,logt,logg,mbol,vmag,flum
; This routine reads a table of isochrones from Girardi et all 2000,
; A&A 141,371, and returns values for each stellar model encountered.
;  z = metallicity
;  age = age in yr
;  massi,massa = initial and actual masses in solar units
;  logl = log luminosity in solar units
;  logt = log(Teff)
;  logg = log(g) cgs
;  mbol = bolometric magnitude
;  vmag = visual absolute magnitude
;  flum = ?

openr,iun,'~/d/stardat/girardi_zams.asc',/get_lun
ss=''
readf,ss

nn=0
while(not eof(iun)) do begin
  readf,iun,ss
  nn=nn+1
endwhile
nn=nn-1

point_lun,iun,0
readf,iun,ss

z=fltarr(nn)
age=fltarr(nn)
massi=fltarr(nn)
massa=fltarr(nn)
logl=fltarr(nn)
logt=fltarr(nn)
logg=fltarr(nn)
mbol=fltarr(nn)
vmag=fltarr(nn)
flum=fltarr(nn)

for i=0,nn-1 do begin
  readf,iun,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12
  z(i)=v3
  age(i)=v4
  massi(i)=v5
  massa(i)=v6
  logl(i)=v7
  logt(i)=v8
  logg(i)=v9
  mbol(i)=v10
  vmag(i)=v11
  flum(i)=v12
endfor

close,iun
free_lun,iun

end