% routine to post bongo hauls on vertical cross-section

function postbong(cast,distkm);

load /home3/ocn/jmanning/gbs95/bongo/92_95/bongall.dat
ba=bongall;

% grab the 1997 data
ba=ba(find(ba(:,1)==97),:);
% yr sta lon lat cod had 

load /home3/ocn/jmanning/gbs95/bongo/92_95/stacast97.dat
sc=stacast97;

for i=1:length(cast);
  % find the sta number associated with cast
  id=find(sc(:,2)==cast(i));

  % find the catch associated with this sta
  id=find(ba(:,2)==sc(id(1),1));
  catch(i)=ba(id,6);
end;

sizesym(distkm,-7.5*ones(1,length(cast)),-1*catch,2,0.8,'r');