if (n_elements(index) eq 0) then message, 'Usage: load_thermocouple_cal, tc_index, meter'
if (n_elements(meter) eq 0) then message, 'Usage: load_thermocouple_cal, tc_index, meter'
if (index lt 1) or (index gt 10) then message, 'tc_index must be between 1 and 10'
if (meter lt 1) or (meter gt 2) then message, 'meter must be between 1 and 2'

; This file loads the thermocouple calibration
; Thermocouple conversion coefficients (10)
coeffs = [ $
0,1,0,0,0,0,0, $
25.35814157,72.21224989,-2.815357654,.1698181988,-.46996988e-2,.5418247356e-4,-.2645913896e-7, $
28.842,23.987,0,0,0,0,0, $
30.41082384,71.48460400,-2.653841116,0.1534199600,-0.3953438497E-02,0.4242474276E-04,-.1766276156E-07, $
30.09713989,72.75952978,-3.348950307,0.2665505800,-0.1173597651E-01,0.2818261953E-03,-.2733066876E-05, $
25.05262657,69.37059567,-2.017625153,0.0891823577,-8.1251251339e-04,-.3226719000e-04,0.6820774988e-06, $
25.30200973,70.55820145,-2.387582938,0.1299370657,-0.2870959470E-02,0.1619613496E-04,0.2519157716E-06, $
28.37065525,74.04641335,-1.452700146,-.04483512603,0.7197806231E-02,-.2381368548E-03,0.2612083841E-05, $
19.41832589,75.29103822,-2.118950549,0.04461300802,0.1919626434E-02,-.9391041392E-04,0.1124852894E-05, $
20.61286273,75.229305278,-1.99131594,0.02906734054,0.2671442980E-02,-1.105697512E-04,0.1264764189E-05]

coeffs = reform(coeffs, 7, 10)
desc = ['Volts', 'W-Re type C', 'Type K', 'W-Re type C', 'W-Re type C', 'W-Re type C', 'W-Re type D', $
'W-Re type D', 'W-Re type D', 'W-Re type D']
prefix = 'X17B2:Fluke'+strtrim(meter,2)+'_Calc'
letters = ['B', 'C', 'D', 'E', 'F', 'G', 'H']
t = caput(prefix+'.DESC', desc[index-1])
for i=0, 6 do begin
t = caput(prefix+'.INP'+letters[i], string(coeffs[i,index-1], format='(e20.12)'))
endfor
end