pro gmr_adjust,filin,filout
; this routine reads a colors save file and adjusts the g-r colors
; in the following ways:
; For Teff = 4000K it adds 0.18 to g-r, independent of logg and logz
; For Teff = 3750K it adds 0.29 to g-r, independent of logg and logz
; For Teff = 3500K it adds 0.40 to g-r, independent of logg and logz
; it then saves the result to filout

; constants
tt=[3500.,3750.,4000.]
dg=[.40,.29,.18]
nt=n_elements(tt)

restore,filin
for i=0,nt-1 do begin
  s=where(teff eq tt(i),ns)
  if(ns gt 0) then colors(1,s)=colors(1,s)+dg(i)
endfor

save,colors,names,teff,logg,logz,file=filout

end