function CalPres = p4028(PPeriod,Temp,C,D,T)

%  p4028 -- calibrate raw data of Paroscientific Pressure
%      Transducer, temperature-dependent calibration with 
%      C, D, T   (Paroscientific, Inc., Redmond, WA)
%
%      PPeriod is the transducer output period in microsec.
%      Temp is temperature in degrees Celsius.
%      C, D, and T are arrays of calibration constants, with
%         the coefficient of the highest power listed first.
%      CalPres is in mbars.
% 
%      Fran Hotchkiss, December 10, 1997.

Co = polyval(C,Temp);
Do = polyval(D,Temp);
To = polyval(T,Temp);
x = 1 - power((To./PPeriod),2.);
CalPres = 68.946498 .* Co .* x .* (1 - (Do .* x));