function ML18_to_3D_dTeff, Teff, logg
;
; IN: Teff, effective temperature (K)
; logg, surface gravity (g in cm/s2)
;
; OUT: Teff correction (K)
; Fri Jun 14 20:16:39 2013 B.F.

A=dindgen(8)
A(00)=1.0947335E-03
A(01)=-1.8716231E-01
A(02)=1.9350009E-02
A(03)=6.4821613E-01
A(04)=-2.2863187E-01
A(05)=5.8699232E-01
A(06)=-1.0729871E-01
A(07)=1.1009070E-01

Teff0=(Teff-10000.0)/1000.00
logg0=(logg-8.00000)/1.00000
Shift=A(00)+(A(01)+A(06)*Teff0+A(07)*logg0)*exp(-(A(02)+A(04)*Teff0+A(05)*logg0)^2*((Teff0-A(03))^2))

return, Shift*1000.00+0.00000

end

function ML18_to_3D_dlogg, Teff, logg
;
; IN: Teff, effective temperature (K)
; logg, surface gravity (g in cm/s2)
;
; OUT: log g correction (g in cm/s2)
; Fri Jun 14 21:09:56 2013 B.F.

A=dindgen(12)
A(00)=7.5209868E-04
A(01)=-9.2086619E-01
A(02)=3.1253746E-01
A(03)=-1.0348176E+01
A(04)=6.5854716E-01
A(05)=4.2849862E−01
A(06)=-8.8982873E-02
A(07)=1.0199718E+01
A(08)=4.9277883E-02
A(09)=-8.6543477E-01
A(10)=3.6232756E-03
A(11)=-5.8729354E-02

Teff0=(Teff-10000.0)/1000.00
logg0=(logg-8.00000)/1.00000
Shift=(A(00)+A(04)*exp(-A(05)*((Teff0-A(06))^2)))+A(01)*exp(-A(02)*((Teff0-(A(03)+A(07)*exp(-(A(08)+A(10)*Teff0+A(11)*logg0)^2*((Teff0-A(09))^2))))^2))

return, Shift

end

function ML17_to_3D_dTeff, Teff, logg
;
; IN: Teff, effective temperature (K)
; logg, surface gravity (g in cm/s2)
;
; OUT: Teff correction (K)
; Tue Jun 18 18:58:49 2013 B.F.

A=dindgen(8)
A(00)=-1.0461690E-03
A(01)=-2.6846737E-01
A(02)=3.0654611E-01
A(03)=1.8025848E+00
A(04)=1.5006909E-01
A(05)=1.0125295E-01
A(06)=-5.2933335E-02
A(07)=-1.3414353E-01

Teff0=(Teff-10000.0)/1000.00
logg0=(logg-8.00000)/1.00000
Shift=A(00)+(A(01)+A(04)*Teff0+(A(05)+A(06)*Teff0+A(07)*logg0)*logg0)*exp(-A(02)*((Teff0-A(03))^2))

return, Shift*1000.00+0.00000

end

function ML17_to_3D_dlogg, Teff, logg
;
; IN: Teff, effective temperature (K)
; logg, surface gravity (g in cm/s2)
;
; OUT: log g correction (g in cm/s2)
; Tue Jun 18 18:56:55 2013 B.F.

A=dindgen(11)
A(00)=1.1922481E-03
A(01)=-2.7230889E-01
A(02)=-6.7437328E-02
A(03)=-8.7753624E-01
A(04)=1.4936511E-01
A(05)=-1.9749393E-01
A(06)=4.1687626E-01
A(07)=3.8195432E-01
A(08)=-1.4141054E-01
A(09)=-2.9439950E-02
A(10)=1.1908339E-01

Teff0=(Teff-10000.0)/1000.00
logg0=(logg-8.00000)/1.00000
Shift=A(00)+A(01)*exp(-(A(02)+(A(04)+A(06)*exp(-A(07)*((Teff0-A(08))^2)))*Teff0+(A(05)+A(09)*Teff0+A(10)*logg0)*logg0)^2*((Teff0-A(03))^2))

return, Shift

end

2539