function [x,C,E,A,h]=transect(tow,k);
% 9/6/05; Ledwell for EDDIES Tracer 2
% Gets the data for station 'cast' and puts them in the matrices in 
% cesp.mat in the cast'th columns.
% k is the list of standard numbers
% height is the height of the sample above the sled sample
% C, E are sf6 concentration and uncertainty
% A and ph are the areas and peak heights
% tow is the sampler tow number

load const.mat			% brings in calibration constants

s=int2str(tow);
if length(s)==1;
 s=['0',s];
end

% call function std_id which returns standard quantities (nstd),
% mean peak areas (Astd), and standard deviation of peak 
% areas (Sstd) for each trap

Tr=299;
Pr=1013;

[nstd1,Astd1,Sstd1] = std_id(k,Tr,Pr);

eval(['load C:\ledwell\EDDIES\Tracer_2\Carousels\Car_',s,'.txt'])
eval(['B=Car_',s,';']);
x=[1:50]';
Vw=B(:,4);
level=B(:,5);
A=B(:,6);
h=B(:,7);

[C,E] = conc_sw(A,h,Vw,level,Astd1,Sstd1,nstd1);
C=C';
E=E';

