function y = kcalc(T,index,state,name)
global mw lrho cnms
%for state put l,s, or v
%if solid - include the number of the solid in quotes according to follow
%list
if state=='l'
y=klcalc(T,index,mw,cnms,lrho);
end

if state=='g'
y=ktpcalc(T,index);
end

if state=='v'
y=ktpcalc(T,index);
end

if state=='s'
y=kscalc(T,name);
end

%Mollie Finley and Ryan Dunnavant 4/2004

HomeGasesLiquidsSolidsSources
© 2003 Finley and Dunnavant