function [btot]=makbt(bp);
%
%  These values are from Morel 1974 Optical properties of pure water and pure 
%   sea water, chapter 1, in Optical Aspects of Oceanography, Edited by N.G. Jerlov 
%   and E.S. Nielsen, Academic Press, New York, 1-24.
%
%    The wavelengths 412, 440, 488, 510, 532, 555, 650, 676
%
bw=[.0051 .0039 .0025 .0020 .0017 .0014 .00071 .00061];
info=size(bp);
num=info(2);
btot=zeros(8,num);

for j=1:num
  for i=1:8
    btot(i,j)=bp(i,j)+bw(1,i);
  end
end
