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