function [u,v,w,err] = BASSuvw(A,B,C,D,k)

%  BASSuvw -- calibrate BASS current measurements
%
%      A, B, C, D are pod counts for the four axes (zeroes
%         should be already subtracted).
%      k is the proportionality constant, usually .03.
%      u, v, w are in cm/s, pod coordinate system.
%      err is a measure of error, the difference between
%          vertical velocities calculated with the two axis
%          pairs.  (w is the mean of the two).
% 
%      Fran Hotchkiss, December 17, 1997.

k = k * cos(pi/4);
u = k .* (B-D);
v = k .* (A-C);
w = -k/2 .* (+A+B+C+D);
err = k/2 .* (A-B+C-D);
CalPod = [u v w err];